Subversion Repositories wimsdev

Rev

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
&nbsp;:<p>
39
!item $o2 of radius,diameter,circumference,area
40
 
41
!htmlmath = $result
42
 .
43
!exit
44