高斯正反算程序代碼-資料下載頁
2025-07-07 16:21本頁面
【正文】 =a*(1e*e)。 m2=*e*e*m0。 m4=*e*e*m2。 m6=*e*e*m4。 m8=*e*e*m6。 a0=m0+m2/+*m4+*m6+*m8。 a2=m2/+m4/+*m6+*m8。 a4=m4/+*m6+*m8。 a6=m6/+m8/。 a8=m8/。 X=a0*Ba2/*sin(2*B)+a4/*sin(4*B)a6/*sin(6*B)+a8/*sin(8*B)。 printf(\t\tX=%\n,X)。 n0=a。 n2=*e*e*n0。 n4=*e*e*n2。 n6=*e*e*n4。 n8=*e*e*n6。 sin2B=pow(sin(B),2)。 sin4B=pow(sin(B),4)。 sin6B=pow(sin(B),6)。 sin8B=pow(sin(B),8)。 N=n0+n2*sin2B+n4*sin4B+n6*sin6B+n8*sin8B。 printf(\t\tN=%\n,N)。 *x=X+N/*t*cos(B)*cos(B)*l*l+N/*t*(5t*t+9*u2+4*pow(u2,2))*pow(cos(B),4)*pow(l,4)+N/*t*(6158*t*t+pow(t,4))*pow(cos(B),6)*pow(l,6)。 *y=N*cos(B)*l+N/*(1t*t+u2)*pow(cos(B),3)*pow(l,3)+N/*(518*t*t+pow(t,4)+14*u258*u2*t*t)*pow(cos(B),5)*pow(l,5)。}long double Bf(long double a,long double b,long double x){ long double e,m0,m2,m4,m6,m8。 long double a0,a2,a4,a6,a8。 long double B,FB,Bn1,Bn。 int n=0。 e=(sqrt(a*ab*b))/a。 m0=a*(1e*e)。 m2=*e*e*m0。 m4=*e*e*m2。 m6=*e*e*m4。 m8=*e*e*m6。 a0=m0+m2/+*m4+*m6+*m8。 a2=m2/+m4/+*m6+*m8。 a4=m4/+*m6+*m8。 a6=m6/+m8/。 a8=m8/。 B=x/a0。 FB=a2/*sin(2*B)a4/*sin(4*B)+a6/*sin(6*B)a8/*sin(8*B)。 do { Bn=B。 B=(x+FB)/a0。 FB=a2/*sin(2*B)a4/*sin(4*B)+a6/*sin(6*B)a8/*sin(8*B)。 Bn1=B。 } while(fabs((Bn1Bn)*P)=)。 return(B)。}void GSFS(long double a,long double b,long double Bf,long double y,long double *B,long double *l){ long double e,e1,V,t,u2。 long double n0,n2,n4,n6,n8,sin2B,sin4B,sin6B,sin8B,N。 e=(sqrt(a*ab*b))/a。 e1=(sqrt(a*ab*b))/b。 V=sqrt(1+e1*e1*cos(Bf)*cos(Bf))。 t=tan(Bf)。 u2=e1*e1*cos(Bf)*cos(Bf)。 n0=a。 n2=*e*e*n0。 n4=*e*e*n2。 n6=*e*e*n4。 n8=*e*e*n6。 sin2B=pow(sin(Bf),2)。 sin4B=pow(sin(Bf),4)。 sin6B=pow(sin(Bf),6)。 sin8B=pow(sin(Bf),8)。 N=n0+n2*sin2B+n4*sin4B+n6*sin6B+n8*sin8B。 printf(\t\ttf=%\n\t\tVf=%\n,t,V)。 *B=*V*V*t*((y/N)*(y/N)*(5+3*t*t+u29*u2*t*t)*pow((y/N),4)+*(61+90*t*t+45*pow(t,4))*pow((y/N),6))。 *l=(Bf)*((y/N)*(1+2*t*t+u2)*pow((y/N),3)+*(5+28*t*t+24*pow(t,4)+6*u2+8*u2*t*t)*pow(y/N,5))。}歡迎您的光臨，！希望您提出您寶貴的意見，你的意見是我進(jìn)步的動力。贈語； 如果我們做與不做都會有人笑，如果做不好與做得好還會有人笑，那么我們索性就做得更好，來給人笑吧！ 現(xiàn)在你不玩命的學(xué)，以后命玩你。我不知道年少輕狂，我只知道勝者為王。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會做“金錢、權(quán)利”的主人。什么時候離光明最近？那就是你覺得黑暗太黑的時候。最值得欣賞的風(fēng)景，是自己奮斗的足跡。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。學(xué)習(xí)參
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1