曲线上任意点中边桩坐标计算

概要：prog“QXY”:H=1=>Q=0⊿I=D:J=F+(Q+E)Z÷AbsZ:W=F+(Q+2E)Z÷AbsZ: Goto 3⊿↙K≤V=>D=V-K:O=Z[2]:prog“QXY”:J=C:W=C-2A:U=180+U⊿↙Lbi 3:X"XY” =O+I(cosJ+isinJ)+B(cos(W+U)+isin(W+U))▲ Y=x+yi:J=Arg(X-Y):J<0=>J=J+360:≠>J△J“FWJ”=J▲I=Abs(X-Y)▲ ((x+yi)为置仪点坐标,输入实际坐标值;例100+100i)二.子程序:QXYA=D-D^5/40R²H²+ D^9/3456R^4H^4+1E-99:C=D³/6RH-D^7/336R³H³+D^11/42240R^5H^5:S=tan¯1(C÷A):I=√(A²+C²):Q=90H÷лR:E=90D÷лR:D=2RsinE:A=SZ÷AbsZ:C=F+Z+180-A三,子程序:TADLbi 0:{KBU}:KBU↙K≤缓直点=>M=转

曲线上任意点中边桩坐标计算,http://www.gczl8.com
曲线上任意点中边桩坐标计算(CASIO fx-4800P可全线计算)第一次修改 一,主程序:PQX
Lbi 0：Defm3:prog“TAD”↙
G=M-T:V=G+L:Z[1]=P+T(cos（F+180）+isin（F+180）)：Z[2]=P+T(cos（F+Z）+isin（F+Z）)：H=0=>Goto 1:≠>D=H:prog“QXY”:Z[3]=Z[1]+I(cos(F+A)+isin(F+A))↙
Lbi 1:K≤G=>D=G-K:O=P:I=D+T:J=F+180:W=F:Goto 3⊿↙
H=0=>Goto 2⊿↙
K≤G+H=>D=K-G:O=Z[1]:prog“QXY” :J=F+A:W=F+3A: Goto 3⊿↙
Lbi 2:K≤G+L-H=>D=K-G-H:H=0=>H=1:O=Z[1]:≠>O=Z[3]⊿prog“QXY”:H=1=>Q=0⊿I=D:J=F+(Q+E)Z÷AbsZ:W=F+(Q+2E)Z÷AbsZ: Goto 3⊿↙
K≤V=>D=V-K:O=Z[2]:prog“QXY”:J=C:W=C-2A:U=180+U⊿↙
Lbi 3:X"XY” =O+I(cosJ+isinJ)+B(cos(W+U)+isin(W+U))▲
Y=x+yi:J=Arg(X-Y):J<0=>J=J+360:≠>J△J“FWJ”=J▲
I=Abs(X-Y)▲    ((x+yi)为置仪点坐标,输入实际坐标值;例100+100i)
二.子程序:QXY
A=D-D^5/40R²H²+ D^9/3456R^4H^4+1E-99:C=D³/6RH-D^7/336R³H³+D^11/42240R^5H^5:S=tan¯1(C÷A):I=√(A²+C²):Q=90H÷лR:E=90D÷лR:D=2RsinE:A=SZ÷AbsZ:C=F+Z+180-A
三,子程序:TAD
Lbi 0:{KBU}:KBU↙
K≤缓直点=>M=转角桩号:P=转角桩号x+yi :F=直缓点方位角: Z=转角(左负右正): R=半径: H=缓和曲线长: T=切线长: L=曲线总长:≠>K≤缓直点=>M=转角桩号:P=转角桩号x+yi :F=直缓点方位角: Z=转角(左负右正): R=半径: H=缓和曲线长: T=切线长: L=曲线总长
… … … … … ⊿
注:
K？输入计算点桩号;
B？输入距中桩距离,左－,右＋;
U？输入与前进方向交角,0~180度
显示:XY=x+yi(x,y则为所求坐标)
     FWJ=XXX...(则为方位角)
     I=XXX...  (则为待求点到置仪点距)