路桥隧 - 免费·分享·共赢

标题: [无错]CASIO4800坐标计算程序 [打印本页]
作者: admin    时间: 2005-3-21 20:54
标题: [无错]CASIO4800坐标计算程序
CASIO4800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序 1、该程序适用于计算器 CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。 2、A？ 输入转角：左转为负，右转为正 3、R？ 输入圆曲线半径 4、LS？ 输入缓和曲线长度 5、JD？ 输入交点桩号 6、J？ 输入0程序计算中桩，输入1程序计算边桩 7、N？ E？ 输入交点X、Y坐标 8、FW 待求点切线方位角 9、当计算交角为60°时，则公式改为（U+60），（U-120）

1 A：R：C“LS”：D“JD” 2 P=C∧2/24/R-C∧4/2688/R∧3 3 Q=C/2-C∧3/240/R∧2 4 B=90C/兀/R 5 T=(R+P)tan(AbsA/2)+Q◢ 6 W=(R+P)/cos(A/2)-R◢ 7 L=((AbsA)-2B)兀R/180+2C◢ 8 G=D-T◢ 9 H=G+C◢ 10 I=G+L/2◢ 11 K=G+L-C◢ 12 M=G+L◢ 13 N：E：F: J 14 A＜0=>S=-1:≠=>S=1⊿ 15 U=F+A/2+90S 16 V=W+R 17 B=N+VcosU 18 O=E+VsinU 19 Lbl 1 20 {Z} 21 Z≤G=>L=T+G-Z 22 V=F+180 23 U=F 24 Goto 2⊿ 25 Z≤H=>L=Z-G 26 V=L-L∧5/(90R∧2C∧2) 27 L=30L∧2S/(兀RC) 28 P=F+180 29 Q=F+L 30 U“FW”=F+3L◢ 31 Goto 4⊿ 32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀 33 U“FW”=L+90S◢ 34 Goto 5⊿ 35 Z≤M=>L=M-Z 36 V=L-L∧5/(90R∧2C∧2) 37 L=30SL∧2/(兀RC) 38 P=F+A 39 Q=F+A+180-L 40 U=F-3L+A◢ 41 Goto4⊿ 42 Z>M=>L=Z-M+T 43 U=F+A 44 V=U 45 Goto 2 46 Lbl 2 47 X=N+LcosV◢ 48 Y=E+LsinV◢ 49 Goto 6⊿ 50 Lbl 3 51 {W} 52 P“XL”=X+Wcos(U-90) ◢ 53 Q“YL”=Y+Wsin(U-90) ◢ 54 P“XR”=X+Wcos(U+90) ◢ 55 Q“YR”=Y+Wsin (U+90) ◢ 56 Goto 1 57 Lbl 4 58 X=N+TcosP+VcosQ◢ 59 Y=E+TsinP+VsinQ◢ 60 Goto 6 61 Lbl 5 62 X=B+R cosL◢ 63 Y=O+RsinL◢ 64 Goto 6 65 Lbl 6 66 J=1=> Goto 3⊿ 67 Goto 1

作者: admin    时间: 2005-3-21 20:54
标题: [无错]CASIO4800坐标计算程序
CASIO4800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序 1、该程序适用于计算器 CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。 2、A？ 输入转角：左转为负，右转为正 3、R？ 输入圆曲线半径 4、LS？ 输入缓和曲线长度 5、JD？ 输入交点桩号 6、J？ 输入0程序计算中桩，输入1程序计算边桩 7、N？ E？ 输入交点X、Y坐标 8、FW 待求点切线方位角 9、当计算交角为60°时，则公式改为（U+60），（U-120）

1 A：R：C“LS”：D“JD” 2 P=C∧2/24/R-C∧4/2688/R∧3 3 Q=C/2-C∧3/240/R∧2 4 B=90C/兀/R 5 T=(R+P)tan(AbsA/2)+Q◢ 6 W=(R+P)/cos(A/2)-R◢ 7 L=((AbsA)-2B)兀R/180+2C◢ 8 G=D-T◢ 9 H=G+C◢ 10 I=G+L/2◢ 11 K=G+L-C◢ 12 M=G+L◢ 13 N：E：F: J 14 A＜0=>S=-1:≠=>S=1⊿ 15 U=F+A/2+90S 16 V=W+R 17 B=N+VcosU 18 O=E+VsinU 19 Lbl 1 20 {Z} 21 Z≤G=>L=T+G-Z 22 V=F+180 23 U=F 24 Goto 2⊿ 25 Z≤H=>L=Z-G 26 V=L-L∧5/(90R∧2C∧2) 27 L=30L∧2S/(兀RC) 28 P=F+180 29 Q=F+L 30 U“FW”=F+3L◢ 31 Goto 4⊿ 32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀 33 U“FW”=L+90S◢ 34 Goto 5⊿ 35 Z≤M=>L=M-Z 36 V=L-L∧5/(90R∧2C∧2) 37 L=30SL∧2/(兀RC) 38 P=F+A 39 Q=F+A+180-L 40 U=F-3L+A◢ 41 Goto4⊿ 42 Z>M=>L=Z-M+T 43 U=F+A 44 V=U 45 Goto 2 46 Lbl 2 47 X=N+LcosV◢ 48 Y=E+LsinV◢ 49 Goto 6⊿ 50 Lbl 3 51 {W} 52 P“XL”=X+Wcos(U-90) ◢ 53 Q“YL”=Y+Wsin(U-90) ◢ 54 P“XR”=X+Wcos(U+90) ◢ 55 Q“YR”=Y+Wsin (U+90) ◢ 56 Goto 1 57 Lbl 4 58 X=N+TcosP+VcosQ◢ 59 Y=E+TsinP+VsinQ◢ 60 Goto 6 61 Lbl 5 62 X=B+R cosL◢ 63 Y=O+RsinL◢ 64 Goto 6 65 Lbl 6 66 J=1=> Goto 3⊿ 67 Goto 1

作者: yangtao51888    时间: 2006-8-15 20:53
谢谢lz
作者: yangtao51888    时间: 2006-8-15 20:53
谢谢lz
作者: lixiang52776    时间: 2006-9-17 20:56

请问适合不的等长缓和曲线的放样吗?

作者: cdb511    时间: 2007-1-29 09:03
先谢谢了，还不错，有可能用的着
作者: xianghui99001    时间: 2007-5-3 21:55
不错不错，都还好用，谢谢了！
作者: 敌杀死    时间: 2007-6-18 21:41
我是多少分了哦
作者: _s_bri    时间: 2007-8-11 14:59
thx,thx.
作者: _s_bri    时间: 2007-8-11 15:00
thx,thx.
作者: xxkkxx    时间: 2008-1-19 15:08
谢谢IZ !!!!!!!!!!
作者: 随波逐流    时间: 2008-12-29 11:33
谢谢分享



欢迎光临 路桥隧 - 免费·分享·共赢 (http://luqiaosui.com/) Powered by Discuz! X3.2