Question: how do I solve attached equatio numerically

getting error in solution?

 

Please resolve

t3 :=2:R := 0.5:M:=0.5 :

EQ:={diff(F(x), x $ 4) +2*R*(   F(x)*diff(F(x), x $ 3) + G(x)*diff(F(x), x)  ) + 2*R*t3*(  2*diff(F(x), x $ 2)*diff(F(x), x $ 3) + diff(F(x), x)*diff(F(x), x $ 4) + 3*diff(G(x), x )*diff(G(x), x $ 2) )=0,
diff(G(x),x$2) - 2*R*( diff(F(x),x)*G(x)- F(x)*diff(G(x), x)  ) - 2*R*t3*(  diff(F(x),x$2)*diff(G(x),x) - F(x)*diff(G(x), x $ 2) ) =0};

IC:={ F(0)=0,  F(1)=0,   G(0)=1,  G(1)=0, D(F)(0)=0, D(F)(1)=M};
sol:= dsolve(EQ union IC,numeric,maxmesh=1024,initmesh=512,output=Array([0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1]));


Q1.mw

Please Wait...