program lin3 !implicit none real::d,c,l,t,x,x0,ff,yy,eps=1e-5 print*,"请输入水深和周期" read*,d,t print*,"请输入假设波长" read*,l x0=2*3.14159265359*d/l do while(kk
用exp算，并设置趋近值
