Question: Problem of global variable between module and procedures

Hello,

In a module, i have defined a global variable GeometricData. I would like to use this variable in procedures which are inside the module. How can i define variables in a module which can be used in procedure inside a module ?

In my code below, the variable GeometricData is not seen by the procedures.

 

MonPackageFonctions:=module()
option package;
export GammaNum,psiNum;
global GeometricData;

GeometricData:=r=0.2,l=1;

GammaNum:=proc(xx)
global GeometricData;
Gamma := Pi-arccos((1/2)*(-x(t)^2+l^2-r^2)/(x(t)*r));
evalf(eval(Gamma,[GeometricData,x(t)=xx]));
end proc;

psiNum:=proc(xx)
global GeometricData;
psi :=-arcsin((1/2)*sqrt(-(x(t)^4-2*x(t)^2*l^2-2*x(t)^2*r^2+l^4-2*l^2*r^2+r^4)/(x(t)^2*r^2))*x(t)/l);
evalf(eval(psi,[GeometricData,x(t)=xx]));
end proc;

end module;


Thanks a lot for your help

Please Wait...