Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Using the syntax in Maple we develop the energy with conservation equations here we are applying the commands int, factor, solve among others. We also integrate vector functions through the scalar product and finally we calculate conservative fields applying the rotational to a field of force. Exclusive for engineering students. In spanish.

Work_of_a_Force.mw

Lenin Araujo castillo

Ambassafor of Maple

I am using the LinearAlgebra package to do dynamics between a rotating Cartesian coordinate system and a fixed Cartesian coordinate system. The VectorCalculus package is not what I need. 

Since I can't seem to get my test worksheet to paste into this post, I will manually enter an "approximation" to it. I assume that the notation [x, y, z] represents a column vector. I also assume that x represents the cross product operator from the operator pallete. 

I just want to get any one of the three ways of doing a vector cross product (see below) to simply display in math notation as R x V. What I get from the three methods below for an unevaluated cross product is "ugly".

Any help or advice will be greatly appreciated.

> restart

> with(LinearAlgebra):

> R := Vector(3, [x, y, z])

                                                 R := [x, y, z]

> V := Vector(3, [u, v, w])

                                                 V := [u, v, w]

>R x V

                                                [-vz + wy, uz - wx, -uy + vx]

>'R x V'

                                               Typesetting:-delayCrossProduct(R,V)

>CrossProduct(R, V)

                                               [-vz + wy, uz - wx, -uy + vx]

>'CrossProduct(R,V)'

                                               LinearAlgebra:-CrossProduct(R,V)

> R &x V

                                               [-vz + wy, uz - wx, -uy + vx]

'R &x V'

                                               LinearAlgebra:-&x(R,V)

Can any one disprove maple answer in the attached document?
If not, what is the conclusion?
 

restart

coulditbe(3*I > 0)

false

(1)

coulditbe(3*I > 0)

false

(2)

coulditbe(3*I < 0)

false

(3)

coulditbe(-2+3*I = 0)

false

(4)

coulditbe(abs(I) > 0)

true

(5)

true

(6)

coulditbe(2+3*I < 0)

true

(7)

``

``

What is your opinion?

My opinion from the above is : When a is real and b is complex, a and b can not be compared.

Like number of goats and number of lions  can not be added to give an answer in number of lions alone or number of goats alone!!
Riemann's function Zeta is a function of Complex number

 

solve(abs(Zeta(s+2*I)) = 0, s)

-2*I+RootOf(Zeta(_Z))

(8)

"(->)"

-2.0000-2.*I

(9)

NULL

solve(Zeta(s+2*I) = 0, s)

-2*I+RootOf(Zeta(_Z))

(10)

"(->)"

-2.0000-2.*I

(11)

What does the above results convey??

Am I correct if i state that 's' should be a complex number only and not a real number.


 

Download s_is_complex.mw

s_is_complex.mw

Is there any way to solve sin(x)=0 with solutions x=k*pi in Maple?

Many thanks!

Hey, guys. Can you help me one more time about the non-homogeneous differential equation, the function is shown below:

ODE:

y''(x)-0.00003019*y(x)^0.337=[9.542*10^(-13)]*x  ;    0<=x<=2945

BCs:

y(0)=0; y'(2945)=0; 

Actually, the right part is applied bending moment due to own weight. it is very small, but I don't think I may neglect it.  The exact solution is the best answer for me, the numerical solution is also available for me.  Can you show your code of Maple? Thank you for your any help in advance.   Sincerely, I appreciate it so so so much!!!

I use the convert(real_number, string) Maple 18 function and get the following :


tmp:=convert(0.0141,string); # I get ".141e-1"  What I really want is : "0.0141"

Is there any other way to convert a real number and leave it in its original form ?

Thanks.

I have a expression with polylog functions.I want to simplifying to Pi's constans.I tired with:

1. simplify
2. convert

but seems dosen't work:

simplify(sum((sin(k)/k)^7, k = 0 .. infinity))

#1+(1/128*I)*polylog(7, exp(7*I))-(7/128*I)*polylog(7, exp(5*I))+(21/128*I)*polylog(7, exp(3*I))-
(35/128*I)*polylog(7, exp(I))+(35/128*I)*polylog(7, exp(-I))-(21/128*I)*polylog(7, exp(-3*I))+
(7/128*I)*polylog(7, exp(-5*I))-(1/128*I)*polylog(7, exp(-7*I))

 Mathematica give me:

How to do it in Maple?

My problem is fitting two complex-valued functions f and g:
|f(x,a,b,c)-g(x)|^2 < epsilon 
I want to find best approximation for a, b and c where parameters are real.
Can you suggest the method to solve this problem?
I have the analytic form of the functions f and g.

I have the following function involving 2 piecewise constructs:

ftotal := -1.70678763408500*10^6*dpp[f]*piecewise(t < 0, 0, 0 <= t and t <= t1, 1-cos(t*Pi/t1), t1 < t, 2)-3.41357526817000*10^6*corrFac*piecewise(t < 0, 0, 0 <= t and t <= t1, 1/2-(1/2)*cos(2*t*Pi/t1), t1 < t, 0)+3.51914976100000*10^8;

(This is a result from a prior calculation in Maple; I did not create this construct orginally). The condition blocks are the same for both piecewise functions so this can be simplified to one piecewise function. Per the Help this can be achieved using convert:

convert(ftotal,piecewise,t);

but I get this error:

Error, (in PiecewiseTools:-Convert) unable to compare 0 and t1

Since I pasted everything into a new sheet I know that t has no assigned value. Same is true for t1 (and specifically I need this for general t and t1). The conversion to Heaviside works; but converting from that back to piecewise fails with the same error.

Is there any way I can achieve the desired result other than doing it by hand?

Sample sheet is attached. I originally ran into this in Maple 2016 but verified the same issue is present in Maple 2017.

Thanks,

M.D.

piecewise.mw

Hi, i have a problem with getting a constant number out of a function, i guess theres a problem in my algorythm but i cant seem to find it. Any help appreciated. In the link i send a screen shot. First picture declares the procedure and second trying to apply it. The result should be a number with no unknown (x).

https://prnt.sc/gv92cy 

https://prnt.sc/gv92on 

I am having issues opening my document When I try to open the file it brings up a box title TEXT FORMAT CHOICE with the options: MAPLE TEXT, PLAIN TEXT, MAPLE INPUT and CANCEL.

Maple Worksheet - Error

Failed to load the worksheet /maplenet/convert/DS5.mw .
 

Download DS5.mw

DS5.mw

Any help with how I can rectify this would be extremely helpful.

Many thanks

Hello everyone,

Is it possible to define a short hand notation for sine and cosine functions and make the output expressed in terms of the defined notation?

For example the matrix below uses c1 instead of cos(theta1) and s2 instead of sin(theta2).

The reason I want to do this is that I am dealing with really long matrices and I need some sort of way to minimize the expressions.

Thank you!

Canberk

Doubt_ForLoopSemicolon_doesnot_function_A_ReactantValues.mwWhy the following two loops do not display the curves though they are obtained in these loops as verified by the 21 loops.(***) later in the end of this document!!?
for i to 9 do
for k to 7 do
p1[i, k] := plot(curve[i, k], x = 2.0 .. 5.0, labels = [xlabel, ylabel[k]], labeldirections = ["horizontal", "vertical"], color = [black], linestyle = Linestyle1[1], thickness = Thickness1[1], title = l[i], caption = cat("Fig.", i), legend = Legend[i]); p2[i, k] := plot(curvep[i, k], style = point, color = [black], symbol = [solidcircle, soliddiamond, solidbox, diamond, asterisk], symbolsize = 8);
plots:-display(p1[i, k], p2[i, k]) end do end do;
The following loop also does not display curves!
for i from 10 to 21 do
for k to 7 do
p1[i, k] := plot(curve[i, k], x = 2.0 .. 5.0, labels = [xlabel, ylabel[k]], labeldirections = ["horizontal", "vertical"], color = [black], linestyle = Linestyle1[2], thickness = Thickness1[2], title = l[i], caption = cat("Fig.", i), legend = Legend[i]); p2[i, k] := plot(curvep[i, k], style = point, color = [black], symbol = [solidcircle, soliddiamond, solidbox, diamond, asterisk], symbolsize = 8);
plots:-display(p1[i, k], p2[i, k]) end do end do;
The following loops dispaly the curves
(*** How come the following curves available did not show in the above for do loop?
for k to 7 do plots:-display(p1[1, k], p2[1, k]) end do;
for k to 7 do plots:-display(p1[2, k], p2[2, k]) end do;
for k to 7 do plots:-display(p1[3, k], p2[3, k]) end do;
for k to 7 do plots:-display(p1[4, k], p2[4, k]) end do;
for k to 7 do plots:-display(p1[5, k], p2[5, k]) end do;
for k to 7 do plots:-display(p1[6, k], p2[6, k]) end do;
for k to 7 do plots:-display(p1[7, k], p2[7, k]) end do;
for k to 7 do plots:-display(p1[8, k], p2[8, k]) end do;
for k to 7 do plots:-display(p1[9, k], p2[9, k]) end do;
for k to 7 do plots:-display(p1[10, k], p2[10, k]) end do;
for k to 7 do plots:-display(p1[11, k], p2[11, k]) end do;
for k to 7 do plots:-display(p1[12, k], p2[12, k]) end do;
for k to 7 do plots:-display(p1[13, k], p2[13, k]) end do;
for k to 7 do plots:-display(p1[14, k], p2[14, k]) end do;
for k to 7 do plots:-display(p1[15, k], p2[15, k]) end do;
for k to 7 do plots:-display(p1[16, k], p2[16, k]) end do;
for k to 7 do plots:-display(p1[17, k], p2[17, k]) end do;
for k to 7 do plots:-display(p1[18, k], p2[18, k]) end do;
for k to 7 do plots:-display(p1[19, k], p2[19, k]) end do;
for k to 7 do plots:-display(p1[20, k], p2[20, k]) end do;
for k to 7 do plots:-display(p1[21, k], p2[21, k]) end do;
 

I've got a rain drop falling through air with velocity V=[vx,vy] when exposed to to dragforce Fd

formulas in following link 

 

Exposed_for_drag_force.docx

But  Fd= (expression for dragforce*v)* V

How to multiply V=[vx,vy] and recive list for all values so i can make a plot with this values?

need to use Cd= V ->and returns Cd(v) (not proc..)

 

 

 

 

 

What am I missing?  Why it is not trivial to ask Maple to find all nth roots of a complex number in standard a+ib form or polar form and receive the answer in simplified polar form as it would be shown in any Trigonometry or PreCalculus textbook?

First 900 901 902 903 904 905 906 Last Page 902 of 2214