1、1CASIO-4800 完整缓和曲线任意中边桩坐标计算 (绝对正确实用)DEFM 4Lbl 0:Z,S,O,UA:B:C”JDX”:D”JDY”:E”JD”:R:Y”LS”:T”LC”:L:JLbl 2:Z【1】=E-T: Z【2】= Z【1】+Y: Z【3】= Z【2】+L: Z【4】= Z【3】+Y:ZZ【1】=GOTO 3: =ZZ 【1】=GOTO 4Lbl3:Q”X(Z1)”=C+T*COS(A+180) V”Y(Z1)” =D+T*SIN(A+180) K=A: GOTO DLbl 4: ZZ【2】=GOTO 5: =ZZ【2】=GOTO 7Lbl 5: F=(Z- Z【1】)-(
2、 Z- Z【1】)5/(40R2Y2)I=(Z- Z【1】)3/(6RY)- (Z- Z【1】)7/(336R3Y3):M=A+30*J*( Z- Z【1】)2/(RY)Lbl 6: Q”X(H1)”=C+T*COS(A+180)+ ABS(F2+I2)1/2*COS MV”Y(H1)” =D+T*SIN(A+180) + ABS(F2+I2)1/2*SIN MK=A+90*J( Z- Z【1】)2/(RY): GOTO DLbl 7: ZZ【3】=GOTO 8: =ZZ【3】=GOTO ALbl 8: M=A+90*J*Y/(R)+90*J*( Z- Z【2】) /(R): F=R SIN(
3、180*( Z- Z【2】) /(R):I=R(1-COS(180*( Z- Z【2】) /(R):N= A+30*J*Y/(R):P= ABS(Y-Y3/(40R2) 2+(Y2/(6R) 2) 1/2Lbl 9: Q”X(C)”=C+T*COS(A+180)+ ABS(F2+I2)1/2*COS M+P*COS NV”Y(H1)” =D+T*SIN(A+180) + ABS(F2+I2)1/2*SIN M+P*SIN NK=A+180*J*(Y/2+Z- Z【2】) /(R): GOTO DLbl A: ZZ【 4】=GOTO B: =ZZ【4】= Q”X(Z2)”=C+T*COS BV”
4、Y(Z2)” =D+T*SIN BK=B: GOTO DLbl B: F=(Z【4】- Z)-( Z【4】- Z)5/(40R2Y2) :I=( Z【4】- Z)3/(6RY): M=B-30*J*( Z【4】- Z)2/(RY)Lbl C: Q”X(H2)”=C+T*COS B- ABS(F2+I2)1/2*COS MV”Y(H1)” =D+T*2SIN B -ABS(F2+I2)1/2*SIN MK=B-90*J(Z【4】 - Z)2/(RY)Lbl D: W”X(L)”=S”LD”*COS(K+180+U)+QH”Y(L)”=S*SIN(K+180+U)+VX”X(R)”=O”RD”*C
5、OS(K+U)+QH”Y(L)”=O*SIN(K+U)+VGOTO 02 楼：孙臻 楼主 回 评：+2 分如果有人对本内容有什么疑问的话可与本人电话联系，本人的电话是本人一定会给你满意的回答本人想多交一些这方面的朋友，还有就是如果哪些朋友需要一些特殊线型的程序的话本人也乐意做详尽的解答3 楼：xyj7405 回楼主对程序是不是应该做个解释说明4 楼：孙臻 楼主 回好的,本人因为时间少,忘了做说明了.在这做个说明 A:第一个切线边方位角 B:第二个切线边方位角.C,D 交点桩号的 X,Y 坐标,E:交点桩号,R 圆曲线半径,Y;缓和曲线长度.T:切线长度.L;圆曲线长度.J;线路左转为-1,右转
6、为+1.Z;待算点里程桩号.还有就是 lbl9 中 V“y(H1)“改为 V“Y(C)“即可,lbl C 中 V“Y(H1)“改为 V“Y(H2)“就可以了，lbl D 中 H“Y(L)“改为 H“Y(R)“就可以了，以上的修改都是显示的问题，计算出来的结果是正确的计算式中“X 或 Y(H）表示计算点的桩号在第一段缓和曲线上，X 或 Y（C)中表示计算点的桩号在圆曲线上，X 或 Y（H2)中表示计算点的桩号在第二段缓和曲线上，X 或 Y（R)表示线路右侧点的坐标X 或 Y（L)表示线路左侧点的坐标S 是中线到左侧的距离，O 是中线到右侧的距离，U 是线路边线与线路中线斜交的角度，正常的正交取就可以了回
