In[]:=
$Version
Out[]=
14.2.0 for Microsoft Windows (64-bit) (December 26, 2024)
In[]:=
ToIntegrate[a_?NumericQ,z_?NumericQ,var_?NumericQ]:=Exp-
2
2
a
z(2
2
z
-1)
var
;​​ToIntegrate2[a_?NumericQ,var_?NumericQ,y_?NumericQ]:=NIntegrate[ToIntegrate[a,z,var],{z,0,y}];​​ToIntegrate3[a_?NumericQ,var_?NumericQ]:=NIntegrate[y*ToIntegrate2[a,var,y],{y,0,1}];
In[]:=
ToIntegrate3[0.1,0.01]
Out[]=
0.449737