第一篇：5800万能坐标正反算程序(超短型)
卡西欧5800任意线元坐标正反算程序（包括直线，圆曲线，缓和曲线正算及反算）
“A=?,NEW=0，OLD≠0”?A: A≠0=>Goto S:“O=”?O:“U=”?U:“V=”?V:“G=”?G:“H=”?H:“P=”?P:“R=”?R:“Q=”?Q: Lbl S ：Fix 3:7→DimZ:1÷P→C:(P-R)÷(2HPR)→D:180÷∏→E:“1=>ZS,2=>FS”?N:If N=1：Then“Z-H=”?S:“-L,+R=”?Z: S-O→W:If W<0 or W>H:Then“=>ERROR!”◢ Goto S:IfEnd:Else “X=”?X:“Y=”?Y:X→I:Y→J:G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)→W:0→Z:IfEnd:Lbl A:0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→Z[5]:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Z[6]:G+QEW(C+WD)+90→F:Z[5]+Zcos(F)→Z[5]:Z[6]+Zsin(F)→Z[6]: T+QEW(C+WD)→L:(J-Z[6])cos(L)-(I-Z[5])sin(L)→Z:If N=1:Then“FWJ=”:F-90◣DMS◢“X=”:Z[5]→X◢“Y=”:Z[6]→Y◢Goto S:IfEnd:If Abs(Z)＜0.00001:Then(J-Z[6])÷sin(F)→Z:O+W→S:Else W+Z→W:Goto A:IfEnd:If S
说明：A：等于0为输入新的线元参数数据，反之进入坐标正反算。
O：线元起点桩号。U：线元起点X坐标。V：线元起点Y坐标。
G：线元起点切线方位角。H：线元长度。
P: 线元起点半径。R: 线元终点半径。
Q：偏转系数（左偏输入-1，右偏输入1）。
45注：半径为0时，输入10×10。直线偏转系数输入0。
本程序占用764字节。输入之前与输入之后分别查看剩余内存，两者之差不等于764，说明输入有误！
第二篇：第十任意斜交角度坐标反算通用程序
第十五篇任意斜交角度坐标反算通用程序
作者：柠檬树QQ: 249910569
1.任意角度坐标反算桩号和斜距主程序(命名为ZBFS2)
第1行：”YOUJIAO=”? B:B=0=>90→B
第2行：Lbl 1:”X1=”? C:”Y1=”?D: ”K1=”?K
第3行：Lbl0:Prog “A”
第4行：Pol(C-N,D-E):I(cos(J-F)-sin(J-F)tan(90-B))→S:K+S→K
第5行：Abs(S)>0.0001=>Goto 0
第6行：”K1=”:K◢
第7行：”BIAN=”:Isin(J-F+90-B)→Z◢
第8行：”α=”:B◢
第9行：Goto 1
YOUJIAO——斜交角度，取前右夹角
X1——取样点的X坐标
Y1——取样点的Y坐标
K1——输入时为计算起始点(在线路内即可)，输出时为反算点的桩号
Z——偏距或斜距（左负右正）
注：在9860或9960中需将第4行替换为Pol(C-N,D-E): List Ans[1]→I ：List Ans[2]→J：
I(cos(J-F)-sin(J-F)tan(90-B))→S:K+S→K，反算主程序所有输入赋值多加一赋值符号（→），其他所有除数据库外的程序均保持不变
2.计算坐标子程序(命名为XYF)
为了简洁，本程序由数据库直接调用，上述中的反算主程序不直接调用此程序
第1行：K-A→S：(Q-P)÷L→I
第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N
第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E
第4行：F+S(2P+SI)×90÷π→F
第5行：F<0=>F+360→F: F>360=>F-360→F
3.数据库（命名为A）
第1行：K≤175.191=>Stop（超出后显示Done）
第2行：175.191→A:428513.730→N:557954.037→E:92°26′40″→F:0→P:1/240→Q:70.417→L:
K≤A+L =>GoTo 1（第一缓和曲线）
第3行：245.607→A: 428507.298→N:558024.092→E: 100°50′59.4″→F: 1/240→P:1/240→Q:
72.915→L: K≤A+L =>Goto 1（圆曲线）
第4行：318.522→A: 428482.988→N:558092.538→E: 118°15′25.2″→F: 1/240→P: 0→Q: 55.104
→L: K≤A+L =>Goto 1（第二缓和曲线）
第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L:
K≤A+L=>Goto 1:Stop（下一曲线的第一缓和曲线，示例为S型曲线，超出后显示
Done）
第6行：Lbl1:Prog “XYF”
A——曲线段起点的里程
N——曲线段起点的x坐标
E——曲线段起点的y坐标
F——曲线段起点的坐标方位角
P——曲线段起点的曲率(半径倒数，直线为0，左负右正)
Q——曲线段终点的曲率(半径倒数，直线为0，左负右正)
L——曲线段长度（尽量使用长度，为计算断链方便）
说明：
（1）本篇程序基于本人创作的程序集中的第5篇改编，第5篇中反算主程序的第3、6行分别改写为本篇中的第4、7行，原第5篇部分变量符号已做调整。
（2）坐标计算子程序为通用程序，可自编程序随时调用，数据库可更改适合可变项目的测量数据。
（3）适用于任意线形：直线（0→P、0→Q）、圆曲线（圆半径倒数→P、圆半径倒数→Q）、缓和曲线（0或圆半径倒数→P、圆半径倒数或0→Q）、卵形曲线（接起点圆的半径倒数→P、接终点圆的半径倒数→Q），曲线左转多加一负号。
（4）程序规定，左偏曲线曲率输入负值，右偏曲线曲率输入正值，直线上点曲率输入0。
（5）本程序精度较高，不受曲线半径大小影响，即使极小半径的螺旋曲线等误差仅为万分之一（0.1mm），可以忽略。
（6）反算桩号偏差为1mm
（7）本程序适用于单个线元转角小于180的情况（大于180度有两个结果，只能计算一个）。
第三篇：东风11型机车电气动作试验程序[推荐]
东风11型机车电气动作试验程序 2008年04月12日 星期六 11:45
一、准备工作及外观检查
（1）闭合照明开关ZMK，确认XK在断开位。从低压柜外开始，自上而下，由左到右检查电器柜各电阻、继电器、线圈、接线是否松脱，触指是否烧损。检查确认高压柜1-6ZFK在断开位，检查操纵台及电气柜各自动开关置于闭合位（2、3DZ只闭合I个）。
（2）闭合蓄电池闸刀XK，蓄电池电压不低于96V。励磁二和无载信号灯亮，将微机控制显示开关置于相应的1端(或Ⅱ端)，将励磁开关WZK置于励磁l，微机辅机开关置A位(或B位)。
（3）低压风缸风压在400KPa以上时．将l一6GK置运转位，低压风缸风压在400KPa以下时，将1一6GK置故障位。
（4）检查试灯回路(两试灯亮度一致)，确认控制、辅助照明回路接地现象。（5）KZ联锁试验，机械联锁良好。
（6）用钥匙打开总控开关lK，微机控制柜通风机转动，闭合微机显示屏开关，显示屏显示的油水温度在规定范围。•
二、电气动作试验
1、主手轮“0”位试验下列各项．
（1）闭合3K，QBC.吸合，QBD转动，机油压力表显示压力不低于40KPa。（2）闭合4K,RBC吸合，RBD转动，QBC失电，QBD停转，确认燃油压力在150－450KPa之间，充放电电流表显示放电10A左右。用短接线短接Xl2:20－X16:3接线柱，4ZJ得电．RBC失电，RBD停转，“差示压力”信号灯亮，取下短接线，4ZJ自锁，断开4K，4ZJ失电，“差示压力”信号灯灭。
（3）再闭合4K，RBC吸合，RBD转动，用短接线短接Xl7:9－X16:3接线柱，8ZJ得电，RBC失电，RBD停转，取下短按线，8ZJ自锁，断4K,8ZJ失电。
（4）再闭4K，交替闭合2、3DZ，1一2RBD转动正常，断开2、3DZ，短接Xl2:22－Xl2:23，电磁联锁DLS得电(整备作业时可不作此项)，取下短接线，DLS失电。（5）闭合5K,FLC吸合，充放电电流显示放电5－10A。用短接线短接Xll:8－X1l：9接线柱，9ZJ吸合，FLC失电，“辅发过压”灯亮，充放电电流回升5A左右，取下短接线，9ZJ自锁，断5K,9ZJ失电，“辅发过压”灯灭。
（6）闭合5K，FLC吸合，闭合IOK,GFC吸合，FLC失电，放电电流回升5A左右，“固定发电”灯亮，断开10K，GFC失电，FLC吸合，“固定发电”灯灭，充发电电流显示放电lOA左右。
（7）闭合6K，总风缸风压低于750KPa时，1一2YC吸合，“空压机”信号灯亮，断开6K,1一2YC失电，“空压机”信号灯灭。（8）按下2QA,l一2YC吸合，“空压机”信号灯亮;松开2QA,l一2YC失电，“空压机”信号灯灭;
2、换向手柄置前进位，试验下列各项:（1）保留lK、4K，闭合2K，5ZJ、6ZJ、1GLC吸合，“励设二”灯灭，断开2K，5ZJ、6ZJ、1GLC失电，“励磁二”灯亮。
（2）将励磁开关WZK“2”位，闭2K、2GLC吸合，“励磁二”灯仍亮。
（3）主手轮提至1位，HKF①(前进位)、LLC、1－6C、LC吸合，“无载”灯灭。（4）人为闭合DJ，LLc、LC、1一6c失电，“无载”“接地”灯 亮，恢复DJ、1一6c、LC吸合，“无载接地”灯灭。（5）人为闭合LJ、LLC、LC、l一6c失电，“无载，过流”灯
亮，恢复LJ、LLC、1一6c、LLC吸合．“无载”“过流”灯灭。
（6）人为闭合TJ1、LLC、LC、1一6c失电，“无载”灯亮，恢复TJ1，LLC、LC、1一6c吸合，“无载”灯灭。（7）主手轮提至2位，1ZJ吸合，确认WJT三相指示灯(A)亮，将XKK置手动位，XC吸合，“磁场削弱”灯亮，将XKK置断开位，xc失电，“磁场削弱”灯灭。（8）主手轮2位，用短接线短接xl7:14－xl7:11，2ZJ吸合，LLC、LC、1－6c失电，“水温高”“无载”灯亮。到下短接线.2ZJ自锁。主手轮回l位，2ZJ失电，LLC、LC、1－6c吸合，“水温高”“无载”灯灭。（9）wzK置“励磁二”主手轮提至9位，3ZJ得电，LLC、LC、1一6c失电，“无载”灯亮，主手轮回到8位，3ZJ失电，试验防越位起车电路是否良好，主手轮回到l位，1ZJ失电，LLC、LC、l一6c得电吸合，“无载”灯灭，主手轮回“0”位，LLC、LC、l一6c失电，“无载”灯亮。
3、换向手柄置后进位，试验下列各项
（1）保留1K、4K、2K，主手轮提至l位，HKF①（后进)，LLC、LC、1一6c吸合，“无载”灯灭。
（2）主手轮回“0”位，LLC、LC、1－6C、HKF②失电，“无载”灯亮。（3）换向手柄置中立位。
三、电阻制动电气试验
（1）确认微机系统良好，将励磁开关WZK置励磁1，确认低压风缸在400KPa以上，机车自阀施行制动，制动缸保持一定的压力。
（2）换向手柄置前制位，闭合2K，HKg②吸合(制动工况)，7ZJ吸合。
（3）主手轮提至1位，HKF①(前进位)、LLC、ZC、ZLF、1－6C吸合，机车闸缸压力逐渐降为“0”“无载”灯亮。
（4）主手轮提至2位，LC、1ZJ吸合，1－6RZC吸合，“无载”灯灭，“电阻制动”灯亮。
（5）人为闭合FSJ、LC失电，“无载”“电制失风”灯亮，恢复FSJ、LC吸合，“无载”“电制失风”灯灭，回手轮至l位，l一6RZC,1ZJ、LC失电，“无载”灯亮。
（6）回手轮“0”位，LLC、LC、1一6C、ZC、ZLF、HKF①失电，机车闸缸压力上升，断2K、HKg②、7ZJ失电。
（7）换向手柄置后制位试验同时制试验内容。
四、电气动作试验结束工作
（1）主手轮回“0”换向手柄置中立，断开操纵台上各开关。
（2）恢复2DZ(或3DZ)，断开蓄电池闸刀XK，断开照明开关ZMK。五、三项设备检查
（1）监控装置各部安装牢固，开关位置正确，按规定输人各有关数据(运记)。（2）按压无线调度电话电源键和发射键，应用回铃声，有条件情况下应进行通话试验。
（3）机车自动信号应显示灯光。
六、启机后试验
（1）按规定启机后，单阀制动300KPa，确认2K在断开位，闭5K，辅助发电机发电，充放电电源表显示充电状态，按规定对动力室进行检查。
（2）待充电电流小于50A.时，闭6K．风泵泵风，检查风泵工作正常，检查风泵工作油压在规定范围内。
（3）提手轮，柴油机转速上升正常，手轮16位，柴油机转速1000转／分左右，逐步回手轮．柴油机转速下降正常，手轮回“0”位，柴油机转速为400转／分。（4）闭合7K，主手轮l位及其以上，进行柴油机故障手轮试验，顺时转动柴油机转速上升，逆时转动下降。
（5）断开5K，将微机柜辅机开关置中立位，再闭5K、l0K，辅助发电机进入固定发电状况，“固定发电”灯亮，当柴油机转速达1000转／分时，辅助发电机电压不得超过110＋10V，将主手轮回“0”，断开5K、10K，将微机辅机开关置于A或B位，闭合5K，辅助发电机进人正常发电状况。
（6）进行头灯、司机室灯、前后标志灯、雨刷、电动喇叭试验。
点击咨询 