资源描述：
《卡西欧5800计算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、卡西欧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:StopF
2、ileName: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
3、]Z[C+45]fI"STATION・HZ[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]->W
4、Z[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”？
5、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=57O
6、rGetkey=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-Q
7、IFAR=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用五点通用坐
8、标计算计算缓和段0.5(R・A)—KAQ-*IKQ2-J0.0469100770-P:H+IP+JP2-U0.2307653449-P:H+IP+JP
