imparter

160 Reputation

8 Badges

11 years, 238 days

MaplePrimes Activity


These are questions asked by imparter

I want to plot a graph of different values of k=0.1,k=0.5, k=-0.1, the display should be like this

my codes are 

restart:

V := exp(-x)*y^3/eta^3:

eta:=1+k*x+sin(2*Pi*x):

x:=0.1:

k:=0.1:

p2:=plot(V, y = 0 ..eta):

tf:=plottools:-transform((x,y)->[y,x]):

tf(p2):

plots:-display(tf(p2),labels=["v","y"]);

Hellow,

 any one know how to solve the second order differential equation using finite element method (Using Linear shape functions)

Dear sir,

i want to change the horizontal and vertical axis in maple plot. on horizontal axis  i  want velocity  u(y) values and on vertical axis y values i am attaching the file also My codes are 

U:=(y^2-2*h*y)*(-(5/2)*c1/(2*h^2*a^2+5));

 

 c1:=1:

 h:=1:

  a0:=subs(a=1,U):

 a1:=subs(a=1.5,U):

 a2:=subs(a=2.5,U):

 a3:=subs(a=3.5,U):

 a4:=subs(a=4.5,U):

 a5:=subs(a=5,U):

  plot([a0,a1, a2,a3,a4,a5], y=0..1, title = " Velocity profile for c1=1 and h=1", legend = [alpha = 1, alpha= 1.5,alpha= 2.5,alpha= 2.5,alpha= 4.5,alpha= 5], titlefont = ["ROMAN", 15], labels = ["y ", "u(y)"], labeldirections = ["horizontal", "vertical"], labelfont = ["HELVETICA", 10], style = [POINT],symbol = [BOX,CROSS,CIRCLE,DIAGONALCROSS,DIAMOND,SOLIDBOX],color = [black, black,black,black,black,black], axesfont = ["HELVETICA", "ROMAN", 8], legendstyle = [font = ["HELVETICA", 9], location = bottom],axes=boxed);

 

 

 I want to evaluate the values of x and y and the data should bo saved in .xls format  from contour plot 

for g=0.1 the data x and y values  should be stored in xls sheet 1  atleast 50 values 

similarly  in separate xls sheet 

for g=0.0 the data x and y values  should be stored in xls sheet 1  atleast 50 values 

 

with(plots):
g:=y*(1-1/(x^2+y^2)):
colors:=table([0.1=blue,0.0=green,0.2=red]):
display(seq(contourplot(g,x=-1..1,y=0..2,
contours=[i],color=colors[i],axes=boxed,legend=(i)),i=[0.1,0.0,0.2]));

thanks in advance

How to give the different colors in implicit plot  and add legends my codes are 

with(plots):

g:=y*(1-1/(x^2+y^2)):
aa:=[g=0.1,g=0,g=0.5]:
implicitplot({seq(aa[i],i=1..3)},x=-5..5,y=0..2,legend="g=0.1,g=0,g=0.5",color=[red,blue,green],scaling=constrained);
First 12 13 14 15 Page 14 of 15