12 lines
207 B
Text
12 lines
207 B
Text
evalx(prog, a, b)
|
||
Func
|
||
Local x,eresult1,eresult2
|
||
a→x
|
||
expr(prog)→eresult1
|
||
b→x
|
||
expr(prog)→eresult2
|
||
Return eresult2-eresult1
|
||
EndFunc
|
||
|
||
■ evalx("ℯ^x", 0., 1)
|
||
1.71828
|