资源描述：
《打桩程序CASIO-fx4850P(5800P)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Casiofx5800P计算器程序by汪洋(打桩程序)特别说明:使用5800P计算器,一般建议切换到普通显示方式,方法是按[SHIFT],再按[MODE],[1]键,同时,调整选单[6],按[3]表示保留显示3位★★ZBFS★★坐标反算[5800P]"XA="?A:"YA="?B↙Lbl1:"XB="?C:"YB="?D↙Pol(C-A,D-B)↙J<0=>J+360->J↙"D=":I◢"S=":J->DMS◢Goto1★★ZBZS★★坐标正算[5800P]"XA="?A:"YA="?B↙Lbl
2、1:"D="?C:"S="?D↙"X=":A+Ccos(D◢"Y=":B+Csin(D◢Goto1蓝色粗字"O"是"欧"不是零★★ZG★★圆桩定位角[5800P]"":Prog"SS":X->A:Y->B:"XA="?A:"YA="?B:"":Prog"SS":X->C:Y->D:"XB="?C:"YB="?D:"XC="?E:"YC="?F:"L="?G★★YZ★★Prog"ZG"↙Lbl1:"IN=>":"N="?N:"E="?O:"T="?K:"V="?L:"H="?M↙IfL=
3、0:ThenN->P:O->Q:ElseN+M÷L×cos(K)->P:O+M÷L×sin(K)->Q:IfEnd↙IfK>270:ThenGoto2:IfEnd↙IfK>90:ThenK-180->R:Goto3:IfEnd↙Lbl2:K->R↙Lbl3:N+Gcos(R)->第1页共7页Casiofx5800P计算器程序by汪洋(打桩程序)S:O+Gsin(R)->T:N->Z:O->V↙"":Prog"Z1"↙A->N:B->O:C->A:D->B:N->C:O->D:"":
4、Prog"Z1":A->C:B->D↙E->A:F->B:N->E:O->F:"":Prog"Z1":A->E:B->F:N->A:O->B:Z->N:V->O↙Pol(P-A,Q-B):J-X->Y:Prog"ZP":"WJ=":Y->DMS◢Goto1★★Z1★★Pol(C-A,D-B):J->R:Pol(S-A,T-B):J->U:Pol(P-A,Q-B):J-1->X:sin(H÷2÷((P2+(Q-B)2))->W:-A)X-W->Y↙Prog"ZP"↙"W1=":Y->DMS◢
5、X+W->Y:Prog"ZP":"W2=":Y->DMS◢U-R->Y:Prog"ZP":"W3=":Y->DMS◢★★ZP★★IfY<0:ThenY+360->Y:IfEnd↙圆桩定位角程序由主程序YZ,子程序ZG,ZP,Z1组成,参数如下:1,XA=?测站点A的X坐标2,YA=?测站点A的Y坐标3,XB=?测站点B的X坐标4,YB=?测站点B的Y坐标5,XC=?测站点C的X坐标6,YC=?测站点C的Y坐标7,L=?船尾距离8,R=?圆桩直径9,X=?桩中心计算X坐标,这个值在程序未运行完即中断
6、时会修改.循环计算时则不会第2页共7页Casiofx5800P计算器程序by汪洋(打桩程序)10,Y=?桩中心计算Y坐标,与(9)相同11,T=?桩的扭角12,V=?桩的斜率,直桩为0,斜桩输入设计值13,H=?桩的提高量,无提高输入0计算结果如下::测站A点瞄准B点置角度0后的拨角值1,W1=?测站点A的左瞄准角2,W2=?测站点A的右瞄准角3,W3=?测站点A的船尾瞄准角:测站B点瞄准A点置角度0后的拨角值4,W1=?测站点B的左瞄准角5,W2=?测站点B的右瞄准角6,W3=?
7、测站点B的船尾瞄准角:测站C点瞄准B点置角度0后的拨角值7,W1=?测站点C的左瞄准角8,W2=?测站点C的右瞄准角9,W3=?测站点C的船尾瞄准角10,WJ=?测点站A,C与计算桩中心的方位角之交汇角注意:实际操作时使用本程序,一对相邻控制点必须相互照准后视方向,角度设置为0-00-00,依照计算的角度拨出相应角度,指挥现场移位;同时,C点如无必要,则可以随便输入,但不能为0.见下图第3页共7页Casiofx5800P计算器程序by汪洋(打桩程序)圆桩程序于:2009年1月16日★★FZ
8、★★方桩定位角[5800P]Prog"ZG"↙Lbl1:"IN=>":"X="?N:"Y="?O:"R="?H:"T="?K:"V="?L:"H="?M:Prog"Z2"↙IfL=0:Then0->P:0->S:ElseM÷L->P:P->S:IfEnd↙IfK>270:Then-.5HZ->X:Goto2:IfEnd↙IfK>90:Then.5HZ->X:Else-.5HZ->X:IfEnd↙Lbl2:IfK>270:Then-90->R;Goto3:IfEnd↙IfK>90:T
