卡西c-cc.cn欧CASIO fx-5800道路坐标放样程序[1]

卡西c-cc.cn欧CASIO fx-5800道路坐标放样程序[1] 卡西欧 CASIOCASIOCASIOCASIO fx-5800fx-5800fx-5800fx-5800 道路坐标放样程序源程序包括：一个主程序和两个子程序主程序：PRO-ROAD 行号程序说明 1 Deg：Fix3：26→DimZ 2 “X（JD1）”?X： “Y(JD1)”?Y： “X（JD0）”?M： “Y(JD0)”?N 3 Prog”SUB-QXYS1” 4 Pol(X-M,Y-N)：J→Z[20]：J+O→Z[19] 5 X-Scos(Z[20]) →Z[21]：Y-Ssin(Z[20])...

卡西欧 CASIOCASIOCASIOCASIO fx-5800fx-5800fx-5800fx-5800 道路坐标放样程序源程序包括：一个主程序和两个子程序主程序：PRO-ROAD 行号程序说明 1 Deg：Fix3：26→DimZ 2 “X（JD1）”?X： “Y(JD1)”?Y： “X（JD0）”?M： “Y(JD0)”?N 3 Prog”SUB-QXYS1” 4 Pol(X-M,Y-N)：J→Z[20]：J+O→Z[19] 5 X-Scos(Z[20]) →Z[21]：Y-Ssin(Z[20]) →Z[22] 6 X+Tcos(Z[19]) →Z[23]：Y+Tsin(Z[19]) →Z[24] 7 “X0”?U：”Y0”?V 8 Lbl 0 9 “KP”?P：IFP>Z[1]：Then Goto 1 ： IfEnd 10 Z[1]-P→L 11 “XP=“：X-(S+L)cos(Z[20]) →F 12 “YP=“：Y-(S+L)sin(Z[20]) →G 13 Z[20] →Z ： Goto 5 14 Lbl 1 15 If P>Z[2] ： Then Goto 2 ： IfEnd 16 P-Z[1] →L ： L→Z[14]：B→Z[15]：Prog”SUB-HXY” 17 “XP=“：Z[21]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) →F 18 “YP=“：Z[22]+Z[16]cos(Z[20]-WZ[17]sin(Z[20]) →G 19 Z[20]+90WLL÷(BRπ) →Z 20 Goto 5 21 Lbl 2 22 If P>Z[4] ： Then Goto 3 ： IfEnd 23 P-Z[1] →L ： 90(2L-B)÷R÷π→Z[13] 24 Rsin(Z[13])+Z[8] →Z[16]：R(1-cos(Z[13]))+Z[6] →Z[17] 25 “XP=“：Z[21]+Z[16]cos(Z[20])-WZ[17]sin(Z[20]) →F 26 “YP=“：Z[22]+Z[16]sin(Z[20])-WZ[17]cos(Z[20]) →G 27 Z[20]+WZ[13] →Z 28 Goto 5 29 Lbl 3 30 If P>Z[5]：Then Goto 4：IfEnd 31 Z[5]-P→L：L→Z[14]：C→Z[15]：Prog”SUB-HXY” 32 “XP=“：Z[23]-Z[16]cos(Z[19])－WZ[17]sin(Z[19]) →F 33 “YP=“：Z[24]-Z[16]sin(Z[19])＋WZ[17]cos(Z[19]) →G 34 Z[19]－90WLL÷(CRπ) →Z 35 Goto 5 36 Lbl 4 37 P－Z[5] →L 38 “XP=“：X＋(T+L)cos(Z[19]) →F 39 “YP=“：Y＋(T+L)sin(Z[19]) →G 子程序 1：SUBQXYS1 子程序 2：SUB-HXY 40 Z[19] →Z 41 Lbl 5 42 If Z<0 ： Then Z+360→Z：IfEnd 43 “BP=“：Z DMS 44 If U=0：Then Goto 7：Else Pol(F-U,G-V)：IfEnd 45 Lbl 6 46 If J<0：Then J+360→J：IfEnd 47 “A1=“：J DMS 48 “D1=“：I 49 Lbl 7 50 “DANGLE”?H：IfH=0：Then Goto 0 ：IfEnd ：?D 51 “XB=“：F+Dcos(Z+H) →Z[11] 52 “YB=“：G+Dsin(Z+H) →Z[12] 53 If U=0：Then Goto 7：Else Pol(Z[11]-U,Z[12]-V)：IfEnd 54 Goto 6 行号程序说明 1 “ANGLE”?O：?R：”LS1”?B：”LS2”?C：”K(JD1)”?K 2 If O<0：Then -1→W：Else 1→W：IfEnd：WO→A 3 B2÷24÷R－B^(4)÷2688÷R^(3)＋B^(6)÷506880÷R^(5) →Z[6] 4 C2÷24÷R－C^(4)÷2688÷R^(3)＋B^(6)÷506880÷R^(5) →Z[7] 5 B÷2－B^(3)÷240÷R2＋B^(5)÷34560÷R^(4) →Z[8] 6 C÷2－C^(3)÷240÷R2＋C^(5)÷34560÷R^(4) →Z[9] 7 “T1=“：Z[8]＋(R＋Z[7]－(R＋Z[6])cos(A))÷sin(A) →S 8 “T2=“：Z[9]＋(R＋Z[6]－(R＋Z[7])cos(A))÷sin(A) →T 9 “L=“：RAπ÷180＋(B＋C)÷2→L 10 “LY=“：L－B－C→Q 11 “E=“：(R＋(Z[6]＋Z[7])÷2)÷cos(A÷2)－R→E 12 “K(ZH)=“：K－S→Z[1] 13 “K(HY)=“：Z[1]＋B→Z[2] 14 “K(QZ)=“：Z[1]＋L÷2＋(B－C)÷4→Z[3] 15 “K(YH)=“：Z[1]＋L－C→Z[4] 16 “K(HZ)=“：Z[4]＋C→Z[5] 行号程序说明 1 If Z[14]=0：Then 0→Z[16]：0→Z[17]：Else 2 Z[14]－Z[14]^(5)÷40÷(RZ[15])2＋Z[14]^(9)÷3456÷(RZ[15])^(4) →Z[16] 3 Z[14]^(3)÷6÷(RZ[15])－Z[14]^(7)÷336÷(RZ[15])^(3)＋Z[14]^(11) ÷42240÷(RZ[15])^(5) →Z[17] 4 IfEnd

                    本文档为【卡西c-cc.cn欧CASIO fx-5800道路坐标放样程序[1]】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

卡西c-cc.cn欧CASIO fx-5800道路坐标放样程序[1]

你可能还喜欢