第一章电子线路计算.ppt

带电金属丝产生的电势的数值计算 采用抛物线近似计算空间电势，考虑平面情况，设 A为金属丝的半长度，金属丝处在x= -A到x=A的 X 轴上N为金属丝的分割数，N为奇数，即格点数目。 x0，y0代表所求电势点的坐标 要求电势V必须先求一组 的数值，然后得到 值，求和得到V。 DIMENSION F（101） 10 READ（*，40）A，C，X0，Y0，N IF（N. GT. 101. OR. N. LT. 3）STOP IF(N. EQ. 2*(N/2)) STOP ！ 判断奇、偶数 H=2.0*A/FLOAT (N-1) ！计算步长 X=-A V=0.0 DO 20 I=1, N F(I)=C/SQRT ((X-X0) **2+Y0*Y0) ！ 函数值 20 X=X+H 源程序： DO 30 J=2, N-1, 2 30 V=V+(F(j-1)+4.0*F(j)+F(j+1))*H/3.0 WRITE (*, 50) V, X0, Y0 GO TO 10 40 FORMAT (4F10.5, I4) FORMAT (8X, 2HV=, 7X, 3HX0=, 7X, ￥ 3HY0=//3F10.5) END 讨论：将积分