MaplePrimes Questions

mathcontainerUses_Doubt.mw
 

restart; d[1] := [2.36, 26.90], [2.75, 30.0], [3.14, 31.9], [3.53, 32.8], [3.93, 33.4], [4.32, 32.8], [4.71, 31.9]

[2.36, 26.90], [2.75, 30.0], [3.14, 31.9], [3.53, 32.8], [3.93, 33.4], [4.32, 32.8], [4.71, 31.9]

(1)

NULL

d[2] := [2.36, 32.40], [2.75, 34.90], [3.14, 36.90], [3.53, 38.00], [3.93, 38.40], [4.32, 37.8], [4.71, 36.5]

[2.36, 32.40], [2.75, 34.90], [3.14, 36.90], [3.53, 38.00], [3.93, 38.40], [4.32, 37.8], [4.71, 36.5]

(2)

d[3] := [2.36, 27.9], [2.75, 28.3], [3.14, 30.0], [3.53, 30.9], [3.93, 31.3], [4.32, 30.8], [4.71, 29.7]

[2.36, 27.9], [2.75, 28.3], [3.14, 30.0], [3.53, 30.9], [3.93, 31.3], [4.32, 30.8], [4.71, 29.7]

(3)

y := a*x^2+b*x+c; for i to 3 do d[i] := [d[i]]; c[i] := CurveFitting[LeastSquares](d[i], x, curve = y) end do

HFloat(8.047886108501745)+HFloat(11.793324911833839)*x-HFloat(1.5172878997894277)*x^2

(4)

 

curve1 := [c[1], c[2]]; k[1] := [1, 2]; curve1p := [d[1], d[2]]; l[1] := "plot 1"

"plot 1"

(5)

curve2 := [c[2], c[3]]; k[2] := [2, 3]; curve2p := [d[2], d[3]]; l[2] := "plot 2"

"plot 2"

(6)

curve3 := [c[1], c[3]]; k[3] := [1, 3]; curve3p := [d[1], d[3]]; l[3] := "plot 3"

"plot 3"

(7)
Table 1

 

xlabel := "Brake Power"; ylabel := "Efficiency"

"Efficiency"

(8)

p1 := plot(curve1, x = 2.0 .. 5.0, labels = [xlabel, ylabel], labeldirections = ["horizontal", "vertical"], color = [black], linestyle = [1, 2], thickness = [3, 1], title = Title, caption = "Fig. 1 cool  Example 1", legend = ["curve1", "curve2"]); p2 := plot(curve1p, style = point, color = [black], symbol = [soliddiamond, box], symbolsize = 10); plots:-display(p1, p2)

 

p1 := plot(curve2, x = 2.0 .. 5.0, labels = [xlabel, ylabel], labeldirections = ["horizontal", "vertical"], color = [black], linestyle = [1, 2], thickness = [3, 1], title = Title, caption = "Fig. 1 cool  Example 1", legend = ["curve1", "curve2"]); p2 := plot(curve2p, style = point, color = [black], symbol = [box, point], symbolsize = 10); plots:-display(p1, p2)

 

p1 := plot(curve3, x = 2.0 .. 5.0, labels = [xlabel, ylabel], labeldirections = ["horizontal", "vertical"], color = [black], linestyle = [1, 2], thickness = [3, 1], title = Title, caption = "Fig. 1 cool  Example 1", legend = ["curve1", "curve2"]); p2 := plot(curve3p, style = point, color = [black], symbol = [soliddiamond, point], symbolsize = 10); plots:-display(p1, p2)

 

 

"for j from 1 to 3 do  print( Report on l[j]); for i in k[j] do x1(i):=solve((ⅆ)/(ⅆ x)c[i]);  y1(i):=eval( c[i], [x = x1(i)]):  print( Maximum brake thermal efficiency of,y1(i) "%"occurs at brake power value of , x1(i)kW);  end do;  end do;"

Maximum*brake*thermal*efficiency*of, HFloat(30.964188366461613)*"%"*occurs*at*brake*power*value*of, 3.886317459*kW

(9)

NULL


 

Download mathcontainerUses_Doubt.mw

Can any one state the uses of mathcontainer?

1. It can store only one algebraic expression at a time?

2. Can it handle list of algebraic expressions?

3. Can it store list data points (x,y) for a list of curves?

4. Can there be any use for click to edit this component?

More than a simple Yes or No a simple example for each yes answer would be very helpful.

I enclose a document with list of coordinates for for three curves, expression for curve fitting, three expressions derived for these plot points (coordinates), a command for optimum y for each of the three curves (maximum y and corresponding x value), 

Thanks for answering.

Ramakrishnan V

Hey there. 

I recently had to install maple 2017, because the licensens for 2016 had expired. 

And in the new version, whenever i want to copy a matrix from a result, it gives me an _rtable, and a number. The result is the same, but it makes it harder to read and i am not able to edit values in this copied matrix. 

How do i change this?

I have an two arrays of elements Op1[i,j] with -5 <= i,j <= 5 and Op2[i,j] with 5<=i,j<= 35 . When I use surfdata like

surfdata({0p1,Op2})

it produces a plot with both the range of Op1 and Op2 between 0 and 1 (see Fig1).

I tried surfdata({0p1,Op2},-5..35,-5..35) but this only gave the range of the figure from -5 to 35, -5 to 35 but with both plots scaled so that they cover the whole range(see Fig2).

How do i make surfdata use different ranges on the same plot for both arrays?

Please can someone help with maple comand to obtain Jacobian elliptic functions particularly in code editing region?

I have an excel data file where data are in floating points of different decimals. I have made the following command which worked once. Second time it gives an error stating that one argumnet is expected, but receives three. How do I solve this problem. I want the data to be imported to data table in two decimal formats.

Export_TO_Maple1.xlsxExport_TO_Maple2.xlsxDOUBT.mw

M1 := Import(evalf[2]("E:/A_PhD2017/Export_TO_Maple1.xlsx", "Sheet1", "A2:U8"));

Is it possible to compare two maple files, given that there are small changes between them?

in the steps below, it is not fluent to do, and appear diff(1,t)

KineticEnergy := 1/2*m*diff(x(t), t)^2;
PotentialEnergy := subs(x=x(t),int((1/R^2)^2,x));
Action := KineticEnergy - PotentialEnergy;
AA := diff(Action,x(t)) - diff(diff(Action, diff(x(t),t)),t) = 0 <-------- Dsolve this
AA := eval(subs(diff(1,t)=0,diff(Action,x(t))) - Diff(subs(p=Diff(x(t),t),diff(subs(Diff(x(t),t)=p, Action), p)),t)) = 0
dsolve(AA, x(t));
 

Where R is constant

The following image shows a .mw file on two monitors (1 = right side) (2 = left side).  

Distortion occurs when I try to drag-and-drop an open file from monitor 1 to monitor 2.  Transfer from one monitor to another works fine on all other applications (.pdf, .docx, web stuff, graphic files like .png, and .xlsx.  Only .mw files distort when I try to open them or move them to monitor 2.  I was able to move, open, etc. any .mw file for over a year, then a couple of days ago the files started to distort.  I had a 32-bit version of Maple (Maple 2015.2 build ID 1097895—deleted it.  Also deleted and reinstalled Maple 2015.0, build 1022128.  I checked and updated my video card, updated the 2-monitor settings on Windows 7.  All this to no avail, the Maple 2015.0 program works on monitor 1, but it can not be opened or dragged-and-dropped to monitor 2.

Help, advice, suggestions welcomed—many thanks in advance.

Les

 

Hello.

 

I have been trying to create a code to solve a structure by using FEM, but I keep getting an error that stops me from moving on.

 

Everytime I run my code, Maple gives me the error in the Title of my question:
"Error, number of indices exceeds rank"

 

Unfortunately I can't find any help in Maplesoft support for such error, and I need immediate help for that.

Can someone help me with that? Should I post my entire code?

Thanks!

Hi everyone, 

I often get the error 'cannot save points as a float matrix' while I'm trying to plot with the spacecurve command.

loodl2 is a 4 component vector, loodl2c is the 3 component variant.

loodl2:=T1.<loodl,1>: loodl2c:=<loodl2[1], loodl2[2], loodl2[3]>
loodlpl:=spacecurve(loodl2c, k=-10..10, color=red):

also with this syntax:
loodl2c:=loodl2[1..3]

and this syntax:

l2c1:= 2*k: l2c2:=0, l2c3:=8-k:
spacecurve([l2c1, l2c2, l2c3], k=-10..10, color=red):
Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

It will only plot if I do this:
loodl2c:=<2*k, 0, 8-k>
Can someone help me?
 

I am trying to use the element properties Maple has in its ScientificConstants package. I am running into problems with the density of gaseous elements:

with(ScientificConstants);

Units:-UsingSystem(); # returns SI as expected

GetValue(Element('Si',density)); # returns 2329.0000 [kg/m^3] which is 2.329 g/cm^3, which is correct

GetValue(Element('H',density(gas))); # returns 88 [kg/m^3], which is incorrect.

PDG gives the density of hydrogen as 8.376E-5 g/cm^3, which is 0.08376 kg/m^3.  

Even more crazy for Krypton:

GetValue(Element('Kr',density(gas))); # returns 3677.000 [kg/m^3]. Heavy little buggers, these Kypton atoms! Should be 3.486 in the same units.

What gives? Am I missing something here?

Mac Dude

 

 

In matlab there is a sqrtm() command to calculate the square root of square matrices, I want to know if there is a similar command in Maple to do same thing?

What is the meaning of the "0" in the series expansion

series(x/(-x2-x+1), x = 0); ( this is the Maple command)
                   
              x + x2  + 2 x3  + 3 x4 + 5 x5  + O(x6)  This is the results

This is use in Maple I've seen quite a bit for series. I assume the the series continues on. But I am not sure

Also is there any listing of what some of the symbols that maple uses???
 

Is there a way to specify different colors for different output variables? For example, if x,y, and z appear in the entire document as variables, I want x to be red, y to be blue, and z to be green whenever an output is displayed.

Thanks

hi..how i can rewrite section of this code as another form i,e ''for section''

I have a lot of line as this and runnig cise is time consuming.

is there another way to write this section in order to the runtime of the program is reduced??

thanks

for.mw
 

restart;

with(LinearAlgebra):

with(VectorCalculus):

#Digits:=5:
k:=6:

l:=0:

h:=1:

m:=4:

n:=4:

l1:=2*h:

l2:=2*h:

N:=0.5:

nu:=.3:

E_m:=70e9:

E_c:=380e9:

rho_m:=2702:

rho_c:=3800:

lambda_m:=nu*E_m/((1+nu)*(1-2*nu)):

lambda_c:=nu*E_c/((1+nu)*(1-2*nu)):

mu_m:=E_m/(2*(1+nu)):

mu_c:=E_c/(2*(1+nu)):

with(orthopoly):

for i from 0 to 5 do:
L(i):=sqrt((2*i+1)/2)*P(i,z):
end do:

Z:=rho_m+(rho_c-rho_m)*((1/2)+(z/h))^N;

2702+1098*(1/2+z)^.5

(1)

U:=lambda_m+(lambda_c-lambda_m)*((1/2)+(z/h))^N;

0.4038461538e11+0.1788461538e12*(1/2+z)^.5

(2)

S:=mu_m+(mu_c-mu_m)*((1/2)+(z/h))^N;

0.2692307692e11+0.1192307692e12*(1/2+z)^.5

(3)

d:=Matrix([[0,0,0,0,0,0,0,0],[sqrt(3),0,0,0,0,0,0,0],[0,sqrt(15),0,0,0,0,0,0],[sqrt(7),0,sqrt(35),0,0,0,0,0],[0,sqrt(27),0,sqrt(63),0,0,0,0],[sqrt(11),0,sqrt(55),0,sqrt(99),0,0,0],[0,sqrt(39),0,sqrt(91),0,sqrt(143),0,0],[sqrt(15),0,sqrt(75),0,sqrt(135),0,sqrt(195),0]]);

d := Matrix(8, 8, {(1, 1) = 0, (1, 2) = 0, (1, 3) = 0, (1, 4) = 0, (1, 5) = 0, (1, 6) = 0, (1, 7) = 0, (1, 8) = 0, (2, 1) = 3^(1/2), (2, 2) = 0, (2, 3) = 0, (2, 4) = 0, (2, 5) = 0, (2, 6) = 0, (2, 7) = 0, (2, 8) = 0, (3, 1) = 0, (3, 2) = 15^(1/2), (3, 3) = 0, (3, 4) = 0, (3, 5) = 0, (3, 6) = 0, (3, 7) = 0, (3, 8) = 0, (4, 1) = 7^(1/2), (4, 2) = 0, (4, 3) = 35^(1/2), (4, 4) = 0, (4, 5) = 0, (4, 6) = 0, (4, 7) = 0, (4, 8) = 0, (5, 1) = 0, (5, 2) = 3*3^(1/2), (5, 3) = 0, (5, 4) = 3*7^(1/2), (5, 5) = 0, (5, 6) = 0, (5, 7) = 0, (5, 8) = 0, (6, 1) = 11^(1/2), (6, 2) = 0, (6, 3) = 55^(1/2), (6, 4) = 0, (6, 5) = 3*11^(1/2), (6, 6) = 0, (6, 7) = 0, (6, 8) = 0, (7, 1) = 0, (7, 2) = 39^(1/2), (7, 3) = 0, (7, 4) = 91^(1/2), (7, 5) = 0, (7, 6) = 143^(1/2), (7, 7) = 0, (7, 8) = 0, (8, 1) = 15^(1/2), (8, 2) = 0, (8, 3) = 5*3^(1/2), (8, 4) = 0, (8, 5) = 3*15^(1/2), (8, 6) = 0, (8, 7) = 195^(1/2), (8, 8) = 0})

(4)

``

``

e2 := 0;

0

 

-0.3192307692e12*W(1)+0.4396880662e12*W(3)-0.1474586301e12*W(5)-0.9235575669e11*W(2)+0.1979090105e12*W(4)

(5)

``


 

Download for.mw

 

1 2 3 4 5 6 7 Last Page 1 of 1486