# MaplePrimes Questions

Search Questions:

## Latest Questions Latest Questions Feed

### http://www.supplementstry.com/revi-spa-serum/...

Moments ago
0 0

used properly, the skin can get irritated by the very sharp blades. Protect your skin by using a shaving cream or gel. Also, make sure your razor is clean as this will provide the ideal shave. Using the razor with a gentle, sliding motion in the same direction the hair falls will make shaving easier.Revi Spa Serum A great time to add moisture to the skin is following bath and showers when your skin is damp. The warm water that you took a bath in worked to open your pores and created a way for the lotion to get deep

http://www.supplementstry.com/revi-spa-serum/

### running the code in maple...

2 hours ago
0 0

hello friend

please run this code and resend result to me.

thank you.

restart;
with(LinearAlgebra); with(plots);
c[1] := 0; c[2] := 1/2;
a[2, 1] := 1/8;
b[-1] := -1/3; b[1] := 2/3; b[2] := 5/6;
bb[2] := 5/12;
s := 2;
e[1] := Matrix(s+1, 1); e[2] := Matrix(s+1, 1); e[3] := Matrix(s+1, 1); e[4] := Matrix(s+1, 1);
c[0] := 0;
for ii to s+1 do e[1][ii, 1] := 1; e[2][ii, 1] := -1; e[3][ii, 1] := c[ii-1] end do;
e[1][1, 1] := 0; e[2][2, 1] := 0; e[4] := -e[3];
A := Matrix(s+1, s+1);
for i from 3 to s+1 do for j from 2 to i-1 do A[i, j] := a[i-1, j-1] end do; A[i, 1] := A[i, 2] end do;
Id := Matrix(s+1, s+1, shape = identity);
N := Matrix(s+1, s+1);
for i to s+1 do for j to s+1 do N[i, j] := -H*A[i, j]+Id[i, j] end do end do;
Bb := Matrix(s+1, 1);
for i from 3 to s+1 do Bb[i, 1] := bb[i-1] end do;
B := Matrix(s+1, 1);
for i from 2 to s+1 do B[i, 1] := b[i-1] end do; B[1, 1] := b[-1];
Z := Multiply(Transpose(Bb), 1/N);
for i to s+1 do Z[1, i] := H*Z[1, i] end do;
Q := Multiply(Transpose(B), 1/N);
for i to s+1 do Q[1, i] := H*Q[1, i] end do;
Dh := proc (H) options operator, arrow; Matrix([[1+Multiply(Z, e[1]), Multiply(Z, e[2]), 3/2+Multiply(Z, e[3]), -1/2+Multiply(Z, e[4])], [1, 0, 0, 0], [Multiply(Q, e[1]), Multiply(Q, e[2]), 1+Multiply(Q, e[3]), Multiply(Q, e[4])], [0, 0, 1, 0]]) end proc;
k := Matrix(4, 4);
for i to 4 do for j to 4 do if i = j then k[i, j] := ep-Dh(H)[i, j] else k[i, j] := -Dh(H)[i, j] end if end do end do;
sp := unapply(collect(Determinant(k), ep), H, ep);
sol := solve(sp(H, ep), ep, explicit);
sol := simplify(map(allvalues, {sol}));
l := numelems(sol);
inequal({evalc(abs(subs(H = x+I*y, sol[1]))) <= 1, evalc(abs(subs(H = x+I*y, sol[2]))) <= 1, evalc(abs(subs(H = x+I*y, sol[3]))) <= 1, evalc(abs(subs(H = x+I*y, sol[4]))) <= 1}, x = -3 .. 3, y = -3 .. 3, color = "Nautical 1");

### maple code of heat transfer for CM and LSM method...

11 hours ago
1 1

hi every one
i need maple code of cm and lsm method from project below forHeat Transfer Equation please
how it calculate c1 and c2 and c3 and c4 with maple
http://dl1.shatelland.com/files/826c0e0c-d14b-4ae6-bd01-63429155b683/54bcba51-05ed-4ab1-a1d3-ecc9b3fac2af

### Maple can't solve it....wolframalpha does...

14 hours ago
2 3

Hi, i got this diff ecuation to answer. It is an ecuation of a proyectile, it give the angle of speed with respect to time. I typed it on wolfram; got an aswer. When i tried on maple without any initial condition, got a good answer. With an initial condition, didn't get nothing. I even tried with the interactive solver, got a 'can't solve'. So this is my ecuation:

dx/dt = -[g cos(x)] / [vo - g t sin(x)]

I had to find the initial coindition for myself after that, i supect what the problem is. Maple gave an aswer in terms of arctan (y,x), and i think, based on my own try, it doesn't know how to find a term if it's inside the arctan function, typed in that way. So i rewrited it like arctan (y/x), anf found my constant C1.

dx/dt = (-k/m) (x srqt(x^2 + y^2))

dy/dt = (-k/m) (y srqt(x^2 + y^2))

Again was wolfram who gave me a good answer to the problem. So you are going to understand im thinking wolfram is better on symbolic calculation. Thanks anyway for your help and effort.

### Maple Worksheet frustration ...

15 hours ago
1 2

How do I turn off Worksheet mode in a Maple Document.  I copied a calculation from a Worksheet into my Document, now I have to do calculation in 1-D math.

### Why can't I use this while in a procedure?...

16 hours ago
0 4

I want to use while in proc but Maple shows an error saying

"Error, (in exa) illegal use of a formal parameter"

When I click on it, as usual it says "There is no help page available for this error". I tried a very simple example of while which you can see it below and it again shows same error. The while works well but when I put it inside of a procedure it makes an error. Note: the following example is just an example, this is not what I'm doing so please don't reply this while proc is not giving anything. My question is how can I use a while in procedure without encountering the above error.

i := 10;
while i > 1 do
if i mod 2 = 0 then i := i/2; else i := i+1; end if;
end do;

Now with proc

exa := proc (i::integer)::integer;
while 1 < i do
if i mod 2 = 0 then i :=i/2; else i := i+1; end if
end do;
end proc;

exa(10);

"Error, (in exa) illegal use of a formal parameter"

### How to find a "smart" form of the converse of a bo...

19 hours ago
1 3

No need to hurry, esthetics is not a vital issue ... but thanks in advance.

PS : sorry for the syntax errors "waves" generated in the original Word document

### Symmetries of strange PDE...

19 hours ago
2 10

I thought about the following PDE:

EDIT: The u(0,t) is not a typo! It is really meant to be part of the PDE!

Latex/Matjax: $$\dfrac{\partial u(x,t)}{\partial t}=\alpha \dfrac{\partial^2 u(x,t)}{\partial x^2}+u(x=0,t).$$

Maple: diff(u(x,t),t)=alpha*diff(u(x,t),x$2)+u(0,t) How can i determine the symmetries of this PDE with Maple? ### Help me fix my mathematics maple code problem... Yesterday at 8:09 PM 0 15 I need some help fix my mathematics maple code problem , I define everything my Procedures,and procedures run is ok, but when I using call functions for another procedures I can not operator my program . For sure procedures is work and correct. if somebody can help me , I really appreciate you help. ### Please help me with this DTM code... Yesterday at 6:03 PM 1 1 restart; Digits := 10; Ha := 2; R := 2; &theta;r := .5; Rt := 1; B := 1.5; Xi := 0; U[0] := 0; U[1] := alpha; U[2] := -6+(1/16)*Rt*Xi; U[3] := (1/6)*beta; Theta[0] := -(1/2)*Rt Theta[1]:=phi: delta:=(k)->if(k=0, 1,0); for k from 0 to 20do U[k+4]:=((Ha^(2)+R)*U[k+2]+Xi*Theta[k+2])/(4(k+3)*(k+4)) Theta[k+2] := (-4*R*&theta;r*(&theta;r*Theta[k]+1)^2*(sum((i+1)*Theta[i+1]*(k-i+1)*Theta[k-i+1], i = 0 .. k))-B*(sum((i+1)*U[i+1]*(k-i+1)*U[k-i+1], i = 0 .. k))+(1/4)*Ha^2*B*(sum(U[i]*(k-i)*U[k-i], i = 0 .. k)))/((1+(4/3)*R*(&theta;r*Theta[k]+1)^3)*(k+1)*(k+2)) od: u:=0: theta:=0: for k from 0 to 20 do u:=u+U[k]*y^k: theta:=theta+Theta[k]*y^k: od: print(expand(u)): with(numapprox); pade(u, y, [3, 3]) pade(diff(u, $(y, 2)), y, [3, 3])

solve({limit(pade(theta, y, [3, 3]), y = 1) = (1/2)*Rt, limit(pade(u, y, [3, 3]), y = 1) = 0, limit(pade(diff(u, \$(y, 2)), y, [3, 3]), y = 1) = -12-(1/8)*Rt*Xi}, [alpha, beta, phi])

### singularity at endpoint...

Yesterday at 5:23 PM
0 1

Hi

It seems a singularity has been occurred at left end point for n less than unit (say n=0.5, n>0)

Is there a way to fix it?

n.mw

### Formatting output of variables in Maple TA...

Yesterday at 10:21 AM
1 1

I apologize, as I'm still very new. I've flipped through a lot of pages, but I'm unsure of how Maple code translates to Maple TA.

I have randomly assigned an integer for the value of a year in Maple TA. I'd like it to appear as "2013" for example, but it will instead appear as "2,013". Is there a way to set the output formatting of a variable individually within a problem in TA?

Thanks!

### Symbolic resolution of trigonometric equations sys...

Yesterday at 4:38 AM
0 4

Hello,

I would like to determine a closed form solution (=analytical solution) of the following trigonometric equations system.

The unknowns are :

ListAllUnknowns := [Psi(t), Theta[1](t), Theta[2](t), x[1](t), x[2](t), z[1](t), z[2](t)]

Do you have ideas so as to conduct the symbolic resolution of this trigonometric equations system ?

I have been told that the use of Grobner basis could be useful but I have never try this.

Thanks a lot for yours feedbacks.

### help about text mode and math mode...

June 27 2016
0 5

how can active that math mode not run in maple 2016

### Plots no longer remember their attributes?...

June 27 2016
0 1

This is a specific Maple 2016 question: I find that plots no longer remember their attributes (like size on the screen) upon re-execution of a worksheet, even though I have set the appropriate flag in the Interface pane of the preferences.

Can someone confirm this; or am I just being dense? Is this an OS X issue? An El Capitan issue?? Maple 2015 on Yosemite behaves as expected.

Maple 2016.1 on Mac OS X 10.11.5.

Thanks,

M.D.

 1 2 3 4 5 6 7 Last Page 1 of 1327
﻿