> 
data:=[ [P=m^2,Q=(1+m^2),R=1],
[P=1,Q=(1+m^2),R=m^2],
[P=m^2,Q=2*m^21,R=1m^2],
[P=1,Q=2*m^21,R=m^2*(1m^2)],
[P=1/4,Q=(m^22)/2,R=m^2/4],
[P=m^2/4,Q=(m^22)/2,R=m^2/4]
]:
the_result :=Array(1..0):
the_result ,= [P,Q,R,"current ode","solution"]:
ode:=diff(F(xi),xi)^2=P*F(xi)^4+Q*F(xi)^2+R:
for item in data do
current_ode:=limit(eval(ode,item),m=1,'left'):
sol:=[dsolve(current_ode)]:
the_result ,= [rhs(item[1]),rhs(item[2]),rhs(item[3]),current_ode,sol]:
od:
the_result:=convert(the_result,listlist):
DocumentTools:Tabulate(the_result,weights=[10,20,20,45,45],width=60):
