​​ModelxzStein=
T
0
+
T
2
(
2
x
-2
2
z
)+
T
4
(8
4
z
-24
2
z
2
x
+3
4
x
)+
T
6
(16
6
z
-120
4
z
2
x
+90
2
z
4
x
-5
6
x
)+
T
8
(128
8
z
-1792
6
z
2
x
+3360
4
z
4
x
-1120
2
z
6
x
+35
8
x
)+
T
10
(256
10
z
-5760
8
z
2
x
+20160
6
z
4
x
-16800
4
z
6
x
+3150
2
z
8
x
-63
10
x
);​​DataxyzStein=ReadList[OpenRead["E:\\Soumyaranjan\\E-Field\\Verifying\\Stein_Data.txt"],{Real,Real,Real,Real}]​​DataxzStein=Drop[Select[DataxyzStein,(-0.495≤#[[1]]≤0.495&&-
-7
10
≤#[[2]]≤
-7
10
&&-0.305≤#[[3]]≤0.305)&],None,{2}]​​FittXZStein=NonlinearModelFit[DataxzStein,{ModelxzStein},{
T
0
,
T
2
,
T
4
,
T
6
,
T
8
,
T
10
},{x,z}]