MaplePrimes Questions

Good afternoon, I'm trying to simplify or that Maple gives me the factor of (3a - 3) and it doesn't. The result that should be thrown is 3(a-1).

Hi.

When trying to open my document it says:
''There were problems during the loading process, Your worksheet may become incomplete.''

Would you mind helping me?
I saw some scripts on how to fix it, but simply can't solve it myself.

Regards Samuel

Basismat_2_noter.mw

Hello do u know how to make this code more optimal? this is very long time to plot.

g := evalf((Beta(1/4, 1/4)/2)^4);

A := Pi*r*cos(theta) - Re(WeierstrassZeta(r*exp(theta*I), g, 0) + Pi*WeierstrassPPrime(r*exp(theta*I), g, 0)/g);
B := Pi*r*sin(theta) + Im(WeierstrassZeta(r*exp(theta*I), g, 0) - Pi*WeierstrassPPrime(r*exp(theta*I), g, 0)/g);
C := sqrt(6*Pi/g)*Re(WeierstrassP(r*exp(theta*I), g, 0));

plot3d([A, B, C], r = 1/5 .. 4/5, theta = -Pi .. Pi, view = [-8 .. 8, -8 .. 8, -8 .. 8], shading = zhue, grid = [200, 200]);

Good day everyone.

I am trying to write a code with variable stepsize involving tolerance. two vectors are declare for the errors. However, I don't know how to declare the two errors in comparison with the tolerance. Please kindly help. Also, any other modification to the entire code is also welcomed. Thank you all and best regards.

The code is as attached.

Variable_step_size_Falkner.mw

Dear Maple experts,

I am running a Maple code with several lines/ curves in a plot.

For two of the curves, I use style=pointline. But in the legend the symbols on the lines are not shown. Can you advise how we can make them appear?

I have attached the file. Thank you so much! 

Download LegendPlot.mw

i want to plot this equations for P and t for  t= 0 t0 600 seconds..can u provide me how?

time-dependent_aerodynamic_pressure.mw

restart

k := 0.1e-1;

0.1e-1

 

5

(1)

`P₀₀` := 100;

100

(2)

V := 25;

25

(3)

rho := 1;

1

 

.5

(4)

eq := diff(P(t), t) = -k*P(t)+rho*Cp*(int(V*sin(alpha), t));

diff(P(t), t) = -0.1e-1*P(t)+12.5*sin(5)*t

(5)

solution := dsolve({eq, P(0) = `P₀₀`}, P(t));

P(t) = 1250*sin(5)*t-125000*sin(5)+exp(-(1/100)*t)*(100+125000*sin(5))

(6)

``

Download time-dependent_aerodynamic_pressure.mw

Hi!

I hope everyone is fine. I have a square matrix like the following form
A := Matrix([[10, -1, 2, 0], [-1, 11, -1, 3], [2, -1, 10, -1], [0, 3, -1, 8]]);
How to split A into three matrices D, L and U as:

D:= Matrix([[10, 0, 0, 0], [0, 11, 0, 0], [0, 0, 10, 0], [0, 0, 0, 8]]);
L := Matrix([[0, 0, 0, 0], [-1, 0, 0, 0], [2, -1, 0, 0], [0, 3, -1, 0]]);
U := Matrix([[0, -1, 2, 0], [0, 0, -1, 3], [0, 0, 0, -1], [0, 0, 0, 0]]);

I am waiting for your positive response. Please take care

Hello Everyone;

I need to solve the following nonlinear ODE

C*diff(y(x), x) + (-B0*y(x)^3 - B1*y(x)^2 - B2*y(x) - B3) = 0, y(0)=B4

where B0,B1,B2,B3 and B4 are constants. I am trying in Maple 2021, but receiving solution in the form of integral. Is that any other ways that I will be able exact solution. Maple sheet is atatched. I am waiting for your kind respose.

Thanks

Question1.mw

restart

 

infolevel[dsolve] := 4

4

(1)

ode22 := C*(diff(y(x), x))-B0*y(x)^3-B1*y(x)^2-B2*y(x)-B3 = 0

C*(diff(y(x), x))-B0*y(x)^3-B1*y(x)^2-B2*y(x)-B3 = 0

(2)

solll := dsolve(ode22, implicit, useInt)

Methods for first order ODEs:

 

--- Trying classification methods ---

 

trying a quadrature

 

trying 1st order linear

 

trying Bernoulli

 

trying separable

 

<- separable successful

 

x-Intat(C/(B0*_a^3+B1*_a^2+B2*_a+B3), _a = y(x))+_C1 = 0

(3)

ode[257] := C*(diff(y(x), x))-B0*y(x)^3-B1*y(x)^2-B2*y(x)-B3 = 0

C*(diff(y(x), x))-B0*y(x)^3-B1*y(x)^2-B2*y(x)-B3 = 0

(4)

dsolve(ode[257], implicit)

Methods for first order ODEs:

 

--- Trying classification methods ---

 

trying a quadrature

 

trying 1st order linear

 

trying Bernoulli

 

trying separable

 

<- separable successful

 

x-Intat(C/(B0*_a^3+B1*_a^2+B2*_a+B3), _a = y(x))+_C1 = 0

(5)

NULL

Download Question1.mw

Hello,

I want to create an product expression from all list elements,

e.g.

expr := createproduct([a,b,c,d,1]);

expr:= a*b*c*d

Context; I'd like to apply a function on all factos of a polynomial. I can easily map(fun,factors(apolynomial)) which will output a list. However I do not know how to get back.

Thanks for your comments!

When i try to log on to my maplesoft acount on Maple 2023 i get a messeage saying "Sign in Error: Please check your credentials and try again." i have done this multiple time double checked my password and everything, but it won't let me log on... what do i do?

Hi @Acer, and of course also hi to the whole mapleprimes comunnity.

I have a problem with the Phasors module. Very often I have to use the evalc in calculations involving phasors. Sometimes it might make sense, since one of the involved variables are not defined as a phasor.

May I suggest that you upgrade the phasors module to a package Acer? I'd be honored to help in the testing.

Besides I have the same experience as mentioned in this question (bear over with me it's years since already): Maple 2020 Sheet now opening in 2021, 2022, and 2023 results in errors.

 

attached some examples:

Eksempel_8.2.mw

Example_12.3.mw

Eksempel_14.5.mw

Opgave_4_-_SHS_-_RA_ref-UL1.mw

Opgave_4_-_SHS_-_RA_ref-UL1_using_context_menu.mw

Hi everyone.

Could you please help me to obtain the results by 'solve'?

Is there any way such as numerical methods in this regard?

Fung.mws

Hi,

I'm just working on som electricity tasks and have to calculate thre phase power in alternating current systems. I use the SI system and have checked that with UsingSystem() -> SI and GetUnits() -> voltampere[power], voltampere_reactive[power] among others, so everything should be alright, but why can't I then choose theese units from neither the Units Palette, the Context Panel or right click menu option Convert Output Units?

convert(expr, units, var) and convert(expr, units, VA) works but my students and colleagues won't be satisfied with that.

Thank you for any help.

Is there a way to delete frames arround the legend in a plot?

Hi,

I'm trying to figure out how to get the HermitianTranpose vector to distribute over a sum of vectors. Maple seems to want to ignore the linearity of the conjugate operation.

See the example code attached.

Thanks.
 

alp := [a, b, c, d, e]

[a, b, c, d, e]

(1)

u[a] := Vector(5, proc (m) options operator, arrow; u[alp[m], a] end proc)

u[b] := Vector(5, proc (m) options operator, arrow; u[alp[m], b] end proc)

u[c] := Vector(5, proc (m) options operator, arrow; u[alp[m], c] end proc)

u[d] := Vector(5, proc (m) options operator, arrow; u[alp[m], d] end proc)

u[e] := Vector(5, proc (m) options operator, arrow; u[alp[m], e] end proc)

NULL

NULL

NULL

N := r[a]*u[a]+r[b]*u[b]+r[c]*u[c]+r[d]*u[d]+r[e]*u[e]

Vector[column](%id = 36893490335086041316)

(2)

``

LinearAlgebra:-HermitianTranspose(N)

Vector[row](%id = 36893490335105454316)

(3)

NULL


 

Download DistributeHermitian.mw

First 7 8 9 10 11 12 13 Last Page 9 of 2263