Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

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?

Hi there, I'm a really noob when it comes to maple.
My teacher wants me to solve a differential equation using this software and the only problem I have is that I dont know which command to use to solve the equation with boundary conditions.
I've already tried the dsolve command but then I realized that it only works with initial conditions, and the conditions I have are boundary (initial-end). So how do I actually solve the differential equation ?

When I download the help document here

https://www.maplesoft.com/support/help/maple/view.aspx?path=int%2Fdetails

I get a bug when I execute the page.

I copied pasted the last line using 1d math notation to replicate the error.

There is no addition symbol between x^2 + O(x^5)

On the help page I don't see an error. 

 I uploaded the help file   int-details_(2).mw 

Hello people in mapleprimes,

I hope you will help me about modifying an expression.

How can I factor the expression with w and Delta__1 in the attached file?

e2_3 := w^(1-sigma)*((f__11*sigma*Delta__1/L__1)^(-1/(sigma-1))/w)^(k-sigma+1)*k/(Delta__1*(k-sigma+1)*a__0^k);

Thank you for advance.

Modifying_expression_factor.mw

how can i simplify with definition two new parameter 

i show in this picture

Hello,

For example, let's say we have the following function

 

Now if we want to calculate the value of a function we have to

subs([x1=10,x2=20],eval(hf));

My question is the following: How to substitute values for x1 and x2 using values from vector? something like that

x:=[10,20];

subs([x],eval(hf));

 

Best,

Rariusz

 

 Hello,

I solve a partial differential equation using the THETA METHOD on Maple17, but what is also of essence is the skin friction and Nusselt Number which are {diff(u(x, t), x)} at x = 0 and {diff(T(x, t), x)} at x = 0 respectively. How can I achieve the two using the THETA METHOD? This is the PDE in it full flesh. 

 PDE := {diff(phi(x, t), t) = (diff(phi(x, t), x, x))/S__c, diff(u(x, t), t) = diff(u(x, t), x, x)-M^2*(u(x, t)+m*w(x, t))/(m^2+1)-u(x, t)/`ϰ`-2*Omega^2*w(x, t), diff(w(x, t), t) = diff(w(x, t), x, x)+M^2*(m*u(x, t)-w(x, t))/(m^2+1)-w(x, t)/`ϰ`+2*Omega^2*u(x, t), diff(theta(x, t), t) = lambda*(diff(theta(x, t), x, x))/P__r+D__r*(diff(phi(x, t), x, x))}

With conditions: BC := {phi(0, t) = 1, phi(12, t) = 0, phi(x, 0) = 0, u(0, t) = t, u(12, t) = 0, u(x, 0) = 0, w(0, t) = 0, w(12, t) = 0, w(x, 0) = 0, theta(0, t) = 1, theta(12, t) = 0, theta(x, 0) = 0}

Where the parameter like P_r, S_c  e.t.c are constants to assign value to.

Thanks.

I want to plot the compex solutions of a single equation. I do

> plot([fsolve(x^3 = 1, complex)])

The output consists of a warning:

"Warning, unable to evaluate 2 of the 3 functions to numeric values in the region; complex values were detected"

and a horizontal line.

What am I doing wrong?

Thank you!

The linked worksheet displays the geodesic between two points on a surface z(x,y).

Surfacepath.mw

Gradient descent will find a stepped approximate path of fastest descent between the points, but is there a way to find a function defining an exact i.e. smooth path of fastest descent? If so, how can a precise time of fastest descent be determined?

First 906 907 908 909 910 911 912 Last Page 908 of 2219