CASIOfx5800程序源湖南津市 赵济汉Word格式.docx
- 文档编号:15702511
- 上传时间:2022-11-15
- 格式:DOCX
- 页数:18
- 大小:54.83KB
CASIOfx5800程序源湖南津市 赵济汉Word格式.docx
《CASIOfx5800程序源湖南津市 赵济汉Word格式.docx》由会员分享,可在线阅读,更多相关《CASIOfx5800程序源湖南津市 赵济汉Word格式.docx(18页珍藏版)》请在冰豆网上搜索。
O:
O=4:
Then
Goto1:
O=3:
Prog
“F.2”:
X=0:
IfEnd:
IfEnd↙
O≠1:
Then“X1”?
X:
“Y1”?
Y:
X→Z[11]:
Y→Z[12]:
“X2”?
P:
“Y2”?
Q:
Pol(P-X,Q-Y):
J﹤0:
J+360→J:
Cls:
“S12=”:
Locate6,1,I:
“B12=”:
J►DMS◣
1→B:
O=1:
Then“XY(0)→0:
≠﹥1”?
B:
Lbl
1:
A=1
And
O=3:
Then
Prog“Q.1”
子程序PPQX
(给定综合曲线属性)
“ZQX→0:
***→1:
***→2*******”?
C↙
C=0:
Then100→Z[98]:
n0→Z[99]:
C=1:
m1→Z[98]:
n1→Z[99]:
C=2:
m2→Z[98]:
n2→Z[99]:
*******
Prog“PQX”
其中:
mi为第i条综合曲线矩阵变量起始单元,(第1条综合曲线矩阵变量起始单元应自100开始,以便其他程序临时使用100以前的矩阵变量,综合曲线中每一基本单元需8个矩阵存储单元);
ni为第i条综合曲线中基本单元数,每增加一个条综合曲线则增加一行If
C=*******→Z[99]:
IfEnd↙语句。
还应注特别意,原有程序中的矩阵变量定维语句DimZ应取消,只要原有程序中的矩阵变量定维不大于100,原有程序的运行不受影响。
子程序Q.5
(建立数据库)
Fix5↙
0→I:
“N”?
W:
W→Z[99]:
“Z[MIN]”?
V:
V→Z[98]↙
“NO.I=”:
I◣
C:
V+8I→G↙
“→DK”?
A→Z[G]↙
“→X”?
B:
B→Z[G+1]↙
“→Y”?
C→Z[G+2]↙
“→AT”?
D:
D→Z[G+3]↙
“→(-1Y+1)”?
K:
K→Z[G+4]↙
“→L”?
E:
E→Z[G+5]↙
“→R1”?
F:
F→Z[G+6]↙
“→R2”?
O→Z[G+7]↙
2:
“JX→1:
NO→0:
OK→2”?
M:
M=2:
Goto3:
M=1:
Goto
I+1→I:
Goto
1↙
3:
“END”
子程序Q.6
“S”?
W=0:
Goto2:
I-W→W:
“⊿S=”:
Locate5,1,W:
“BP=”:
“OK”
子程序Q.1
X=0
Z[98]→I:
Z[99]→J:
“→DKP”?
S↙
S=-1:
“JH.ZJ”:
IfEnd↙(加桥台转轴时)
S=-2:
“ZH.2”:
IfEnd↙(加涵通转轴时)
S=0:
S﹤Z[I]:
Then“DKP<
MIN”◣
S>
Z[I+8J]:
Then“DKP>
MAX”◣
O≠4
B≠0:
Then“→B”?
Prog“J”:
T→U:
“→(-+)D÷
2”
?
N:
Else
0→N:
Prog“Q.2”:
“END”
子程序Q.2
O≠3
:
Then“→”:
Z[98]+8→M↙
S≥Z[M-8]And
S≤Z[M]:
I+1→I:
M+8→M↙
O=3
I→B:
IfEnd:
M→Z[27]:
Prog“Q.3”:
“L(I),I=”:
Cls:
“MIN=”:
Locate
6,1,Z[Z[98]+8I]:
“MAX=”:
6,2,Z[Z[98]+8I+8]:
I→B:
子程序Q.3
U=0:
B→I:
Z[98]+8I→G↙
Z[G]→Z↙
Z[G+1]→Z[1]:
Z[G+2]→Z[2]:
Z[G+3]→Z[3]↙
Z[3]:
“J”:
T→Z[3]↙
Z[G+4]→Z[4]:
Z[G+5]→M:
1÷
Z[G+6]→Z[5]:
Z[G+7]→Z[6]↙
Z[6]-Z[5]→Z[6]:
S-Z→D↙
0→N:
Prog
“Q.4”↙
子程序Q.4
(正算)
0:
0→I:
0→E:
0→F:
0→G:
0→H↙
I+1→I:
Z[3]+Z[4]((ID÷
12)(Z[5]+IDZ[6]÷
24÷
M)(180÷
л)→W:
I﹤12:
Frac(I÷
2)﹥0:
E+cos(W)→E:
F+sin(W)→F:
G+cos(W)→G:
H+sin(W)→H:
I﹤12:
Goto1:
IfEnd↙
Z[1]+(D÷
36)(cos(Z[3])+cos(W)+2G+4E)+Ncos(U+W)→P↙
Z[2]+(D÷
36)(sin(Z[3])+sin(W)+2H+4F)+Nsin(U+W)→Q↙
O≠0:
“XP=”:
Locate5,1,P:
“YP=”:
Locate5,2,Q:
“AT=”:
W►DMS◣
Z[27]→I:
Z[I]-S=0
Z[I+1]=0And
N=0:
P→Z[I+1]:
Q→Z[I+2]:
Prog“H”:
T→Z[I+3]:
Pol(P-Z[11],Q-Z[12]):
J<
0:
ThenJ+360→J:
“SP=”:
Locate5,1,I:
“Q.6”:
2
子程序F.2
(反算)
“ZH.D(LI)→0:
NO→1”?
U↙
Then“I”?
B:
Z[98]+8Z[99]→M↙
X=0:
Z[13]→X:
“X”?
X:
“Y”?
Y:
1→Z[8]↙
“⇒”↙
U=1:
Then-√((X-Z[M+1])²
+(Y-Z[M+2])²
)→Z[7]:
Z[7]+Z[M]→S:
Prog“Q.2”:
Z[98]+8B→M:
Z[M+3]:
Prog“J”:
T-90→T↙
(Y-Z[M+2])cos(T)-(X-Z[M+1])Sin(T)→Z[7]↙
U=1And
Abs(Z[7])≤0.01:
Then-0.01→Z[7]:
Z[7]→D:
Z[M]+D→S:
Z[M+8]:
Z[M+8]→S;
IfEnd
↙
Prog“Q.3”:
(Y-Q)cos(W-90)-(X-P)sin(W-90)→Z[8]↙
Z+Z[7]+Z[8]→S↙
Abs(Z[8])≥0.0001:
ThenZ[7]+Z[8]→D:
Prog“Q.4”:
D→Z[7]:
1:
U=1:
S+0.01<
Z:
Then“
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CASIOfx5800程序源湖南津市 赵济汉 CASIOfx5800 程序 湖南 津市