1、CASIO fx-48 匝道坐标程序 0 23.111CASIO-fx48 匝道坐标放样程序 0 XIAN XING ZU （471 步）1 Deg: Defm 154: M“1SURU 6YIZB 7FY”=7 = Goto 2 M=6 = Goto 5 Z“JIZU XIANXIN”: E=Z: 2 T=1: Z5= T : L“1JISUAN 2SHURU”=2 = Goto 4 Fixm :WGHD: Prog“D”: LbI 1: Fixm :3 ABU:Prog“E: S=: Prog“C”:Prog“A”:Isz T: Prog“B”:Dsz Z: Goto 1: Goto 5
2、:4 LbI 2: Fixm : Isz Z5:FS: F“ZHUANG HAO”S“D”: T=1: LbI 3: FZ7T+5= Isz T: 5 TE+1=Goto 3 T=T-1: T1 = T=1: TE+1= T=E Prog“B”: L=F-W: Z520=6 Goto 2: Prog“C”: “END OK! ”:Z3= E -3: N=Z1: O=Z2: K=Z6: L=Z4:7 Prog“F”: V=J: Prog“G”:J-V: Prog“I”: Goto 2:8 LbI 4:Fixm :WGHDABU: Prog“D”: Prog“E”: Prog“A”: W=W+L:
3、 Isz T: Dsz Z: Goto4:Goto 5:9 LbI 5:Fixm :NOKL: Prog“H”: Z1=N: Z2=O: Z6=K: Z4=L: Goto 2(主程序结束)A （子程序） （132 步）1 Z7T+1=G: Z7T+2=H: Z7T+3=U: Z7T+4=D: Z7T+5=W: Z7T+12=W+L: 2 Z7T+6=A: Z7T+7=B: Z7T+11=V-9: Z7T+8=X: Z7T+9=Y B （子程序） （87 步）1 G =Z7T+1: H=Z7T+2: W=Z7T+5: A=Z7T+6: B=Z7T+7: D=Z7T+4: C=Z7T+3C （子程
4、序） （16 步）1 P= Abs CC : C= Abs C: V =D + P( AL + L2 2C(B-A)r +9 : Rad :2 X=L: Y = H + ( (Sin ( D+ P( AX + X 22C(B-A ， ，X ，4 :3 X=L: X = G + ( (Cos ( D+ P( AX + X 22C(B-A ， ，X ，4 : Deg :4 X = X + S cos V Y = Y + S sin V D （子程序） （49 步）1 W“QD ZHUANG HAO”G“X1” H“Y1” D“A1 ”E （子程序） （54 步）1 A “R1”： B “R2”：
5、U “LS”: C=U : L= Abs C: A = A -1 : B = B-1 F （子程序） （3 步）1 Pol( K-N ，L-O + Z3 G （子程序） （3 步）1 Pol( X-N，Y-O + Z3H （子程序） （53 步）1 N“X YIQI”O“Y YIQI”K“X HOUSI”L“Y HOUSI”I (子程序） （65 步）1 Ans = Ans + 36 2 V= Ans: 6 Frac Ans:V “JIAO DU”=Int V +.1 Int Ans + 6m Frac Ans I“S=” CASIO fx-48 匝道坐标程序 0 23.112说明：1. 本程
6、序根据微积分中牛顿-柯特斯（辛普生）公式编制。可对任何线形（直、缓、园、复、卵、回头曲线）上的坐标及边桩坐标进行计算。并在输入置仪点和后视点坐标后及时给出放样所需的角度,边长。2. 本程序一次最多可输入二十组连续线形。若要增加或减少，请将主程序(1)中【Defm 154:】的 154 改为（线形组数量+2）7 即可。 【CASIO-48 扩展内存不能用字母输入是该机的一个设计缺陷。 】3 程序中数据存储在下列寄存器中：线形数量Z, 线形序号T, 起算点坐标 X1Z7T+1,Y1Z7T+2, 曲线长度 LSZ7T+3, 起算点的切线方位角Z7T+4 ，起算点桩号Z7T+5,线形前半径 R1Z7T
7、+6, 线形后半径 R2Z7T+7, 欲求点桩号F , 边桩距离S ，置仪点坐标 XZ1, YZ2, 后视点 XZ6, YZ4 ，T 为线形序号，程序自动计算。4. 本程序直接输入各线形参数时需输入数据起算点桩号，起算点坐标 X,Y; 线形两端半径R1,R2;角，起算点的切线方位线形长度，欲求点桩号，边桩距中线距离。进行计算输入时第一次需输入上述-数据，以后只需输入即可。本程序自动计算下一个线形的起算坐标，桩号，方位角。5. 本程序直线半径输入时因为是无穷大，所以输入直线半径请按【EXP】 【99】 。子程序 C(1)中 V =D + P( AL + L2 2C(B-A)r 的 r 用按键FU
8、NCTION 5 5输入。子程序 C (2,3)中( D+ 的 用按键FUNCTION 5 4输入。子程序 R (2)中( 6m Frac Ans ) 的 m 用按键FUNCTION 1 1输入。6. 本程序中边桩夹角为 9 度，如果要修改，请将子程序 C(1)中 V =D + P( AL + L2 2C(B-A)r +9 的 9 改为你需要的数据。7. 本程序中设置了直接进行计算功能，只要输入 7 可直接进入坐标求解放样功能。还设置了修改置仪点、后视点坐标功能，只要输入 6 可在输入后进入放样功能。但要确保上述寄存器中数据未被破坏。8. 本程序欲求桩号少于或大于起、终点桩号时，线形参数与首末
9、端线形一致时坐标计算结果正确。否则，只能在起、终点桩号内计算。超出该范围桩号计算结果与实际不相符。9. 程序输入中曲线右偏，曲线长度 LS 输入+号。曲线左偏，曲线长度 LS 输入-号。 （切记）1. 程序中输入边桩距离 S 时，线路右边输入+号，线路左边输入-号。11. 程序输完指定的几组参数后会自动提示输入置仪点和后视点坐标。按输入数据方法计算序号 屏 幕 显 示 操 作 说 明1 XIAN XING ZU 【EXE】按【FILE】键，启动该文件。2 1SURU 6YIZB 7FY ? . 1 【EXE】询问是输入数据。坐标或放样，本例输入 1 进入输入线形数据。3 JIZU XIANXI
10、N? 3 【EXE】询问是几个线形。本例按三个输入。4 1JISUAN 2SHURU? 1 【EXE】询问是计算输入或直接输入各线形参数。本例按 1 计算输入。5 QD ZHUANG HAO? 【EXE】询问起点桩号。输入 K+。第一线形按园曲线输入。6 X1? 29.656 【EXE】询问起点坐标，输入坐标，下同。7 Y1? 751.155 【EXE】8 A1? 7636 【EXE】询问输入起点方位角，9 R1? 511.3 【EXE】询问线形前半径，输入。园曲线两端半径相等。1 R2? 511.3 【EXE】询问线形后半径，输入。11 LS? -76.818 【EXE】询问园曲线长。曲线左
11、偏，输入曲线长时输入负号。切记！12 X= 286.31 【EXE】显示园曲线终点坐标，即下一线形起点坐标。13 Y= 754.99 【EXE】14 R1? EXP 99 【EXE】询问输入第二线形前半径，第二线形按直线输入。 15 R2? EXP 99 【EXE】询问输入第二线形后半径，直线两端半径相等且半径无穷大。CASIO fx-48 匝道坐标程序 0 23.113序号 屏 幕 显 示 操 作 说 明16 LS? -76.818 58.489 【EXE】 询问直线长。曲线右偏，输入曲线长时输入正号。17 X= 2144.779 【EXE】 显示直线终点坐标，即下一线形起点坐标。18 Y=
12、 753.375 【EXE】19 R1? EXP 99 【EXE】 询问第三线形前半径，第二线形按直缓线输入。前半径无穷大。2 R2? 8 【EXE】 询问第三线形后半径，缓和曲线后半径与园曲线相接。19 LS? 58.489 5 【EXE】 询问缓和曲线长。曲线右偏，输入曲线长时输入正号。2 X YIQI? 11 【EXE】 询问输入置仪点的坐标 X。19 Y YIQI? 12 【EXE】 询问输入置仪点的坐标 Y。2 X HOOSI? 13 【EXE】 询问输入后视点的坐标 X。23 Y HOUSI? 14 【EXE】 询问输入后视点的坐标 Y。24 ZHANG HAO? 38.49 【E
13、XE】 询问输入欲求点的桩号。25 D? 【EXE】 询问输入欲求点距中线的距离。右边为 +，左边为 -。26 X= 247.912 【EXE】 显示欲求点的坐标 X。27 Y= 754.473 【EXE】 显示欲求点的坐标 Y。END OK! 坐标计算结束。28 JIAO DU= 289.4933842 【EXE】 显示置仪点自后视点到欲求点间顺时针方向夹角。已转换成六十进制角度。2894933.8“为 2894933.8“即 334214.2“29 S= 147.393 【EXE】 显示置仪点到欲求点间平距。3 ZHANG HAO? 16.5 【EXE】 继续重复 24-29 操作。求其他
14、点数据。31 D? -8 【EXE】 （线路前进方向左边，距中线 8 米）32 X= 2169.818 【EXE】 显示欲求点的坐标 X。33 Y= 744.782 【EXE】 显示欲求点的坐标 Y。34 END OK! 坐标计算结束。35 JIAO DU= 291.5659266 【EXE】 显示置仪点自后视点右转到欲求点间顺时针方向夹角。已转换成六十进制角度。即 2915659.3“36 S= 1162.641 显示置仪点到欲求点间平距。37 AC AC 退出程序。重新计算38 XIAN XING ZU 【EXE】 按【FILE】键，启动该文件。39 1SURU 6YIZB 7FY ? 1
15、6 7 【EXE】 询问是输入或直接放样，本例输入 7 进入放样程序。4 ZHANG HAO? 76.818 【EXE】 询问输入欲求点的桩号。41 D? 【EXE】 询问输入欲求点距中线的距离。右边为 +，左边为 -。42 X= 286.31 【EXE】 显示欲求点的坐标 X。43 Y= 754.99 【EXE】 显示欲求点的坐标 Y。END OK! 坐标计算结束。44 JIAO DU= 29.4242539 【EXE】 显示置仪点自后视点到欲求点间顺时针夹角。已转换成六十进制角度。294253.9“即 334214.2“45 S= 182.87 【EXE】 显示置仪点到欲求点间平距。继续重
16、复 24-29 操作。求其他点数据【AC】 退出程序。CASIO fx-48 匝道坐标程序 0 23.114按直接输入方法序号 屏 幕 显 示 操 作 说 明1 XIAN XING ZU 【EXE】 按【FILE】键，启动该文件。2 1SURU 6YIZB 7FY ? 1 【EXE】 询问是输入或直接计算坐标，本例输入 1 进入输入线形数据。3 JIZU XIANXIN? 4 【EXE】 询问是几个线形。本例按三个输入。4 1JISUAN 2SHURU? 2 【EXE】 询问是计算输入或直接输入各线形参数。本例按 2 直接输入。5 QD ZHUANG HAO? 254.75 【EXE】 询问起
17、点桩号。输入 K+254.75。第一线形按缓和曲线输入。6 X1? 2263.472 【EXE】 询问起点坐标，输入坐标，下同。7 Y1? 755.364 【EXE】8 A1? 32521“ 【EXE】 询问输入起点方位角。9 R1? EXP 99 【EXE】 询问线形前半径，输入。缓和曲线前半径无穷大。1 R2? 8.2 【EXE】 询问线形后半径，缓和曲线后半径与下一园曲线半径相等。11 LS? -5 【EXE】 询问缓和曲线长。曲线左偏，输入曲线长时输入负号。切记！12 QD ZHUANG HAO? 34.75 【EXE】 显示第二起点桩号。程序已算好，不必输入。核对一下即可。13 X1
18、? 【EXE】 重复 6-12 步骤，直到指定的几组线形参数输入完毕。重复 2-45 步骤，直到按 AC AC 退出程序。修改置仪点和后视点坐标后放样方法1 XIAN XING ZU 【EXE】 按【FILE】键，启动该文件。2 1SURU 6YIZB 7FY ? 6 【EXE】 询问是输入起算数据。或输入仪器站、后视点坐标，或放样， 本例输入 6 进入输入仪器站、后视点坐标功能。3 X YIQI? 1 【EXE】 询问输入置仪点的坐标 X。4 Y YIQI? 2 【EXE】 询问输入置仪点的坐标 Y。5 X HOOSI? 3 【EXE】 询问输入后视点的坐标 X。6 Y HOUSI? 4 【EXE】 询问输入后视点的坐标 Y。7 ZHANG HAO? 38.49 【EXE】询问输入欲求点的桩号。8 D? 【EXE】询问输入欲求点距中线的距离。右边为 +，左边为 -。9 X= 247.912 【EXE】显示欲求点的坐标 X。1 Y= 754.473 【EXE】显示欲求点的坐标 Y。END OK! 坐标计算结束。11JIAO DU= 33.532382 【EXE】 显示置仪点自后视点到欲求点间顺时针方向夹角。已转换成六十进制角度。为 33532.4“12 S= 225.291 【EXE】显示置仪点到欲求点间平距。13 重复 7-11 步骤，直到按 AC AC 退出程序。
