maple2015

145 Reputation

7 Badges

10 years, 8 days

MaplePrimes Activity


These are questions asked by maple2015

The scale of vertical axis is logarithmic and function in each interval must be linear. When I use the command " mode=log " the shape of lines are deformed into curves, however when I use the command " curve ", the shape of lines remains straight. I can use right-click for changing mode to logarithmic scale but is it possible to use label font for vertical axis as well as size, resolution and other options in the command "curve" ?

Thanks alot

 

 

restart; with(plottools):

SN := curve([[3, (4.566256-4.544647)/(4.544647)], [4, (4.544933-4.544647)/(4.544647)], [5, (4.544653-4.544647)/(4.544647)], [6, (4.544649-4.544647)/(4.544647)], [7, 0]]): PLOT(SN);

-----------------------------------------------------------------------------------------------------------------------

for m to 5 do

x[m] := m+2 end do:

y[1, 1] := (4.566256-4.544647)/(4.544647):y[2, 1] := (4.544933-4.544647)/(4.544647): y[3, 1] := (4.544653-4.544647)/(4.544647): y[4, 1] := (4.544649-4.544647)/(4.544647): y[5, 1] := 0:

for j to 1 do for i to 4 do

L[i, j] := (y[i+1, j]-y[i, j])*(x-x[i])+y[i, j] end do:

PW[j] := piecewise(`and`(x >= x[1], x < x[2]), L[1, 1], `and`(x >= x[2], x < x[3]), L[2, 1], `and`(x >= x[3], x < x[4]), L[3, 1], `and`(x >= x[4], x < x[5]), L[4, 1]) end do:

plot(PW[1], x = x[1] .. x[5], color = black, axes = framed, font = [Times, 13], size = [650, 550], resolution = 1200, legendstyle = [location = top], legend = ['gamma' = -.4], linestyle = solid, thickness = 2, labels = [Number*of*Basis, '(P-P[min])/P[min]'], labelfont = [Times, 13], axis[2] = [mode = log]);

------------------------------------------------------------------------------------------------------------------------

Hi

When I run a maple file it uses 25% of CPU.

When I run 2 files, the half of CPU is used.

How can I change the preferences for using most of CPU

Hi

Please help me to solve EQ in attached file.

I need amount of P.

 

 

Hi

How  can we draw diagrams in tripartite coordinate system?

------------------------------------------------------------------------------------------------------------------------------

restart:

Digits :=30: m := 4: g :=0.3: nu := 0.4: a := 1:k:=0.2:

W:=cos(n*2*evalf(Pi)*( r-k*a)/((1-k)*a)):

ODE:=((2*(diff(W, r, r, r, r))+2*(diff(W, r, r, r))/r-4*(diff(W, r, r))/r^2+4*(diff(W, r))/r^3-(2*(1-nu))*(diff(W, r, r, r))/r+(4*(1-nu))*(diff(W, r, r))/r^2-(4*(1-nu))*(diff(W, r))/r^3)*r*(1+g*r/a)^3+(2*(2*(diff(W, r, r, r))+2*(diff(W, r, r))/r-2*(diff(W, r))/r^2-(2*(1-nu))*(diff(W, r, r))/r+(2*(1-nu))*(diff(W, r))/r^2))*(1+g*r/a)^3+(6*(2*(diff(W, r, r, r))+2*(diff(W, r, r))/r-2*(diff(W, r))/r^2-(2*(1-nu))*(diff(W, r, r))/r+(2*(1-nu))*(diff(W, r))/r^2))*r*(1+g*r/a)^2*g/a+(6*(2*(diff(W, r, r))+2*(diff(W, r))/r-(2*(1-nu))*(diff(W, r))/r))*(1+g*r/a)^2*g/a+(6*(2*(diff(W, r, r))+2*(diff(W, r))/r-(2*(1-nu))*(diff(W, r))/r))*r*(1+g*r/a)*g^2/a^2-((2*(diff(W, r, r, r)+(diff(W, r, r))/r-(diff(W, r))/r^2))/r-(2*(diff(W, r, r)+(diff(W, r))/r))/r^2-(2*(1-nu))*(diff(W, r, r, r))/r+(2*(1-nu))*(diff(W, r, r))/r^2)*r*(1+g*r/a)^3-((2*(diff(W, r, r)+(diff(W, r))/r))/r-(2*(1-nu))*(diff(W, r, r))/r)*(1+g*r/a)^3-(3*((2*(diff(W, r, r)+(diff(W, r))/r))/r-(2*(1-nu))*(diff(W, r, r))/r))*r*(1+g*r/a)^2*g/a)/(2*(diff(W, r, r))*r+2*(diff(W, r))) :

for i from 1 to m do  for j from 1 to m do
C[i,j]:=int(subs(n=i,ODE)*subs(n=j,W),r=k*a..a)
end do:end do:

First 6 7 8 9 10 11 12 Page 8 of 12