Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2071 | zjchen | 1 | !goto $wims_read_parm |
2 | |||
3 | :def |
||
4 | title=Circle |
||
5 | input=function |
||
6 | !exit |
||
7 | |||
8 | :proc |
||
9 | formula=!item 1 of $formula |
||
10 | option=!lower $option |
||
11 | option2=!lower $option2 |
||
12 | option=!word 1 of $option |
||
13 | option2=!word 1 of $option2 |
||
14 | !if $option=$empty or $option2=$empty |
||
15 | error=empty_data |
||
16 | !exit |
||
17 | !endif |
||
18 | !if $option notwordof radius diameter circumference area or \ |
||
19 | $option2 notwordof radius diameter circumference area |
||
20 | error=bad_option |
||
21 | !exit |
||
22 | !endif |
||
23 | o1=!positionof item $option in radius,diameter,circumference,area |
||
24 | o2=!positionof item $option2 in radius,diameter,circumference,area |
||
25 | t1=!item $o1 of $formula,($formula)/2,($formula)/(2*pi),sqrt(($formula)/pi) |
||
26 | t2=!item $o2 of r, 2*r, 2*pi*r, pi*r^2 |
||
27 | |||
28 | result=!exec pari r=$t1; print($t2); |
||
29 | |||
30 | !exit |
||
31 | |||
32 | :output |
||
33 | |||
34 | A circle with |
||
35 | !item $o1 of radius,diameter,circumference,area |
||
36 | |||
37 | !htmlmath = $formula |
||
38 | :<p> |
||
39 | !item $o2 of radius,diameter,circumference,area |
||
40 | |||
41 | !htmlmath = $result |
||
42 | . |
||
43 | !exit |
||
44 |