g = zeros(512);pi=3.1415926535 nx=256;ny=256;dx=400;dy=400;r=500;density=0.2;h=6000;gg=6.67;m=4.*pi*r*r*r*density/3.;gmh=gg*m*h;hh=h*h;for j = 1 : ny y=(j-ny/2)*dy;yy=y*y;for i = 1 : nx x=(i-nx/2)*dx;xx=x*x;r2=sqrt(xx+yy+hh);...
使用f2c这个程序可以将fortran自动转换成c google一下f2c