01.
n = 0
02.
For
j = c
To
d
Step
hy
03.
result &= ControlChars.CrLf
04.
n += 1 : m = 0
05.
For
i = a
To
b
Step
hx
06.
m += 1
07.
ans = Exp(-(i ^ 2) * j)
08.
func(m, n) = ans
09.
result &= (
"F"
&
"("
& i &
","
& j &
")"
& ControlChars.Tab &
"="
& ControlChars.Tab & ControlChars.Tab &
String
.Format(ans) & ControlChars.CrLf)
10.
Next
11.
Next