5800交点法坐标计算程序（带数据库）编程问题请教 10
1、主程序程序名：1XY-KMLbI0：7→DimZ：Norm2:1→A：”A:X,Y=1，KM,D=2”?A:A=1=>Goto1:A=2=>Goto2:LbI1:Lb...
1、 主程序
程序名：1XY-KM
LbI 0：7→DimZ：Norm 2:1→A：”A:X,Y=1，KM,D=2”?A:
A=1=>Goto 1:A=2=>Goto 2:LbI 1:LbI A:Prog”QX”:90→B:”PJ”?B:B→Z[1]：LbI B:”KM”?Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog”X1”:?D: Prog "Z":I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Fix 3:” X=”：Locate 6,4,X：” Y＝”：Locate 6,4,Y：
Goto B:
LbI 2：Prog”QX”:”KM”?Z：LbI C: Prog”X1”: ”XO”?X:X=-1=>Goto 0:X=-2=>Goto 2: ”Y0”?Y:Prog ”ZX”: Fix 3:” KM＝”：Locate 6,4,Z：” D＝”：Locate 6,4,D◢
Goto C
2. 交点法正算子程序(Z)
程序名：Z
H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P→W:0→M:H→C: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→Z[6]: O-T+∏R×Abs(P)÷180+H÷2-N÷2→Z[7]:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd: If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Z[7]: Then 180(Z-O+T-0.5H)÷R÷∏→S : A+R(1-Cos(S))→B:H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]: A-T→A:G→E :Goto 2: IfEnd:
If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T :N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd:
Z-Z[7]-N+Z[6]→S:G+P→Z[2]: LbI 1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J: Return:LbI 2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J
3. 交点法缓和段子程序(HX)
程序名：HX
S-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4) ÷H∧(4→A:S∧(3) ÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5) ÷H∧(5→B:90S2÷∏÷R÷H→K:RH÷S→M
4. 交点法反算子程序(ZX)
程序名：ZX
0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z[2]→J:Isin(J→S:Icos(J→D: If M≠0:Then Pol(M-WS,D:JM∏÷180→D:IfEnd: LpWhile Abs(D)>0.001:Z+D→Z:S→D
5．线路选择子程序(线路选择输0时。则输曲线参数（QX）
程序名：QX
1→A:”QX:？=0，X1=1,X2=2”?A:A→Z[3]:
If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2”？N：“JDZJ”？P:?R:IfEnd
6．坐标计算参数矩阵调出子程序（F）
程序名：F
Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Mat F[1,5]→H: Mat F[1,6]→N: Mat F[1,7]→P: Mat F[1,8]→R
7．数据子程序(根据自己标段设计数据修改红色部分)
程序名：X1（坐标计算要素程序,暂例子只给二条线路参数）
Z[3]=0=＞Return:Z[3]=1=＞Goto 1:Z[3]=2=＞Goto 2:
LbI 1:If Z≤122269.856:Then [[121656.952, 2603848.019, 508351.147, 98°53′22.6〃,660,300, 41°47′44.1〃, 1415.097]]→Mat F: Prog”F”: Return: IfEnd:
If Z≤125115.9:Then [[123984.982, 2601974.464, 509885.441, 140°41′06.8〃,700,400, －39°31′43.7〃,2800]]→Mat F: Prog”F”: Return:IfEnd:
LbI 2:If Z≤396.166:Then [[213.698, 2600569.493, 514256.323, 238°49′17.1〃,107.584,120.474, 64°39′40〃, 250]]→Mat F: Prog”F”: Return: IfEnd:
以上是我的计算器程序的一部份，我也是网上下的，我编好后计算出的结果是，在直线段，缓和曲线段是正确的，在圆曲线上面是错误的结果，想请问是哪里出了问题，是否这个程序本身存在错误地方？补充：程序可以运行，就是圆曲线上的计算结果是错误的。 展开
程序名：1XY-KM
LbI 0：7→DimZ：Norm 2:1→A：”A:X,Y=1，KM,D=2”?A:
A=1=>Goto 1:A=2=>Goto 2:LbI 1:LbI A:Prog”QX”:90→B:”PJ”?B:B→Z[1]：LbI B:”KM”?Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog”X1”:?D: Prog "Z":I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Fix 3:” X=”：Locate 6,4,X：” Y＝”：Locate 6,4,Y：
Goto B:
LbI 2：Prog”QX”:”KM”?Z：LbI C: Prog”X1”: ”XO”?X:X=-1=>Goto 0:X=-2=>Goto 2: ”Y0”?Y:Prog ”ZX”: Fix 3:” KM＝”：Locate 6,4,Z：” D＝”：Locate 6,4,D◢
Goto C
2. 交点法正算子程序(Z)
程序名：Z
H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P→W:0→M:H→C: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→Z[6]: O-T+∏R×Abs(P)÷180+H÷2-N÷2→Z[7]:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd: If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Z[7]: Then 180(Z-O+T-0.5H)÷R÷∏→S : A+R(1-Cos(S))→B:H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]: A-T→A:G→E :Goto 2: IfEnd:
If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T :N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd:
Z-Z[7]-N+Z[6]→S:G+P→Z[2]: LbI 1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J: Return:LbI 2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J
3. 交点法缓和段子程序(HX)
程序名：HX
S-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4) ÷H∧(4→A:S∧(3) ÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5) ÷H∧(5→B:90S2÷∏÷R÷H→K:RH÷S→M
4. 交点法反算子程序(ZX)
程序名：ZX
0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z[2]→J:Isin(J→S:Icos(J→D: If M≠0:Then Pol(M-WS,D:JM∏÷180→D:IfEnd: LpWhile Abs(D)>0.001:Z+D→Z:S→D
5．线路选择子程序(线路选择输0时。则输曲线参数（QX）
程序名：QX
1→A:”QX:？=0，X1=1,X2=2”?A:A→Z[3]:
If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2”？N：“JDZJ”？P:?R:IfEnd
6．坐标计算参数矩阵调出子程序（F）
程序名：F
Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Mat F[1,5]→H: Mat F[1,6]→N: Mat F[1,7]→P: Mat F[1,8]→R
7．数据子程序(根据自己标段设计数据修改红色部分)
程序名：X1（坐标计算要素程序,暂例子只给二条线路参数）
Z[3]=0=＞Return:Z[3]=1=＞Goto 1:Z[3]=2=＞Goto 2:
LbI 1:If Z≤122269.856:Then [[121656.952, 2603848.019, 508351.147, 98°53′22.6〃,660,300, 41°47′44.1〃, 1415.097]]→Mat F: Prog”F”: Return: IfEnd:
If Z≤125115.9:Then [[123984.982, 2601974.464, 509885.441, 140°41′06.8〃,700,400, －39°31′43.7〃,2800]]→Mat F: Prog”F”: Return:IfEnd:
LbI 2:If Z≤396.166:Then [[213.698, 2600569.493, 514256.323, 238°49′17.1〃,107.584,120.474, 64°39′40〃, 250]]→Mat F: Prog”F”: Return: IfEnd:
以上是我的计算器程序的一部份，我也是网上下的，我编好后计算出的结果是，在直线段，缓和曲线段是正确的，在圆曲线上面是错误的结果，想请问是哪里出了问题，是否这个程序本身存在错误地方？补充：程序可以运行，就是圆曲线上的计算结果是错误的。 展开
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
