clc;clear all;k=1;g=0.01:.1:6;lambda=2;b=2;c=1;l=2;for x=0.01:.1:6 T=[]; P=(0.5*lambda)/((b^(lambda*c))*gamma(c)); Q=(k^0.5)*l^(lambda*c-0.5)/((2*pi)^(0.5*(l+k)-1)); R=evalin(symengine, sprintf('meijerG([[1],[]], [[1,0.5],[]],%f)',x^2)); T=[T P*Q*R];endplot(g,T)
Best Answer