CASIO4500坐标计算程序.docVIP

CASIO4500坐标计算程序 2007-02-12 10:37 CASIO4500坐标计算程序?HUANHEQUXIANK〝JD〝D〝LS〝：B=D2/24R：M=D/2-DB/10RT=M+tan.5A(R+B)▲L=∏RA/180+D▲E=(R+B)/cos.5A-R▲Z〝ZH〝=K-T▲H〝HY〝=Z+D▲Q〝QZ〝=?Z+L/2▲J〝YH〝=Z+L-D▲O〝HZ〝J+D▲prog?1▲ N〝N=1＝＞V〝:P:prog?3:L=W:Fixm??Lb1?2:｛S｝:S〝KX〝:S＞J＝＞Goto4△S＞H＝＞Goto3△U=S-Z:E=U-UXY5/40R2D2:F=UXY3/6RD:Goto5???Lb1?3:U=90(2S-2H+D)/?∏R:E=RsinU+M:F=R-RcosU+B:Goto5???Lb1?4:F=O-S:D≠0＝＞I=30F2/∏RD△V=F-FXY3/90R2:N=1＝＞U=360-A:F=180-A+I:?≠＝＞U=A:F-180+A-I△E=T+TcosU+VcosF:F=TsinU+VsinF:Goto1???Lb1?5:N=1＝＞F=-F△Lb1?1:X=E:Y=F:P=1＝＞prog2:?prog4△:?prog3:W=W-L:W＜0＝＞W=W+360△V:?〝S〝▲W:?〝R〝▲Goto2 ???X=C+EcosL-FsinL▲Y=G+EsinL+FcosL▲ C〝X0〝G〝Y0〝:Pol(X-C,Y-G):W＜0＝＞W=W+360△W ???D≠0＝＞Q＝＞90U2/∏RD△Fixm:I=A-3I:N=1＝＞Q=-Q:U=-U:I=-I△S＜H＝＞F=L+Q≠＝＞S＞J＝＞F=L+I:?≠＝＞F=L+U△△V=1:?｛E｝:E〝＜B〝:F〝R〝=F+E:Lb1?6:?｛I｝:I〝SL〝:X+IcosF▲Y+IsinF▲V＜2＝＞V=V+1：Goto6△ZHI??XIAN???E〝X0〝F〝Y0〝A〝R0〝K〝CZ〝:Lb1?1:?｛S｝=S〝KX〝:D=S-K:X=E+DcosA▲Y=F+DsinA▲V=1:Lb1?2:?｛BI｝:H=A+B-180:I〝SL〝:X+IcosH▲Y+IsinH▲V＜2＝＞V=V+1:Goto2△Goto1 计算要素：JD——交点里程?????????????????????????????LS——缓和曲线长R?——圆曲线半径???????????????????????????A?——线路转角T?——切线长???????????????????????????????L?——圆弧总长度E?——外矢距???????????????????????????????N?——曲线方向，左偏取“1”，右偏取“0”P?——取“1”??????????????????????????????X0.Y0——ZH点坐标X.Y——交点坐标????????????????????????????KX——待求点里程B?——与中线夹角???????????????????????????SL——边距，左“+”；右“-” ------------------------------------------------------------------------------------------------------------------------------------------------------------------------CASIO4800超高计算程序?超高及高程（源程序）L1:?R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(G－F)÷2:X“X(R+1,L-1)”:P“P(R+,L-1)”L2:?Lbl?6?:?｛S｝L3:?S+T－N0?D=O+(S－N)F:?S－N0?D=O+(S－N)F－U(S－N+T)2÷2÷V:?S－N≤T?D=O+(S－N)G－U(T－S+N)2÷2÷V:?D=O+(S－N)G?D“?H=”?◢?L4:?R?E=?:?M=?Goto?1:?R?E=?:?M=?Goto?1:L5:?Lbl?1?:?M?≥?L?C=L:?Goto?2:?C=ML6:?Lbl?2?:?P?X?0?Goto?3?:?Goto?4L7:?Lbl?4?:?S?≤Z?I=0.02?:?Goto?5:?SZ+C?I=0.02－(0.02－EPX)÷C×(S－Z)?:?Goto?5:?SH－C?I=EPX?:?Goto?5:?SH?I=EPX+(0.02－EPX)÷C×(S－H+C)?:?Goto?5:?I=0.02?:?