Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

hi

please help me for simplify (factor) this equations.

thanks

vel.mw
 

simplify(-(1/226609908940800)*(106722*Br*NT*ln(h)*NB-106722*Br*NT*ln(R0)*NB-106722*Br*NT^2*ln(h)+106722*Br*NT^2*ln(R0)-106722*NB^2*Gr*ln(h)+106722*NB^2*Gr*ln(R0)+106722*Gr*NT*ln(h)*NB-106722*Gr*NT*ln(R0)*NB)*r^12/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(-524288*Br*NT*ln(h)*R0*NB-524288*Br*NT*ln(h)*h*NB+524288*Br*NT*ln(R0)*R0*NB+524288*Br*NT*ln(R0)*h*NB+524288*Br*NT^2*ln(h)*R0+524288*Br*NT^2*ln(h)*h-524288*Br*NT^2*ln(R0)*R0-524288*Br*NT^2*ln(R0)*h+524288*NB^2*Gr*ln(h)*R0+524288*NB^2*Gr*ln(h)*h-524288*NB^2*Gr*ln(R0)*R0-524288*NB^2*Gr*ln(R0)*h-524288*Gr*NT*ln(h)*R0*NB-524288*Gr*NT*ln(h)*h*NB+524288*Gr*NT*ln(R0)*R0*NB+524288*Gr*NT*ln(R0)*h*NB)*r^11/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(1920996*Br*NT*ln(h)*R0*h*NB-15367968*L^2*Br*NT^2*ln(h)+15367968*L^2*Br*NT^2*ln(R0)-15367968*L^2*Gr*NB^2*ln(h)+15367968*L^2*Gr*NB^2*ln(R0)-960498*NB^2*Gr*ln(h)*R0^2-960498*NB^2*Gr*ln(h)*h^2+960498*NB^2*Gr*ln(R0)*R0^2-1920996*Br*NT*ln(R0)*R0*h*NB+1920996*Gr*NT*ln(h)*R0*h*NB-1920996*Gr*NT*ln(R0)*R0*h*NB+960498*NB^2*Gr*ln(R0)*h^2-960498*Br*NT^2*ln(h)*h^2+960498*Br*NT^2*ln(R0)*R0^2-960498*Br*NT^2*ln(h)*R0^2+960498*Br*NT^2*ln(R0)*h^2+1920996*Br*NT^2*ln(R0)*R0*h-960498*Gr*NT*ln(R0)*h^2*NB+960498*Gr*NT*ln(h)*h^2*NB-960498*Gr*NT*ln(R0)*R0^2*NB+960498*Gr*NT*ln(h)*R0^2*NB-1920996*NB^2*Gr*ln(h)*R0*h+1920996*NB^2*Gr*ln(R0)*R0*h-15367968*L^2*Gr*NB*NT*ln(R0)-960498*Br*NT*ln(R0)*h^2*NB+15367968*L^2*Gr*NB*NT*ln(h)+960498*Br*NT*ln(h)*h^2*NB-960498*Br*NT*ln(R0)*R0^2*NB-15367968*L^2*Br*NB*NT*ln(R0)+960498*Br*NT*ln(h)*R0^2*NB-1920996*Br*NT^2*ln(h)*R0*h+15367968*L^2*Br*NB*NT*ln(h))*r^10/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(-63438848*L^2*Br*NB*NT*ln(h)*R0-63438848*L^2*Br*NB*NT*ln(h)*h+63438848*L^2*Br*NB*NT*ln(R0)*R0+63438848*L^2*Br*NB*NT*ln(R0)*h+63438848*L^2*Br*NT^2*ln(h)*R0+63438848*L^2*Br*NT^2*ln(h)*h-63438848*L^2*Br*NT^2*ln(R0)*R0-63438848*L^2*Br*NT^2*ln(R0)*h+63438848*L^2*Gr*NB^2*ln(h)*R0+63438848*L^2*Gr*NB^2*ln(h)*h-63438848*L^2*Gr*NB^2*ln(R0)*R0-63438848*L^2*Gr*NB^2*ln(R0)*h-63438848*L^2*Gr*NB*NT*ln(h)*R0-63438848*L^2*Gr*NB*NT*ln(h)*h+63438848*L^2*Gr*NB*NT*ln(R0)*R0+63438848*L^2*Gr*NB*NT*ln(R0)*h)*r^9/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(11116875*Br*NT^2*R0^4-11116875*Br*NT^2*h^4-11116875*NB^2*Gr*h^4+1536796800*p*ln(h)*NB+11116875*NB^2*Gr*R0^4-1536796800*p*ln(R0)*NB+11116875*Gr*NT*h^4*NB-11116875*Br*NT*R0^4*NB-11116875*Gr*NT*R0^4*NB-192099600*L^2*Gr*NB*NT*ln(R0)*R0*h+192099600*L^2*Gr*NB*NT*ln(h)*R0*h-192099600*L^2*Br*NB*NT*ln(R0)*R0*h+192099600*L^2*Br*NB*NT*ln(h)*R0*h-5336100*Br*NT^2*ln(R0)*R0*h^3-11116875*Gr*NT*R0^3*h*NB-11116875*Br*NT*R0^3*h*NB+11116875*Br*NT*R0*h^3*NB+11116875*Gr*NT*R0*h^3*NB+5336100*Gr*NT*ln(R0)*R0*h^3*NB+24012450*Gr*NT*ln(R0)*R0^2*h^2*NB-24012450*Gr*NT*ln(h)*R0^2*h^2*NB-5336100*Gr*NT*ln(h)*R0^3*h*NB-5336100*Gr*NT*R0*h^3*ln(r)*NB+5336100*Gr*NT*R0^3*h*ln(r)*NB-96049800*L^2*Gr*NB*NT*ln(R0)*h^2-96049800*L^2*Gr*NB*NT*ln(R0)*R0^2+96049800*L^2*Gr*NB*NT*ln(h)*h^2+96049800*L^2*Gr*NB*NT*ln(h)*R0^2+192099600*L^2*Gr*NB^2*ln(R0)*R0*h-192099600*L^2*Gr*NB^2*ln(h)*R0*h+5336100*Br*NT*ln(R0)*R0*h^3*NB+24012450*Br*NT*ln(R0)*R0^2*h^2*NB-24012450*Br*NT*ln(h)*R0^2*h^2*NB-5336100*Br*NT*ln(h)*R0^3*h*NB-5336100*Br*NT*R0*h^3*ln(r)*NB+5336100*Gr*NT*ln(R0)*h^4*NB-5336100*Gr*NT*ln(h)*R0^4*NB-5336100*Gr*NT*h^4*ln(r)*NB+5336100*Br*NT*R0^3*h*ln(r)*NB+192099600*L^2*Br*NT^2*ln(R0)*R0*h-192099600*L^2*Br*NT^2*ln(h)*R0*h-96049800*L^2*Br*NB*NT*ln(R0)*h^2-96049800*L^2*Br*NB*NT*ln(R0)*R0^2+96049800*L^2*Br*NB*NT*ln(h)*h^2+96049800*L^2*Br*NB*NT*ln(h)*R0^2+5336100*Gr*NT*R0^4*ln(r)*NB-5336100*NB^2*Gr*ln(R0)*R0*h^3-24012450*NB^2*Gr*ln(R0)*R0^2*h^2+24012450*NB^2*Gr*ln(h)*R0^2*h^2+5336100*NB^2*Gr*ln(h)*R0^3*h+5336100*NB^2*Gr*R0*h^3*ln(r)-5336100*NB^2*Gr*R0^3*h*ln(r)+96049800*L^2*Gr*NB^2*ln(R0)*h^2+96049800*L^2*Gr*NB^2*ln(R0)*R0^2-96049800*L^2*Gr*NB^2*ln(h)*h^2-96049800*L^2*Gr*NB^2*ln(h)*R0^2-1536796800*L^4*Gr*NB*NT*ln(R0)+5336100*Br*NT^2*R0*h^3*ln(r)+1536796800*L^4*Gr*NB*NT*ln(h)-5336100*Br*NT^2*R0^3*h*ln(r)-5336100*Br*NT*ln(h)*R0^4*NB+5336100*Br*NT*ln(R0)*h^4*NB-5336100*Br*NT*h^4*ln(r)*NB+5336100*NB^2*Gr*ln(h)*R0^4-5336100*NB^2*Gr*ln(R0)*h^4-5336100*NB^2*Gr*R0^4*ln(r)+5336100*NB^2*Gr*h^4*ln(r)-1536796800*L^4*Gr*NB^2*ln(h)+1536796800*L^4*Gr*NB^2*ln(R0)+1536796800*L^4*Br*NT^2*ln(R0)-5336100*Br*NT^2*R0^4*ln(r)+5336100*Br*NT^2*h^4*ln(r)-1536796800*L^4*Br*NT^2*ln(h)+11116875*Br*NB*NT*h^4+11116875*NB^2*Gr*R0^3*h-11116875*NB^2*Gr*R0*h^3+11116875*Br*NT^2*R0^3*h-11116875*Br*NT^2*R0*h^3+5336100*Br*NT^2*ln(h)*R0^4-5336100*Br*NT^2*ln(R0)*h^4+96049800*L^2*Br*NT^2*ln(R0)*h^2+5336100*Br*NT*R0^4*ln(r)*NB-96049800*L^2*Br*NT^2*ln(h)*h^2+96049800*L^2*Br*NT^2*ln(R0)*R0^2-1536796800*L^4*Br*NB*NT*ln(R0)-96049800*L^2*Br*NT^2*ln(h)*R0^2+24012450*Br*NT^2*ln(h)*R0^2*h^2+1536796800*L^4*Br*NB*NT*ln(h)+5336100*Br*NT^2*ln(h)*R0^3*h-24012450*Br*NT^2*ln(R0)*R0^2*h^2)*r^8/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(-5138546688*L^4*Br*NB*NT*ln(h)*R0-5138546688*L^4*Br*NB*NT*ln(h)*h+5138546688*L^4*Br*NB*NT*ln(R0)*R0+5138546688*L^4*Br*NB*NT*ln(R0)*h+5138546688*L^4*Br*NT^2*ln(h)*R0+5138546688*L^4*Br*NT^2*ln(h)*h-5138546688*L^4*Br*NT^2*ln(R0)*R0-5138546688*L^4*Br*NT^2*ln(R0)*h+5138546688*L^4*Gr*NB^2*ln(h)*R0+5138546688*L^4*Gr*NB^2*ln(h)*h-5138546688*L^4*Gr*NB^2*ln(R0)*R0-5138546688*L^4*Gr*NB^2*ln(R0)*h-5138546688*L^4*Gr*NB*NT*ln(h)*R0-5138546688*L^4*Gr*NB*NT*ln(h)*h+5138546688*L^4*Gr*NB*NT*ln(R0)*R0+5138546688*L^4*Gr*NB*NT*ln(R0)*h)*r^7/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(341510400*L^2*Gr*NB*NT*ln(R0)*R0*h^3+1536796800*L^2*Gr*NB*NT*ln(R0)*R0^2*h^2-1536796800*L^2*Gr*NB*NT*ln(h)*R0^2*h^2-341510400*L^2*Gr*NB*NT*ln(h)*R0^3*h-341510400*L^2*Gr*NB*NT*ln(r)*R0*h^3+341510400*L^2*Gr*NB*NT*ln(r)*R0^3*h-12294374400*L^4*Gr*NB*NT*ln(R0)*R0*h+12294374400*L^4*Gr*NB*NT*ln(h)*R0*h+341510400*L^2*Br*NB*NT*ln(R0)*R0*h^3+1536796800*L^2*Br*NB*NT*ln(R0)*R0^2*h^2-1536796800*L^2*Br*NB*NT*ln(h)*R0^2*h^2-341510400*L^2*Br*NB*NT*ln(h)*R0^3*h-341510400*L^2*Br*NB*NT*ln(r)*R0*h^3+341510400*L^2*Br*NB*NT*ln(r)*R0^3*h+341510400*L^2*Gr*NB*NT*ln(R0)*h^4-341510400*L^2*Gr*NB*NT*ln(h)*R0^4-341510400*L^2*Gr*NB*NT*ln(r)*h^4+341510400*L^2*Gr*NB*NT*ln(r)*R0^4-341510400*L^2*Gr*NB^2*ln(R0)*R0*h^3-12294374400*L^4*Br*NB*NT*ln(R0)*R0*h+12294374400*L^4*Br*NB*NT*ln(h)*R0*h-1536796800*L^2*Gr*NB^2*ln(R0)*R0^2*h^2+1536796800*L^2*Gr*NB^2*ln(h)*R0^2*h^2+341510400*L^2*Gr*NB^2*ln(h)*R0^3*h+341510400*L^2*Gr*NB^2*ln(r)*R0*h^3-341510400*L^2*Gr*NB^2*ln(r)*R0^3*h-6147187200*L^4*Gr*NB*NT*ln(R0)*h^2-6147187200*L^4*Gr*NB*NT*ln(R0)*R0^2+6147187200*L^4*Gr*NB*NT*ln(h)*h^2+6147187200*L^4*Gr*NB*NT*ln(h)*R0^2+12294374400*L^4*Gr*NB^2*ln(R0)*R0*h-12294374400*L^4*Gr*NB^2*ln(h)*R0*h-341510400*L^2*Br*NT^2*ln(R0)*R0*h^3-1536796800*L^2*Br*NT^2*ln(R0)*R0^2*h^2+1536796800*L^2*Br*NT^2*ln(h)*R0^2*h^2+341510400*L^2*Br*NT^2*ln(h)*R0^3*h+341510400*L^2*Br*NT^2*ln(r)*R0*h^3-341510400*L^2*Br*NT^2*ln(r)*R0^3*h+341510400*L^2*Br*NB*NT*ln(R0)*h^4-341510400*L^2*Br*NB*NT*ln(h)*R0^4-341510400*L^2*Br*NB*NT*ln(r)*h^4+341510400*L^2*Br*NB*NT*ln(r)*R0^4+12294374400*L^4*Br*NT^2*ln(R0)*R0*h-12294374400*L^4*Br*NT^2*ln(h)*R0*h-6147187200*L^4*Br*NB*NT*ln(R0)*h^2-6147187200*L^4*Br*NB*NT*ln(R0)*R0^2+6147187200*L^4*Br*NB*NT*ln(h)*h^2+6147187200*L^4*Br*NB*NT*ln(h)*R0^2+626102400*L^2*Br*NT^2*R0^3*h-626102400*L^2*Br*NT^2*R0*h^3-626102400*L^2*Br*NB*NT*R0^4+626102400*L^2*Br*NB*NT*h^4+626102400*L^2*Gr*NB*NT*h^4-626102400*L^2*Gr*NB^2*R0*h^3+626102400*L^2*Gr*NB^2*R0^3*h-626102400*L^2*Gr*NB*NT*R0^4-6147187200*L^4*Gr*NB^2*ln(h)*h^2+6147187200*L^4*Gr*NB^2*ln(R0)*R0^2-6147187200*L^4*Gr*NB^2*ln(h)*R0^2-341510400*L^2*Br*NT^2*ln(R0)*h^4+341510400*L^2*Br*NT^2*ln(r)*h^4+341510400*L^2*Br*NT^2*ln(h)*R0^4-626102400*L^2*Gr*NB*NT*R0^3*h+626102400*L^2*Gr*NB*NT*R0*h^3-626102400*L^2*Br*NB*NT*R0^3*h+626102400*L^2*Br*NB*NT*R0*h^3+6147187200*L^4*Br*NT^2*ln(R0)*h^2-341510400*L^2*Br*NT^2*ln(r)*R0^4+6147187200*L^4*Br*NT^2*ln(R0)*R0^2-6147187200*L^4*Br*NT^2*ln(h)*R0^2-6147187200*L^4*Br*NT^2*ln(h)*h^2-341510400*L^2*Gr*NB^2*ln(R0)*h^4-393419980800*c2*ln(h)*ln(r)*L^2*NB+393419980800*c2*ln(R0)*ln(r)*L^2*NB-341510400*L^2*Gr*NB^2*ln(r)*R0^4+341510400*L^2*Gr*NB^2*ln(r)*h^4+341510400*L^2*Gr*NB^2*ln(h)*R0^4+6147187200*L^4*Gr*NB^2*ln(R0)*h^2-626102400*L^2*Gr*NB^2*h^4+626102400*L^2*Br*NT^2*R0^4-626102400*L^2*Br*NT^2*h^4-393419980800*c1*ln(h)*L^2*NB+327849984000*c2*ln(h)*L^2*NB+98354995200*L^2*p*NB*ln(h)+393419980800*c1*ln(R0)*L^2*NB-327849984000*c2*ln(R0)*L^2*NB-98354995200*L^2*p*NB*ln(R0)+626102400*L^2*Gr*NB^2*R0^4)*r^6/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(-3540779827200*c3*L^2*NB*ln(h)+3540779827200*c3*L^2*NB*ln(R0)+12294374400*L^4*Br*NT^2*ln(h)*R0^3*h+55324684800*L^4*Br*NT^2*ln(h)*R0^2*h^2-55324684800*L^4*Br*NT^2*ln(R0)*R0^2*h^2-12294374400*L^4*Br*NT^2*ln(R0)*R0*h^3-12294374400*L^4*Gr*NB^2*ln(r)*R0^3*h+12294374400*L^4*Gr*NB^2*ln(r)*R0*h^3+12294374400*L^4*Gr*NB^2*ln(h)*R0^3*h+55324684800*L^4*Gr*NB^2*ln(h)*R0^2*h^2-55324684800*L^4*Gr*NB^2*ln(R0)*R0^2*h^2-12294374400*L^4*Gr*NB^2*ln(R0)*R0*h^3+12294374400*L^4*Gr*NB*NT*ln(r)*R0^4-12294374400*L^4*Gr*NB*NT*ln(r)*h^4-12294374400*L^4*Gr*NB*NT*ln(h)*R0^4+12294374400*L^4*Gr*NB*NT*ln(R0)*h^4+12294374400*L^4*Br*NB*NT*ln(r)*R0^4-12294374400*L^4*Br*NB*NT*ln(r)*h^4-12294374400*L^4*Br*NB*NT*ln(h)*R0^4+12294374400*L^4*Br*NB*NT*ln(R0)*h^4-12294374400*L^4*Br*NT^2*ln(r)*R0^3*h+12294374400*L^4*Br*NT^2*ln(r)*R0*h^3-18441561600*L^4*Gr*NB*NT*R0^3*h+18441561600*L^4*Gr*NB*NT*R0*h^3-18441561600*L^4*Br*NB*NT*R0^3*h+18441561600*L^4*Br*NB*NT*R0*h^3+12294374400*L^4*Br*NB*NT*ln(R0)*R0*h^3+12294374400*L^4*Gr*NB*NT*ln(r)*R0^3*h-12294374400*L^4*Gr*NB*NT*ln(r)*R0*h^3-12294374400*L^4*Gr*NB*NT*ln(h)*R0^3*h-55324684800*L^4*Gr*NB*NT*ln(h)*R0^2*h^2+55324684800*L^4*Gr*NB*NT*ln(R0)*R0^2*h^2+12294374400*L^4*Gr*NB*NT*ln(R0)*R0*h^3-18441561600*L^4*Gr*NB^2*R0*h^3+18441561600*L^4*Gr*NB*NT*h^4+18441561600*L^4*Br*NB*NT*h^4-18441561600*L^4*Br*NB*NT*R0^4-18441561600*L^4*Br*NT^2*R0*h^3+18441561600*L^4*Br*NT^2*R0^3*h-12294374400*L^4*Gr*NB^2*ln(R0)*h^4-14163119308800*L^4*c2*ln(r)*NB*ln(h)+14163119308800*L^4*c2*ln(r)*NB*ln(R0)-3540779827200*c4*ln(r)*L^2*NB*ln(h)+3540779827200*c4*ln(r)*L^2*NB*ln(R0)-18441561600*L^4*Gr*NB*NT*R0^4+18441561600*L^4*Gr*NB^2*R0^3*h-12294374400*L^4*Br*NT^2*ln(r)*R0^4+12294374400*L^4*Br*NT^2*ln(r)*h^4+12294374400*L^4*Br*NT^2*ln(h)*R0^4-12294374400*L^4*Br*NT^2*ln(R0)*h^4-12294374400*L^4*Gr*NB^2*ln(r)*R0^4+12294374400*L^4*Gr*NB^2*ln(r)*h^4+12294374400*L^4*Gr*NB^2*ln(h)*R0^4+55324684800*L^4*Br*NB*NT*ln(R0)*R0^2*h^2-55324684800*L^4*Br*NB*NT*ln(h)*R0^2*h^2-12294374400*L^4*Br*NB*NT*ln(h)*R0^3*h-12294374400*L^4*Br*NB*NT*ln(r)*R0*h^3+12294374400*L^4*Br*NB*NT*ln(r)*R0^3*h+18441561600*L^4*Gr*NB^2*R0^4-18441561600*L^4*Gr*NB^2*h^4+18441561600*L^4*Br*NT^2*R0^4-3540779827200*L^4*p*NB*ln(R0)+5311169740800*c4*ln(h)*L^2*NB-5311169740800*c4*ln(R0)*L^2*NB-18441561600*L^4*Br*NT^2*h^4-14163119308800*L^4*c1*NB*ln(h)+7081559654400*L^4*c2*ln(h)*NB+3540779827200*L^4*p*NB*ln(h)+14163119308800*L^4*c1*NB*ln(R0)-7081559654400*L^4*c2*ln(R0)*NB)*r^4/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(-226609908940800*L^6*c2*ln(r)*NB*ln(h)+226609908940800*L^6*c2*ln(r)*NB*ln(R0)-226609908940800*L^6*c1*NB*ln(h)+226609908940800*L^6*c1*NB*ln(R0)-56652477235200*L^4*c4*ln(r)*NB*ln(h)+56652477235200*L^4*c4*ln(r)*NB*ln(R0)-56652477235200*L^4*c3*NB*ln(h)+56652477235200*L^4*c4*ln(h)*NB+56652477235200*L^4*c3*NB*ln(R0)-56652477235200*L^4*c4*ln(R0)*NB)*r^2/(L^6*NB*(ln(h)-ln(R0)))-(1/226609908940800)*(-226609908940800*L^6*c4*ln(r)*NB*ln(h)+226609908940800*L^6*c4*ln(r)*NB*ln(R0)-226609908940800*L^6*c3*NB*ln(h)+226609908940800*L^6*c3*NB*ln(R0))/(L^6*NB*(ln(h)-ln(R0)))):

NULL


 

Download vel.mw

 

can maple code saved into database for self modifying easily?

self modifying , metaprogramming , database, snapshot, blockchain for code integrity etc

LetterA_Axes_query.mws

  The attached shows animation of the letter A. The animation works fine, and in the plot diagram of the large letter A, the axes are shown.  However, in the second plot (animated), the axes are not being shown, despite clicking on Axes in the animation.  The choices here are Boxed, Framed, Normal or None.

  In the Maple 7 documentation on Axes it states "From the Axes menu choose Ranges...."   ...but I can't see Ranges. 

Any reasons for this?

Hi all, since I cannot use Latex over here I try to formulate as good as possible. Suppose we have the standard integral from a to b of a function f(x), which is equal to:

h * sum (k=1 to N) [ck f(a+kh)] +O(hp), where h=(b-a)/N+1, an p(N)>= N+1;

Would it be possible to write a procedure to evaluate the coefficients ck , k=1,2,3..N and P(N)

Perhaps a stupid question, because I don't know if it is possible.

Best wishes, Math

Hey, 

I run into the same issue quite often. Let's say I have some polynomial over variable like this

H = (s-z0)/((s-p0)*(s-p1))

I do a substitution on s and get something quite messy as a result. Example:

H = ((z-1)/(T*z)-z0)/(((z-1)/(T*z)-p0)*((z-1)/(T*z)-p1))



Now I would like to get the polynomial in the same pole / zero form. I'm sure maple is capable of doing this but I have no clue where to click. Is there an easy way to bring a polynomial over some variable in a standarized form?

Cheers!


 

``

restart

``

f := proc (x, z) options operator, arrow; ln(x^z) end proc;

proc (x, z) options operator, arrow; ln(x^z) end proc

(1)

``

``

``

simplify(f(x, 2), ln);

ln(x^2)

(2)

simplify(f(x, 1/2+I*y), ln);

ln(x^(-((1/2)*I)*(I-2*y)))

(3)

``


 

Download simplln.mw

 

with(CodeGeneration)

ua=[ 1 2 3 4];

Matlab(ua);

 

%How can i write the Output of "Matlab(ua)"  on file so I can use the Matlab "load" command
later on to get the result in Matlab?  

 

 

For my own use, I am attempting to port Joe Riel’s glyph package for geometric algebra into a module more compatible with recent versions of Maple. To this end, I have been testing individual procedures extracted from the package into Maple 2016, both to understand the algorithms and to check for glitches caused by the code running in more current Maple 2016. The procedure for carrying out the exterior multiplication of blades does not seem to work reliably, and I haven’t the necessary knowledge of Maple language to determine whether this is due to an error on my part or a feature of Maple V that no longer works.  I have attached a worksheet,tablemultiplyexample.mw,  that includes the procedures necessary for the multiplication routine to work, but I can’t get any consistency in the results.  Can anyone advise me what is the problem?  

As I understand the routine, setup defines a anti-symmetric root blade table with an indexing function that precludes assignment to the table. Clifford blades are then represented as indexed variables using the root table. The process is as follows see worksheet for actual code):

initialize := proc ()
 global _e, tableroot;
tableroot := table(antisymmetric, blade);
tableroot[] := 1;
_e := tableroot;
end proc:
#The index function `blade` is as follows:

`index/blade` := proc (Indices, tableau)
 if nargs = 2 then if Indices = [] then 1
          else tableau[op(checkindices(Indices))] end if
elif Indices = [] then tableau[Indices[]] := 1
 else ERROR("cannot assign to a blade", Indices) end if
end proc;

#Exterior multiplication is performed by the following routine.
b_exteriorp := proc (u, v)
option remember;
 if  u = 1 or v = 1 then u*v
else _e[op(u), op(v)] end if
end proc:

As near as I understand, the procedure joins the lists representing the two input blade into a single list that is processed by the antisymmetric indexing function and outputs the indexes as the product blade. I don’t understand how the case of duplicate indexes (which should return 0) is supposed to be handled by the procedure.  What the procedure usually returns is simply the appended list of the two blades without modification by the indexing function.

Can anyone give me a hint about how to fix this procedure?

tablemultiplyexample.mw

I am trying to input data via a data table. Have several problems here.

I used an array because I want the row and column numbers to start at 0.

1st When the table appers after that the document runs hediously slow as in a second or two to enter a digit or letters appear after typing.  Like something is absorbing the computer resources. But I have a fast machine.

2nd Any data I  enter to the table vanishes but does get stored.

3rd I tried to turn it all into a procedure but cant get that to work.
 

restart

with(DocumentTools:-Components)

[Button, CheckBox, CodeEditRegion, ComboBox, DataTable, Dial, Label, ListBox, MathContainer, Meter, Microphone, Plot, RadioButton, RotaryGauge, Shortcut, Slider, Speaker, State, TextArea, ToggleButton, VideoPlayer, VolumeGauge]

(1)

with(DocumentTools:-Layout)

[Cell, Column, DocumentBlock, Equation, Font, Group, Image, InlinePlot, Input, Output, Row, Section, Table, Textfield, Title, Worksheet]

(2)

with(DocumentTools)

[AddIcon, AddPalette, AddPaletteEntry, Components, ContentToString, CreateTask, Do, GetDocumentProperty, GetProperty, InsertContent, InsertTask, Layout, RemovePalette, RemovePaletteEntry, RemoveTask, Retrieve, RunWorksheet, SetDocumentProperty, SetProperty, Tabulate]

(3)

ary := Array(0 .. 3, 0 .. 3)

Array(%id = 18446746457454449478)

(4)

``

 

 

``

DT := DataTable(identity = "DataTable0", variable = 'ary', rowheader, columnheader, columnnames = [beta^0, beta, beta^2, beta^3], rownames = [alpha^0, alpha, alpha^2, alpha^3])

xml := Worksheet(Group(Input(Textfield(DT))))

DocumentTools:-InsertContent(xml)

PN1 := copy(ary, 0 .. (), 0 .. ())

Array(%id = 18446746457454471998)

(5)

Matrix(PN1)

Matrix(%id = 18446746457454477550)

(6)

PN1[0, 0]

6

(7)

BiPolyNum := proc (a := 4, b := 4) local ary, DT; description "Creates Bi Polynumbers"; ary := Array(0 .. a, 0 .. b); DT := DataTable(identity = "DataTable0", variable = 'ary', rowheader, columnheader, columnnames = [1, beta, beta^2, beta^3], rownames = [1, alpha, alpha^2, alpha^3]); DocumentTools:-InsertContent(xml); return copy(ary) end proc

proc (a := 4, b := 4) local ary, DT; description "Creates Bi Polynumbers"; ary := Array(0 .. a, 0 .. b); DT := DocumentTools:-Components:-DataTable(identity = "DataTable0", variable = 'ary', rowheader, columnheader, columnnames = [1, beta, beta^2, beta^3], rownames = [1, alpha, alpha^2, alpha^3]); DocumentTools:-InsertContent(xml); return copy(ary) end proc

(8)

``

``

f := BiPolyNum()

Array(%id = 18446746457454464046)

(9)

f

Array(%id = 18446746457454464046)

(10)

Matrix(f)

Matrix(%id = 18446746457454466582)

(11)

``


 

Download DataTable_Experiment.mw

Hi all,

 

I have a bunch of polynomials in q that involve unknown roots of unity and I want to bound them above by another polynomial.

For example: f(q):=q3-a*q2+b*q2-5.

Here a and b are powers of some roots of unity. These roots/powers depend on some variables which are unimportant.

My incorrect method up until now was to let all root of unity equal 1 so they vanish, and then run a short script that finds all coefficients of the poly f and makes them positive. 

But in this case it returns an answer of q^3+5 as the quadratic terms vanish - I don;t want this to happen! I really want the bound q3+2*q2+5.

If I run the script that changes the coefficients first, then maple can't  recognise if -a is positive or negative and so this doesn't work. If it helps this is it:

f:=g[i,j]; 
coffs:=[];
for m from 0 to degree(f) do
   coffs:=[op(coffs), abs(coeff(f,q,m))] end do;
fabs:=0;
for m from 1 to degree(f,q)+1 do
   fabs:=fabs+coffs[m]*q^(m-1) end do;
      g[i,j]:=fabs end do;
                     end do;
Any ideas would be great. Thanks!

 

EDIT: to perhaps make it clearer. The kind of roots of unity i'm dealing with are things like z2*j*k+q*k+(1/2)*l where z is a (q-1)th root of unity, and j,k,l are unknown integer variables. 

Hi everybody,

I use dsolve(..., numeric, events =[...], parameters = [...], range=0..TMAX) to solve a parameterized system of 2 ODEs (unknowns x(t) and v(t)).

The solution over the whole range [0, TMAX] is constructed by assembling partial solutions over adjacent subranges of [0, TMAX].

(please look the attached file and feel free to contact me if you need more details than those given below

There exist two types of solution :

  • Type 1 : trivial solution : for all t in some range [a>=0, b<= TMAX], the solution is x(t)=0 and v(t)=0
  • Type 2 : for all t in some range [b>=0, c<= TMAX] {x(t), v(t)} is the solution of the differential system


The end of the simulation corresponds :

  • either to t=TMAX
  • either to x(t) = CMAX where CMAX is some predefined value for x(t)
     

I use events to manage the two following situations 

  • x(t) = CMAX
  • x(t) = 0 and v(t) < 0 : this is the situation which describes the transition between Type 2 solutution and Type 1 solution


The global solution is constructed by assembling partial solutions over subranges [0, b[1]], [b[1], b[2]], [b[2], b[3]] ... where type 1 solutions "live" in [b[n], b[n+1]] if n is odd and type 2 solutions in  [b[n], b[n+1]] if  n is even.
 
The assembly of the partial solutions doesn't work correctly : I identified the reason but I'm not capable to fix it.
If you look to the red instructions on yellow background you will see they do not return the same answer than the pink instructions (look to the blue outputs over the plot) . 

This is probably due to a very big mistake on my part  but I can't fix it !

Once again, if my explanations are not sufficient or if I'm not enough clear, feel free to ask me any questions you need.

Thanks in advance

 

ParametricDsolve.mw

 



 

Why is maple showing 1D math when evaluating?

Dear sir,

 

I request to provide the procedure to evaluate the following double integral in steps. Please find the enclosed attachment

 

 

I wanted to calculate the bessel function's limit, but there is no results.


 

NULLNULLwith(MTM):

constants := s

s

(1)

eq1 := `assuming`([limit(MTM:-bessely(1, -I*r*sqrt(s)), infinity)], [s > 0])

BesselY(1, -(infinity*I)*s^(1/2))

(2)

eq2 := eval(eq1)

BesselY(1, -(infinity*I)*s^(1/2))

(3)

eq3 := `assuming`([limit(MTM:-bessely(1, -I*r), infinity)], [s > 0])

BesselY(1, -infinity*I)

(4)

eq4 := eval(eq3)

BesselY(1, -infinity*I)

(5)

eq5 := `assuming`([limit(beselj(1, -I*r*sqrt(s)), infinity)], [s > 0])

beselj(1, -(infinity*I)*s^(1/2))

(6)

eq6 := eval(eq5)

beselj(1, -(infinity*I)*s^(1/2))

(7)

eq7 := `assuming`([limit(MTM:-besselj(1, -I*r), infinity)], [s > 0])

-I*BesselI(1, infinity)

(8)

``

``


 

Download test.mw

Below is my attempt to distinguish between add vs sum commands.  In principle, the sum command is symbolic.  I attempt the comparison in general, but get an error for the add command.  This error appears to occur if I do not assign numeric values to the general variables in the function.  I would like to execute the comparison symbolically.  Can this be done or does add only execute numerical evaluations?

Download sum_vs_add.mw

sum_vs_add.mw

First 850 851 852 853 854 855 856 Last Page 852 of 2219