IDL编程学习之五家共井问题

15195775117

五家共井问题：
https://baike.baidu.com/item/%E4%BA%94%E5%AE%B6%E5%85%B1%E4%BA%95/92665?fr=aladdin
其实就是个解方程组的问题：
各家绳长的系数：
a=[[2,1,0,0,0],$
  [0,3,1,0,0],$
  [0,0,4,1,0],$
  [0,0,0,5,1],$
  [1,0,0,0,6]]
  
  n=1;n代表总绳长
  count=0;count用来记录5个解里整数的个数
while count lt 5 do begin;整数解的个数＜5就继续增加绳长，直到都是整数为止
x=(fltarr(1,5)+n)#invert(a);矩阵运算获得解
p=where(x mod 1 eq 0,count);判断解中整数的个数
n++
endwhile
print,x;输出符合条件的解