文档介绍：卡西欧5800计算器道路程序发布时间:2008-11-1910:33:38功能:朋标止反算(含高程),把耍素内置化(无需改程序文件,即可更换路线,同时存两条线要素)另含两个边仰(一个横向坡,一个纵向坡):FileName:RESET初始化程序Norml:50->C:12345-*J"RESETPW,,?I:I=J=>500->DimZ为数据库增加额外变量500个,在SET、SETPFDYS程序根据实际再增减变量50-*Z[C+22]”PASSWORDS”?】:】一Z[C+39] 重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norml:50-*C,,PASSWORDS,'?I:Cls:l¥:Z[C+39]=>StopFileName:SHELL(外壳程序)50-C ;在扩充变暈预留前50个给别的程序用。如不够就适量加大。RESET,SHELL,SET,SETPFDYS,这几个程序中C值必需一致Z[C+35]-*I:',STATION-N,,?I:I->Z[C+35]Z[C+36]-*I:,,STATION-E,,?I:I-Z[C+36]Z[C+44]->I:,,STATION-Z,,?I:I-*Z[C+44]Z[C+45]fI"STATION・H Z[C+45]设胃测站N坐标设置测站E坐标设置测站Z处标设置仪高Z[C+41]-I:”GC・DH”?I:I-Z[C+41]放样点高差常数Norm1Z[C+23]fNZ[C+24]->EZ[C+25]fM当前分段要素N坐标当前分段要素E坐标当前分段要素起点桩号Z[C+26]-HZ[C+27]->AZ[C+28]fR当前分段要素起点方位角(正北)单位:弧度当前分段要素起点Illi率冇左偏负右偏正(注意不半径)当前分段要素终点曲率有左偏负右偏正(注意不半径)Z[C+29]->L当前分段要素长度Z[C+3]->WZ[C+32]—I:”DAT123”?I:I-Z[C+32]平【III线要素数库类型选择1为内置式,2文件式,3实时输入(杳看当前要素值)0-*1Z[C+4]->I:,,123,,?I:I-*Z[C+4]选择本程序模式默认为坐标止算,1坐标反算,2横向边仰坡放样,3,纵向边仰坡放样(隧道进出口用到)Lbi1Z[C+4]->II=l=>Prog',TURNZHnI=2=>Prog”HXBYP”I=3=>Prog,,ZXBYP"LbiADeg:Norml:ClsZ[C+l]fG:”ZH”?G:G-Z[C+1] ;G桩求桩号Z[C+2]-B:“JL”?B:B-Z[C+2] ;B横向距离,左正右负LbiBProg,,ZBJS,* ;处标止算Prog“GCJS” ;高程计算Fix3:Cls ;设置三位小数nZH=n:Locate4,1,G ;第一行显示桩号”X=“:Locate3,2,X;第二行显示X(N)坐标nY=H:Locate3,3ZY ;第三行显示Y(E)坐标Prog“GCJS” ;高程计算nZH:Locate2,4,Z+Z[C+41] :第四行显示Z处标Locate10,4,Z[C+2];第四行显示横向距离0-1Do:I+l->I:I=1000=>Gotol:LpWhileNot(Getkey=etkey=27);锁定键盘,并在儿I•秒后自动返回Getkey=57=>Goto1Z+Z[C+41]+Z[C+49]・Z[C+44]・Z[C+45]~Z[C+48]Pol(Z[C+35]-XzZ[C+36]-Y)Cls:"DLn:Locate3,l,I:Locate12,l,Z[C+45]••DH":Locate3,2,Z[C+48]:Locate12,2zZ[C+49]“FWJ”Jv0=J+360-J"DMS>J->Z[C+46]I-Z[C+47]Goto1FileName:ZBJS坐标计算程序Prog”READDAT“RadG-M-QIFAR=0:ThenIfA=R:Thenl->J:Else3-J:IfEnd:ElseIfA=R:Then2->J:Else3->J:IfEnd:IfEndIfJ=1:ThenH->F:N+QCos(H)-*X:E+QSin(H)->Y:IfEnd直线段直接计算IfJ=2:ThenH+QR-F:Rec(Abs(2Sin(Abs(0・5QR))ER),H+QRm2):N+IfX:E+J-Y:IfEnd圆弧段直接计算IfJ=3:ThenGoto5:IfEndX+BCos(F+W)fXY+BSin(F+W)-YDeg:RetumLbi5 (R・A)—KAQ-*IKQ2--P:H+IP+JP2--