内容发布更新时间 : 2025/1/24 5:32:08星期一 下面是文章的全部内容请认真阅读。

CASiO fx-4500计算器程序

F1 7 L1

Fix 3: { EFXY}：E\：V\，X-F◢ Fix 4： W <0 =>W = W+360 △W\+. 01 ( .6 Frac 60W+Int ( 60 Frac W ◢ F2 ZX L1

Deg ：LbI 1 : Z\：L = K\：Y = O + LcosD + N\cos ( D-90 ：X =M+ L sinD + Nsin ( D-90：Prog 7:Goto 1 F3 QX L1

Deg ：Fix 3 ：LbI 1 ：Prog E ：Prog 7：Goto 1 F4 E L1

LbI 0 ：D \：LbI 1 ：Prog 1 ：X = X-A sin C ：Y=Y+Acos C ：Prog 5：A=Pol (X，Y ：W = D-GW ：Y = O + A cos W ：X = M + A sin W F5 1 L1

H\：Fixm ：P = S2 / 24 / R ：Q = S /2-S xy 3 / 240 / R2 ：T = tan ( I / 2 ) ( R+P )+Q L2

Fix3 ：{ KN } ：K\：L = Abs ( K-H ：L < Abs ( Z-H ) / 2 => Prog 8 ：Goto1 ：≠> L = Abs ( Z-K ：Prog 8 ：LbI 1 F6 H L1

A = B ( 4 ( L/S ) xy3 - ( L/3 ) xy4 ) + N ：C = L2×90 /π/ R / S ：X= L- Lxy5 / 40 / R2 / S2 ：Y = Lxy3 / 6 / R / S - Lxy7 / 336 / R xy3 / Sxy3 F7 Y L1

A = B + N ：C = 90 ( 2L - S ) / π/ R ：X = R sin C+Q ：Y = R ( 1- Cos C ) + P F8 8 L1

L > S => Prog Y ：Goto 1 ：≠> Prog H ：LbI 1 F9 9 L1

A = X ：X = T+( T -A ) cos I - Y sin I ：Y = ( T-A ) sin I + Ycos I F10 5 L1

Abs ( K-H ) > Abs ( Z-H ) / 2 => Prog 9 ：Goto 1 ：LbI 1

程序说明：

1、F1 7 为建站程序 输入：

XC？～ 测站点X坐标 YC？～ 测站点Y坐标； X？ ～ 后视（计算）点X坐标 Y？ ～ 后视（计算）Y坐标 输出：

D ～ 距离 FWJ ～ 计算方位角（不需转换） 2、F2 ZX 为直线段计算程序 输入：

HZ？ ～ 直线段起点里程桩号 FWJNO？ ～ 直线段起点X坐标 EOK+？ ～ 放样点里程桩号 B/2输出：

XC ～ 测站点X坐标 YC X ～ 放样点X坐标 Y D ～ 放样距离 FWJ 3、F3 QX 为曲线段计算程序 输入：

FWJ？～ 导线方位角 Z/Y? NO？ ～ ZH段点X坐标 EOZH？ ～ 曲线起点里程桩号 HZQJK？～ 全加宽（一般为0） ZJLS？ ～ 缓和曲线长度 RK+？ ～ 放样点里程桩号 B/2输出：

XC ～ 测站点X坐标 YC X ～ 放样点X坐标 Y D ～ 放样距离 FWJ ？～ 导线方位角

？ ～ 直线段起点Y坐标 ？～ 放样边距（左负右正） ～ 测站点Y坐标 ～ 放样点Y坐标

～ 放样方位角（不需转换） ～（左转+1右转-1） ？ ～ ZH段点Y坐标 ？ ～ 曲线起点里程桩号 ？ ～ 转角 ？ ～ 半径

？～放样边距（内正外负） ～ 测站点Y坐标 ～ 放样点Y坐标

～ 放样方位角（不需转换）