1
2load_package sets;
3
4
5
6comment longer linelength so that differences in prettyprinter margins do not show ;
7
8lisp linelength 100;
9
10
1180
12
13
14on defn;
15
16
17
18--b;(aeval (list 'minus (list 'minus 'b)))
19
20
21--a*b;(aeval (list 'minus (list 'minus (list 'times 'a 'b))))
22
23
24--a*--b;(aeval (list 'minus (list 'minus (list 'times 'a (list 'minus (list 'minus 'b)))) ))
25
26
27a ^ - b * c ;
28
29a^-b*$$$c;
30
31***** Please use parentheses around use of the unary operator
32
33
34a / - b / c ;
35
36a/-b/$$$c;
37
38***** Please use parentheses around use of the unary operator
39
40
41a ^ - b + c ;(aeval (list 'plus (list 'expt 'a (list 'minus 'b)) 'c))
42
43
44a ^ (- b) * c ;(aeval (list 'times (list 'expt 'a (list 'minus 'b)) 'c))
45
46
47- a * b ;(aeval (list 'minus (list 'times 'a 'b)))
48
49
50-b*-c;(aeval (list 'minus (list 'times 'b (list 'minus 'c))))
51
52
53a * b^-2 * c^3
54
55 ;a*b^-2*$$$c^3;
56
57***** Please use parentheses around use of the unary operator
58
59
60a intersection union b intersection c;
61
62a intersection union b intersection $$$c;
63
64***** Please use parentheses around use of the unary operator
65
66
67a intersection (union b) intersection c;(aeval (list 'intersection 'a (list 'union 'b) 'c))
68
69
70a union intersection b union c;(aeval (list 'union 'a (list 'intersection 'b) 'c))
71
72
73a union (intersection b) union c;(aeval (list 'union 'a (list 'intersection 'b) 'c))
74
75
76aa(1,4):=4*(u4(n+1)-u4(n))/ht+(p*c**2*(u2(m+2)-u2(m-2)+u2(m+1,k+1)+
77         u2(m+1,k-1)-u2(m-1,k+1)-u2(m-1,k-1))+w*(u4(m+2)-
78         u4(m-2)+u4(m+1,k+1)+u4(m+1,k-1)-u4(m-1,k+1)-u4(m-1,k-1))+
79         +p*c**2*(u3(m+1,k+1)+u3(m-1,k+1)-u3(m+1,k-1)-
80         u3(m-1,k-1)+u3(k+2)-u3(k-2))+v*(
81
82u4(m+1,k+1)+u4(m-1,k+1)-
83         u4(m+1,k-1)-u4(m-1,k-1)+u4(k+2)-u4(k-2)))/hx+ht*
84         (2*w**2*(-u4(m+2)+2*u4(m)-u4(m-2))+4*w*p*c**2*(-u2(m+2)+
85         2*u2(m)-u2(m-2))+2*c**2*(-u4(m+2)+2*u4(m)-u4(m-2))+
86         4*p*v*c**2*(-u3(k+2)+2*u3(k)-u3(k-2))+2*c**2*(-u4(k+2)+
87         2*u4(k)-u4(k-2))+2*v**2*(-u4(k+2)+2*u4(k)-u4(k-2))+
88         4*p*v*c**2*(-u2(m+1,k+1)+u2(m+1,k-1)+u2(m-1,k+1)-
89         u2(m-1,k-1))+4*w*p*c**2*(-u3(m+1,k+1)+u3(m+1,k-1)+
90         u3(m-1,k+1)-u3(m-1,k-1))+4*w*v*(-u4(m+1,k+1)+
91         u4(m+1,k-1)+u4(m-1,k+1)-u4(m-1,k-1)))/hx/hx$aa(1,4):=4*(u4(n+1)-u4(n))/ht+(p*c**2*(u2(m+2)-
92u2(m-2)+u2(m+1,k+1)+u2(m+1,k-1)-u2(m-1,k+1)-u2(m-1,k-1))+w*(u4(m+2)-u4(m-2)+u4(m+1,k+1)+u4(m+1,k-1)-
93u4(m-1,k+1)-u4(m-1,k-1))++p*c**2*(u3(m+1,k+1)+u3(m-1,k+1)-u3(m+1,k-1)-u3(m-1,k-1)+u3(k+2)-u3(k-2))+
94$$$v*(u4(m+1,k+1)+u4(m-1,k+1)-u4(m+1,k-1)-u4(m-1,k-1)+u4(k+2)-u4(k-2)))/hx+ht*(2*w**2*(-u4(m+2)+2*u4
95(m)-u4(m-2))+4*w*p*c**2*(-u2(m+2)+2*u2(m)-u2(m-2))+2*c**2*(-u4(m+2)+2*u4(m)-u4(m-2))+4*p*v*c**2*(-u3
96(k+2)+2*u3(k)-u3(k-2))+2*c**2*(-u4(k+2)+2*u4(k)-u4(k-2))+2*v**2*(-u4(k+2)+2*u4(k)-u4(k-2))+4*p*v*c**
972*(-u2(m+1,k+1)+u2(m+1,k-1)+u2(m-1,k+1)-u2(m-1,k-1))+4*w*p*c**2*(-u3(m+1,k+1)+u3(m+1,k-1)+u3(m-1,k+1
98)-u3(m-1,k-1))+4*w*v*(-u4(m+1,k+1)+u4(m+1,k-1)+u4(m-1,k+1)-u4(m-1,k-1)))/hx/hx$
99
100***** Please use parentheses around use of the unary operator
101
102
103off defn;
104
105
106end;
107
108Tested on x86_64-pc-windows CSL
109Time (counter 1): 0 ms
110
111End of Lisp run after 0.01+0.04 seconds
112real 0.19
113user 0.03
114sys 0.04
115