hh exe

#道路工程##工程测量##卡西欧fx5800#工欲善其事必先利其器，在早些年计算机软件，和测量设备不太先进的时期，工程测量需要配合外置算术计算器进行配合，尤其是遇到公路隧道，等带缓和曲线，回头曲线等各种复杂曲线段上的施工桩号和大地坐标系不停的转换计算的时候，普通计算器显得明显不能满足，早期日本卡西欧公司开发了FX-3650P,3950p,4500pa/4800p/4850p/5800p系列计算器，2006年10月又推出一款在基础上改进具备储存qbasci语言功能的计算器，后续陆续出现的矩阵9750以及系列。但在这一些计算器中使用最广，最容易接受的还是5800计算器。后续很多人利用这个数据存储调用功能开发了一些辅助道路曲线计算的程序。这里分享一个道路测量程序。考虑到很多符号不能表达，用汉字或者字母替代替代。首先进行编辑新程序命名为"DAOLU".Deg:Fix3:20->DimZ(exe)。"K0"?P:IfP大于等于0:Then(exe)。Prog"DAOLU-DATA1"(exe)。MatA[1,1]->K:MatA[1,2]3->X:MatA[1,3]->Y:MatA[1,4]->M:MatA[1,5]->A:MatA[1,6]->R:MatA[1,7]->B:MatA[1,8]->C:MatA[1,9]->Q:MatA[1,10]->(exe)。Else"K(JD)"?K:"X(JD)"?X:"Y(JD)"?Y:"FWJ"?M:WA->A:"PJ"?A:?R:"LS1"?B:"LS2"?C:0->Q:1000000->E:IfEnd(exe)。1->W:AW:M+A->N:WA->A(exe)。Prog"DAOLU-QXDYS"(exe)。1->O:Prog"DAOLU-XS"(exe)。"ZS[1],FS[2]"?->Z[3]:Z[3]=2=》Goto3(exe)。"XS"?U:"YS"?V(exe)。Lbl1:"KP"?P(exe)。IfP>EOrPH:"YJ"?H:H=0=》Goto1:?D(exe)。F+Dcos(Z+H)->Z[I1]:G+Dsin(Z+H)->Z[12](exe)。Pol(Z[l1]-U,Z[12]-V):JJ(exe)。2->O:Prog"DAOLU-XS":Goto2(exe)。Lbl3:"XB"?U:"YB"?V:"KP"?P(exe)。Lbl4:IfP>EOrPZ[13]:(V-G)cos(Z[13])-(U-F)sin(Z[13])->H(exe)。IfAbs(H)>0.001:ThenP+H->P:Goto4:IfEnd(exe)。Pol(V-G,U-F):(G-V)sin(Z[13])I:I->D4(exe)。3->O:Prog"DAOLU-XS":Goto3(EXE)。新建子程序名DAOLU-QXDYS。B²➗24➗R-B四次方(4)➗2688➗R³+B六次方➗506880:➗R五次方->Z[6](exe)。C²➗24➗R-C四次方:➗2688➗R³+C六次方➗506880➗R五次方->Z[7](exe)。B➗2-B³:➗240➗R²+B五次方➗34560➗R四次方->Z[8】(exe)。C➗2-C³➗240:➗R²+C五次方➗34560:➗R四次方->z[9】(exe)。Z[8]+(R+Z[7]-(R+Z[6])cos(A))➗sin(A)->S(EXE)。Z[9]+(R+Z[6]-(R+Z[7])cos(A));➗sin(A)->T(exe)。RA圆周率➗180+(B+C)➗2->L(exe)。K-S->Z[1](exe)。Z[1]+B->Z[2](exe)。Z[1]+L-C->Z[4](exe)。Z[4]+C+Z[5](exe)。新建程序名。DAOLU-LXZU。未完。