création d'un programme avec des sous fonctions

Le but est de mettre toute mes fonctions pour MRUA dans une seule fonction afin de pouvoir les appeler de la manière suivante mura/x pour la fonction x et ainsi de suite:
- Code: Select all
Define LibPub mrua(x0,v0,t,a,x,v,x1,v1,t1,a1)=
Prgm
Define LibPub v(v0,a,t,v)=
Func
solve(v=v0+a*t,z)
EndFunc
Define LibPub x(x0,v0,t,a,x)=
Func
solve(x0+v0*t+0.5*a*t^(2)=x,z)
EndFunc
Define LibPub l(x0,v0,t,a,x,v)=
Func
solve(system(v=v0+a*t,x0+v0*t+0.5*a*t^(2)=x)y,z)
EndFunc
Define LibPub dv(v0,t,a,v1,t1,a1)=
Func
solve(v0+a*t=v1+a1*t1,z)
EndFunc
Define LibPub dx(x0,v0,t,a,x1,v1,t1,a1)=
Func
solve(x0+v0*t+0.5*a*t^(2)=x0+v0*t+0.5*a*t^(2),z)
EndFunc
EndPrgm