4850程序.docVIP

4850程序 Pro个“名称”：{OPQB} ：O“XA”：P“YA”Q“F°”：B“Z（Y）”：D=Q+BA：Z[1]=O+Fcos Q：Z[2]=P+Fsin Q:Z[3]=Z[1]-Tcos Q:Z[4]=Z[2]-Tsin Q: {KLHN}:K”X0”:L”Y0”:H”XC”:N”YC”:J=0:Pol(H-K,N-L):Z[12]=J:Lbl 0:{K}:KZ=Goto 1ΔKZ[7]=Goto 2ΔKZ[8]=Goto 3ΔKZ[9]=Goto 4ΔX=Z[1]+(K-Z[9]+T)cos D:Y=Z[2]+(K-Z[9]+T)sin D:Goto 9:Lbl 1:L=W-K:X=O-Lcos Q :Y=P-Lsin Q :Goto 9:Lbl 2:L=K-Z:M=√((L∧3÷6RS-L∧7÷336R∧3S∧3)2+(L-L∧5÷40R2TS2)2):U= Q+30L2B÷πRS:Goto 8:[Lbl 3:L=K-Z[7]:Z[5]=Rsin (90(S+2L)÷Πr)+S÷2-S∧3÷240R2:Z[6]=R(1-cos (90(S+2L)÷πR))+S2÷24R:M=√(Z[5]2+Z[6]2):U=Q+Btan-1(Z[6]÷Z[5]):Goto 8:Lbl 4:L=Z[9]-K:Z[5]=T-L+L∧5÷40R2S2:Z[6]=L∧3÷6RS-L∧7÷336R∧3S∧3:C=T+Z[5]cos A-Z[6]sin A:E=Z[5]sin A+Z[6]cos A:M=√(C2+E2):U=Q+Btan-1 (E÷C):Goto 8:Lbl 8:X=Z[3]+Mcos U:Y=Z[4]+Msin U:Goto 9:Lbl 9:Z[13]=X:Z[14]=Y:Goto 7:Lbl 7:X⊿ Y⊿ I=0:Pol(X-H,Y-N):Z[10]=I:Z[11]=J:F=Z[11]-Z[12]+180:F0=F=F+360ΔF360=F=F-360ΔF”Deg”⊿ Z[10]”S’ ⊿ C=√((X-Z[15])2+9Y-Z[16]2)⊿ Z[15]=X:Z[16]=Y:{G}:G”BZ”:G=0=Goto 0ΔG0=G=Abs G:M=-1:≠=M=1ΔKZ=V=Q+90M:Goto 6ΔKZ[7]=V=Q+90L2B÷πR+90M:Goto 6ΔV=Q+AB+90M:Goto 6ΔLbl 6:X=Z[13]+Gcos V:Y=Z[14]+Gsin V:Goto 7 一、 程序简介本套程序是共有2个主程序，7个子程序。包括了路线坐标正反算、竖曲线、超高加宽、边坡放样及断面计算等程序。适用于CASIO4800/4850，4850用户需要修改清单内结果显示的字段（例如：?X“X=”◢?改为?“X=”：X◢?或?G“Z”=H+G◢?改为“Z=”：G=H+G◢）。二、 程序功能本着用最懒的方法做最繁杂的事（当然认真更重要！），根据不同需要，本程序共设置了6种计算模式J-JSMS：1-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=平面坐标。2-FI，放样1模式：适用于路面施工放样，里程桩号及边距=平面坐标、路面高程。3-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=里程、边距。4-F2，放样2模式：适用于路基施工放样，任意点坐标=里程、边距、填挖高度，边坡超欠挖宽度，最近平台高度（1.5）。5-Z0，设计高程计算，即竖曲线计算，里程桩号=设计高程。6-DM，断面计算，里程桩号、边距=设计高程、加宽值、指定边桩的高程。三、 计算范围平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不等长，即可以算卵形曲线，回头曲线竖曲线：前交点SYZ到后交点SZY中的任意桩号 四、 数据输入及各计算模式运行过程1、正算模式：1-ZS，运行主程序J-PQX（平曲线），计算过程如下：显示 输入 计算结果 备注DJ？ 交点桩号 JDX？ 交点X值 JDY？ 交点Y值 FJ？ 计算方位角 ZJ：Z-，Y+？ 交点转角 左转为负值，右转正值R？ 圆曲线半径 LS1？ 第一缓和曲线 LS2？ 第二缓和曲线 T1= 前切线 T2= 后切线 L= 曲线长度 E= 外距 ZH= ZH桩号 若不计算平曲线要素桩号，程序清单J-PQX内有下划线部分可以不写入计算器内。HY= HY桩号 QZ= QZ桩号 YH= YH桩号 HZ= HZ桩号 1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？ 计算模式选择，此模式请输入：1 总共有6种计算模式供选择，符号说明见“二、程序功能”。P？ 待求点桩号 BZ？ 边桩距离 左边为负