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