非对称缓和曲线坐标计算程序.docVIP

?非对称缓和曲线坐标计算程序 ?CASIO fx-4800P QXZB曲线坐标计算 CASIO4800 QXZB可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：? 该程序适用于计算器 CASIO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。1、DK(JD)？输入交点桩号 2、X(JD)？ 输入交点坐标X 3、Y(JD)？ 输入交点坐标Y 4、T1？ 输入第一切线长(如果只有一条切线两者都输入一致) 5、T2？ 输入第二切线长(如果只有一条切线两者都输入一致) 6、FWJ？输入直线方位角(ZH→JD) 7、A？? 输入转角：左转为负，右转为正8、R？ ?输入圆曲线半径9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致) 10、LY？输入圆曲线长(L-LS1-LS2) 11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)12、X(ZJD)？输入置镜点坐标X 13、Y(ZJD)？输入置镜点坐标Y 14、JSDK？输入前视点里程 15、PL？输入偏距 16、PA？输入偏角 ? 程序下载地址：? /blog/post/QXZB-4800.html ? 评价答案 您已经评价过！ 好:18 您已经评价过！ 不好:1 您已经评价过！ 原创:18 您已经评价过！ 非原创:0 菲メ帆ぅ 回答采纳率:52.8% 2010-06-02 17:37 满意答案 好评率：57% （for Casio-fx4850） 扩展变量操作（15个）：Defm 15←┚ ( O为字母 、0为数字) J-PQX (平面数据输入，自行切换到J-JSMS) Defm 15←┚ A“JD” B“JDX” C“JDY” F“FWJ” O“A0：Z-，Y+” RE“LS1” K“LS2”：E1=E=1E-9⊿K1=K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]= E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs O :“T1=”:Z[3]=(R+Z[1])tan(Abs O÷2)+Z[2]-X◢ “T2=”:Z[4]=(R+KK÷24R-K∧4÷2688RRR)tan(Abs O ÷2)+K÷2-KKK÷240RR+X◢ “L=”:L=Abs OπR÷180+(E+K)÷2◢ J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E=”:X=(R+Z[1])÷sin J-R◢ X=A-Z[3]:Y=X+E:E1=“ZY=”:X◢ ≠= “ZH=”:X◢ “HY=”:Y◢ ⊿ “QZ=”:Y =X+(L-K-E)÷2+E◢ Y=X+L-K:X=X+L:K1= “YZ=”:X◢ ≠= “YH=”:Y◢ “HZ=”:X◢ ⊿Prog“J-JSMS” ←┚ J-JSMS（放样模式主程序） “1-ZS, FY,3-FS”: Lb1 0:{Z}: Z“MS”≤2=Goto 1: ≠= Z≤4= Goto2 ⊿⊿←┚ Lb1 1 :Q“X-YIQI”S“Y-YIQI”T“X-HOUSI”U“Y-HOUSI”:{PDW}:P“F=”D“BZ=”W“BJ=”: Prog“JP”: Prog“FY”: Goto 1←┚ Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”: “P=”: P◢ “BZ=”: D◢ JP（平曲线正算子程序） Fixm←┚ Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E←┚ P≤A-Z[3]=I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5←┚ ≠=P≤A-Z[3]+E=I=P-A+Z[3]:H=90II÷REπ:O0=H=-H⊿H=H+W+F:Goto 3←┚ ≠=P≤A-Z[3]+L-K=I=P-A+Z[3]-E:Goto 4: ≠=Goto 2⊿⊿←┚ Lb1 2 :X= B+Z[4]cos(F+O :Y= C+Z[4]sin(F+O :J=F+O+180:G=K←┚ P≤A-Z[3]+L=I=A-Z[3]+L-P:H=90II÷RKπ:O0=H=-H⊿H=H+J+W+180:Goto 3 ←┚ ≠=I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5 ←┚ Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚ Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:O0=H=-H⊿H=J+H+W: Goto 5←┚ Lb1 5 :P≤A-Z[3]+L-K= O0=N=-N⊿≠=O0=N=-N⊿⊿Got