i wnat to take this export numbers from for loops in the matrix
restart;
with(LinearAlgebra);
f(x) :=  3*x^2+1 :
for i by .5 to 3.5 do print(i, f(i)) end do;

same this pic

hi 

how can i write the tittle on the plot exampe below pic

restart;
with(plots);
inequal({sqrt((1/2)*x) < y and sqrt(Pi/(2*x)) < y and y < sqrt(x) and y < sqrt(Pi/x)}, x = 1 .. 3, y = 0 .. 2);
 

i cant solve this integral. please help me

int(exp(-1-1/v)*(1-exp(v^2/(2*t^2)))/v^2, v = 0 .. 1);

how can i plot this plot in maple

i get wrong solution in maximize. i have to get a approximate 0.18 but i get 0.1

restart;
with(Optimization);
app := proc (x) options operator, arrow; 0.14546e-1*sin(3.141592654*x)+(-1)*0.50512e-2*sin(6.283185308*x)+0.19918e-2*sin(9.424777962*x) end proc;
ex := proc (x) options operator, arrow; evalf(-AiryAi(2^(2/3)*x)*(5*3^(5/6)-9*AiryBi(2^(2/3))*GAMMA(2/3))/(8*AiryAi(2^(2/3))*3^(5/6)-8*AiryBi(2^(2/3))*3^(1/3))-AiryBi(2^(2/3)*x)*(9*AiryAi(2^(2/3))*GAMMA(2/3)-5*3^(1/3))/(8*AiryAi(2^(2/3))*3^(5/6)-8*AiryBi(2^(2/3))*3^(1/3))+(1/4)*x^3+3/8) end proc;
plot([100*abs(app(x)-ex(x))], x = 0 .. 1)
Maximize(100*(abs(app(x)-ex(x))), x = 0 .. 1);