how can we we print this iterative PIM

Questions
,
1

WIN_20140904_100539.JPG
WIN_20140904_100539.JPG1280×720 154 KB

Please help me out to program this give Integral equations, I’m new to mathematica and just learning this language
Regards

2

Please provide actual code, as closely approximated to correct Mathematica syntax as possible. Asking people to key in input from a picture is sort of outside the scope of the site.

3

hi
I’m sorry for the late reply, but i have the code for this in Maple 17 and its working perfectly fine, but i want to switch over to mathematica

p := 30;
30
X[0] := 1540.20;
1540.20
Y[0] := 932.00;
932.00
Z[0] := 301.80;
301.80
alpha := 2.710^(-11);
-11
2.700000000 10
beta := 7.510^(-14);
-14
7.500000000 10

for k from 0 to p do
X[k+1] := (-alpha*(sum(sum(X[s]Y[m]Z[k-s-m], m = 0 .. k-s), s = 0 .. k))-2beta(sum(sum(X[s]*X[m]Y[k-s-m], m = 0 .. k-s), s = 0 .. k)))/(k+1); Y[k+1] := (-alpha(sum(sum(X[s]*Y[m]Z[k-s-m], m = 0 .. k-s), s = 0 .. k))-beta(sum(sum(X[s]*X[m]Y[k-s-m], m = 0 .. k-s), s = 0 .. k)))/(k+1); Z[k+1] := -alpha(sum(sum(X[s]*Y[m]*Z[k-s-m], m = 0 .. k-s), s = 0 .. k))/(k+1)
end do;