waseem

65 Reputation

7 Badges

6 years, 212 days

MaplePrimes Activity


These are replies submitted by waseem

@vv 

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

@tomleslie 

We can see this question also

https://www.mapleprimes.com/questions/225117-How-To-Solve-This-Error-In-Maple

@tomleslie 

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 

Help1.mw

@acer 

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

@acer 

Thanks for  correcting me

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

@tomleslie

sorry, 

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

I am attaching my codes 

restart:
with(DETools):
a1:=m^2*((1-N)/(2-N))*(r/2)*Dp:
a2:=((1-N)*m^2/(2-N))*((G[r]*(Nb-Nt)/64)*(r^5/6-h^2*r/2)-(B[r]/4)*(r^3/4-h^2*r/2)*(Nt/Nb)):
a3:=a1-a2:
a4:=r^2*a3:
DE1:=r^2*diff(v(r),r,r)+r*diff(v(r),r)-(m^2*r^2+1)*v(r)=a4:
b1:=dsolve(DE1,v(r));
simplify(collect(coeff(rhs(collect(expand(b1), [B[r], Nt])), B[r]),r))*B[r];
 

@vv 

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

 

with(plots):
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,
14]):
#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-cos(.1*Pi)^2

1 2 3 4 5 6 7 Page 1 of 7