Question

全战仪线路计算

全战仪线路计算这个功能有点不懂，，谁给我讲讲呀

Answer 1

N=0：Z[1]=0：Z[2]=0：Z[3]=0：Z[4]=0  进入坐标迭代计算 
Lbl 2：N=N+1：H=2(K-A)÷M：R=NH÷2+A：R=C+180÷π×(I+(J-I)÷2÷(B-A)×(R-A))×(R-A)：Int(N÷2)=N÷2=>Z[1]=Z[1]+cosR：Z[2]=Z[2]+sinR：≠=>Z[3]=Z[3]+cosR：Z[4]=Z[4]+ sinR△N=M=>Goto 3：≠>Goto 2 Lbl 3： 
X=F+H÷6×(cosC+4Z[3]+2Z[1]-cosR)+Lcos(R+W)： Y=G+H÷6×(sinC+4Z[4]+2Z[2]-sinR)+Lsin(R+W)： V=2=>Goto 6△ X"Xi="▲ Y"Yi="▲ 
R"FW"=R-360Intg(R÷360) ▲ Q=0=>{KLW}：Goto 1 ：≠> Goto 0 
Lbl 6： Pol(T"XF"-X,U"YF"-Y)    进入桩号求算 O=Icos(J-R)：AbsO≤0.0001=>O"DL"▲K=K+O▲  O"LP"=Isin(J-R)▲ 
{TU}：Goto 6：≠=>K=K+O：L=0：Goto 4 
线元要素数据文件格式：K>起点桩号=> A"K1"=？：B"K2"=？：C"FW0"=？：D"R1"=？：E"R2"=？：F"X0"=？：G"Y0"=？：K> B=>A=B：B=？„„（下曲线要素）     
注：a、功能：利用公路通用复化辛卜生积分公式进行中边桩坐标计算及已知坐标反算桩号。 b、输入： 
V=1=>XY： 2=>Ki分别进入坐标计算、桩号反算 
Q“one=0：0、2„„”要素直接辒入按0，否则戉嵌套对应文仲要素表计算，嵌套几个文件自己需要定。 
 K1、K2 、FW0、R1、 R2-------曲线起点、终点里程、曲线起点方位角、曲线起点、终点半径 (左-、右+，0为直线) X0、Y0-------曲线起点坐标 Ki------------曲线待求点里程 BL-----------求炩左右偏距(左-右+)  ANG-------- -求点的右斜交角 
XF、YF-------求桩号的点坐标（反算程序） 输出： 
X、Y-------,-曲线求得坐怇 FW-----------待求点的切线方位角 
 DL、K+O、LP分别为桩号误差、求得桩号、左右偏距(左-右+)（反算程序） 
  当曲线的设计半径较小时，为保证点位计算精度，M(即程序中n的2倍)的取值可适当的大些。M为偶数，直线时M=2即可，经计算M=16即可满足半径为60的小半径曲线精度。 

            
6、  a多边形面积计算（一） Prog：Area 
Lb1 0：S=0：L=0：E“X0”：F“Y0”：A=E：B=F 
Lb1 1：{CD}：C“Xi： Xi＝X0，Yi=Y0 ＝＞END”：D“Yi”：M=√（（C-E）2+（D-F）2）：S=S+（AD-CB）：L=L+√（（C-A）2+（D-B）2）：A=C：B=D：S=0＝＞Goto 1： Lb1 3：M＞0=＞Goto 1：≠＞S“Area”=Abs S÷2▲L▲ 注：a、公式：Area =（∑（XiYi+1-Xi+1Yi））÷2 b、功能：已知多边形各转点坐标，计算多边形面积。 c、输入：X0、Y0——起点坐标 
         Xi、Yi——各点坐标（按顺序输入、最后要闭合即最后一点要输入起点坐标） d、输出：Area——面积             L——周长 b、多边形面积计算（二） Prog：Area 
Lb1 0：S=0：L=0： A“X0”：B“Y0”：：C“X1”：D“Y1”: L=√（（C-A）2+（D-B）2） 
Lb1 1：{EF}：E“Xi：Xi＝X0÷Yi=Y0＝＞END”: F“Yi”：L=L+√（（E-C）2+（F-D）2）:M=√（（E-A）2+（F-B）2）:S=S+(C(F-B)+E(B-D)+A(D-F))÷2：C=E:D=F : S=0＝＞Goto 1 
Lb1 2：M＞0=＞Goto 1：≠＞S“Area”=Abs S▲ L▲ 
注：a、公式：Area =∑{（（Xi（Yi+1-Y0）+ Xi+1（（Y0- Yi）+ X0（Yi- Yi+1））÷2} b、功能：已知多边形各转点坐标，计算多边形面积。 c、输入：（X0、Y0）、（X1、Y1）——起始边坐标 
         Xi、Yi——各点坐标（按顺序输入、最后要闭合即最后一点要输入起点坐标） d、输出：Area——面积             L——周长 7、道路土方计算 a、土方（棱台法） Prog：TFa 
Lb1 0：T=0：W=0：F“K0+”：A“AT0”：B“AW0” 
Lb1 1：{CDE}：E“Ki=-1＝＞end”：E=-1＝＞Goto 6：≠＞C：“ATi”：D“AWi”：L=E-F 
Lb1 2：C>A： ＝＞Goto 3： ≠＞M=C÷A： Goto 4 Lb1 3：M=A÷C： Goto 4 
Lb1 4：O=(A+C)L(1+√M÷(1+M)) ÷3：D>B＝＞M=B÷D： Goto 5： ≠＞M=D÷B Lb1 5：P=(B+D)L(1+√M÷(1+M)) ÷3：T=T+O：W=W+P：A=C：B=D：F=E： Goto 1 Lb1 6：T“TF” ▲W“WF” ▲“end” 
注：：a、公式：V =（A1+A2）L（1+√m÷(1+m)）÷3 m=A1÷A2(其中A1>A2) 
b、功能：已知路线各桩填表挖断面积，计算路线填挖量。 c、输入：K0+、AT0： AW0——起点桩号、填方面积、挖方面积 

         Ki、ATi、AWi——各桩号、填方面积、挖方面积（结束运行计算结果Ki输入—1） 
d、输出：TF、WF——填方、挖方体积 b、土方（平均断面法） Prog：TFb 
Lb1 0：T=0：W=0：F“K0+”：A“AT0”：B“AW0” 
Lb1 1：{CDE}：E“Ki=-1＝＞end”：E=-1＝＞Goto 3：≠＞C：“ATi”：D“AWi”：L=E-F 
Lb1 2：T=T+（C+A）L÷2：W=W+（D+B）L÷2：A=C：B=D：F=E： Goto 1 Lb1 3：T“TF” ▲W“WF” ▲“end” 注：：a、公式：V =（A1+A2）L÷2 
b、功能：已知路线各桩填挖断面积，计算路线填挖量。 
c、输入：K0+、AT0： AW0——起点桩号、填方面积、挖方面积 
         Ki、ATi、AWi——各桩号、填方面积、挖方面积（结束运行计算结果Ki输入—1） 
d、输出：TF、WF——填方、挖方体积