行业应用

开发平台：

VFP

SYBJS.PRG：源码内容

							3
x1=sns
x2=bys
x3=ljs
4
x1=x1-sns
x2=x2-bys
x3=x3-ljs
5
repl sns with x1
repl bys with x2
repl ljs with x3
6
x1=x1-sns
x2=x2-bys
x3=x3-ljs
7
repl sns with x1
repl bys with x2
repl ljs with x3
9
x1=x1-sns
x2=x2-bys
x3=x3-ljs
10
x1=x1-sns
x2=x2-bys
x3=x3-ljs
11
repl sns with x1
repl bys with x2
repl ljs with x3
12
x1=x1+sns
x2=x2+bys
x3=x3+ljs
13
repl sns with x1
repl bys with x2
repl ljs with x3
14
x1=x1+sns
x2=x2+bys
x3=x3+ljs
15
x1=x1-sns
x2=x2-bys
x3=x3-ljs
16
x1=x1-sns
x2=x2-bys
x3=x3-ljs
17
repl sns with x1
repl bys with x2
repl ljs with x3
18
x1=x1-sns
x2=x2-bys
x3=x3-ljs
19
x1=x1-sns
x2=x2-bys
x3=x3-ljs
20  
x1=x1+sns
x2=x2+bys
x3=x3+ljs
21
x1=x1+sns
x2=x2+bys
x3=x3+ljs
22
x1=x1+sns
x2=x2+bys
x3=x3+ljs
23
x1=x1-sns
x2=x2-bys
x3=x3-ljs
24
x1=x1+sns
x2=x2+bys
x3=x3+ljs
25
repl sns with x1
repl bys with x2
repl ljs with x3
26
x1=x1-sns
x2=x2-bys
x3=x3-ljs
27
x1=x1-sns
x2=x2-bys
x3=x3-ljs
28
repl sns with x1
repl bys with x2
repl ljs with x3
29
x1=x1-sns
x2=x2-bys
x3=x3-ljs
30
x1=x1+sns
x2=x2+bys
x3=x3+ljs
31
x1=x1-sns
x2=x2-bys
x3=x3-ljs
32
x1=x1-sns
x2=x2-bys
x3=x3-ljs
33
x1=x1+sns
x2=x2+bys
x3=x3+ljs
34
x1=x1-sns
x2=x2-bys
x3=x3-ljs
35
repl sns with x1
repl bys with x2
repl ljs with x3
36
x1=x1+sns
x2=x2+bys
x3=x3+ljs
37
x1=x1-sns
x2=x2-bys
x3=x3-ljs
39
x1=x1-sns
x2=x2-bys
x3=x3-ljs
40
x1=x1-sns
x2=x2-bys
x3=x3-ljs
41
repl sns with x1
repl bys with x2
repl ljs with x3
5
x1=sns
x2=bys
x3=ljs
7
if x1<>0
x1=sns/x1
endif
if x2<>0
x2=bys/x2
endif
if x3<>0
x3=ljs/x3
endif
8
repl sns with x1
repl bys with x2
repl ljs with x3
9
x1=sns
x2=bys
x3=ljs
15
x1=x1+sns
x2=x2+bys
x3=x3+ljs
16
x1=x1+sns
x2=x2+bys
x3=x3+ljs
5
if sns<>0
x1=x1/sns
else
x1=0
endif
if bys<>0
x2=x2/bys
else
x2=0
endif
if ljs<>0
x3=x3/ljs
else
x3=0
endif
43
repl sns with x1
repl bys with x2
repl ljs with x3
2
x1=ljs
if x1<>0
repl all pjs with ljs/x1
endif 
1
repl pjs with 0
2
repl pjs with 0
***************
retu

						