18 lines
429 B
Plaintext
18 lines
429 B
Plaintext
Prgm
|
|
Local funs,invs,composed,x,i
|
|
|
|
Define rc_cube(x) = x^3 © Cannot be local variables
|
|
Define rc_curt(x) = x^(1/3)
|
|
|
|
Define funs = {"sin","cos","rc_cube"}
|
|
Define invs = {"sin","cos","rc_curt"}
|
|
|
|
Define x = 0.5
|
|
Disp "x = " & string(x)
|
|
For i,1,3
|
|
Disp "f=" & invs[i] & " g=" & funs[i] & " f(g(x))=" & string(#(invs[i])(#(funs[i])(x)))
|
|
EndFor
|
|
|
|
DelVar rc_cube,rc_curt © Clean up our globals
|
|
EndPrgm
|