65 Reputation

7 Badges

6 years, 212 days

MaplePrimes Activity

These are replies submitted by waseem


Because once the above TECHNIQUE is applied to simple problem,  we can applied  to difficulty  problem  also 


We can see this question also



Thanks, actually I want to apply the procedure given in the reference paper , in that paper they use MATLAB to solve  by galerkin technique and written the difference scheme  and plot the graphs.

IS IT POSSIBLE IN MAPLE ALSO CAN WE SOLVE BY THE SAME TECHNIQUE ??????.if it so  then number of non linear coupled equation  can be solve.

Requesting a maple user's to apply the same TECHNIQUE  given in the reference paper.  I have also tried it.

Dear maple user, any one know why it happen, what's wrong with the codes

@acer Thanks a lot for  patiently answer my queries.

Sorry I don't want to  screw your  edits .

Just want to learn maple programming.

One small suggestions i want to know from your side


I want to plot the graph for different values of k=0.1,0.2,0.3,04.

Is it possible to change the last line  of you code to get 4 graphs  in 2X2  matrix form

plot([seq(eval(igRe,gamma2=j),j=[0,0.02,0.06])],gamma1=0.02..0.1,  adaptive=false,
     legend = [gamma2 = 0.0,gamma2 = 0.02,gamma2 = 0.04],  linestyle = [solid,dash,dot],
     color = [black,black,black],    labels=[gamma1,'Re(Dp)'],     gridlines=false, axes=boxed);

changed as   

display(Matrix(2,2,[seq(plot([seq(eval(igRe(k),gamma2=j),j=[0,0.02,0.06])],gamma1=0.02..0.1,adaptive=false,legend = [gamma2 = 0.0,gamma2 = 0.02,gamma2 = 0.04],linestyle = [solid,dash,dot], color = [black,black,black],
     labels=[gamma1,'Re(Dp)'],gridlines=false, axes=boxed),k in [0.1,0.2,0.3,0.4])]));
while changing  i am getting an error 


@acer  thanks

I am still getting stuck in the plot if i add further terms.  i have add some more terms but while running the codes it will take more times and the system stuck. See what is  wrong in the codes that i  am unable to plot the graphs 



thanks a lot  for making imaginary part as zero  and prompt reply and suggestions you have made

@tomleslie  thanks  for correcting me and  can we collect the real part  and  plot  the graphs


Thanks for  correcting me

@Kitonum  very nice , i want to know that what is the meaning of [4,2,1,1]



I have not mentioned  G[r] in my codes .

I am attaching my codes 

simplify(collect(coeff(rhs(collect(expand(b1), [B[r], Nt])), B[r]),r))*B[r];


Atleast (Nb-Nt) and (Nb/Nt)  should be common

@Kitonum  Thanks  alot, one more thing can we  put legend inside the plot, i have seen  it is in the bottom , left , so on. I have seen your post " https://www.mapleprimes.com/questions/222181-Insering-Legend-Inside-The-Figure-Plot-",  whose codes are  given below. Is it possible  in text plot C  that can we put  line, Dash dot, and longdash  , circle, diamond


A:=plot([sin(x), cos(x)], x=-Pi..3*Pi, color=[red,blue]):
B:=textplot([[3.7,0.8,sin(x)], [-1.8,0.5,cos(x)]], font=[times,bold,
#C:=textplot([[3,1,_, color=red], [-2.5,0.7,__,color=blue]], font=[times,bold,24]):
display(A, B, C, scaling=constrained);
# Note  C:=textplot([[3,1,longdash, color=red], [-2.5,0.7,dash dot,color=blue]], font=[times,bold,24]):

@acer  apology  from next time i will mention version , curretly i am using maple13

@Kitonum  thanks but i am getting the out put like this, i,e unable to evaluate the value of Pi


1 2 3 4 5 6 7 Page 1 of 7