## How do i write a "if...then" function in Maple?...

Hi all, I'm using text box and push button to create my user interface for my system. I  wish to use a if..then function to check some condition, if the condition is true then do statement and print out in the text box. When is key coding in the push button and click the push button, then if ...then function not working and the result that not suitable for the condition also have been printed out in text box.So,can someone help my to solve the problem?

Here in the coding i did

use DocumentTools in

Do (C = %txtC);
Do (p = %txtpk1);
Do (q = %txtpk2);
Do (d = %txtpk3);
Do (A1 = %txtA1);
Do (A2 = %txtA2);
Do (w = `mod`((C*d), A2));
Do (mp = `mod`(w^((p+1)*(1/4)), p));
Do (mq = `mod`(w^((q+1)*(1/4)), q));
Do (hl = `mod`((mp-mq)/p, q));
Do (h2 = `mod`((-mp-mq)/p, q));
Do (m1 = mp+(hl*p));
Do (m2 = mp+(h2*p));
Do (m3 = (p*q)-m1);
Do (m4 = (p*q)-m2);
if m1 <= 2^(2*k-1) then t1 := (C+(-A1*(m1^2)))/A2 end if;
Do (t1);
if m2 <= 2^(2*k-1) then t2 := (C+(-A1*(m2^2)))/A2 end if;
Do (t2);
if m3 <= 2^(2*k-1) then t3 := (C+(-A1*(m3^2)))/A2 end if;
Do (t3);
if m4 <= 2^(2*k-1) then t4 := (C+(-A1*(m4^2)))/A2 end if;
Do (t4);

Do (%txtw = w);
Do (%txtm1 = m1);
Do (%txtm2 = m2);
Do (%txtm3 = m3);
Do (%txtm4 = m4);
Do (%txtt1 = t1);
Do (%txtt2 = t2);
Do (%txtt3 = t3);
Do (%txtt4 = t4);
end use;

Thabk you.

## How to do a coding on stability region of diagonal...

hello everyone. i wanna ask. how to do a coding of stability region on diagonally implicit Runge-Kutta for order 3 and order 4? Thank you in advanced :)

## System of partial differential equations with boun...

Hello,

I am trying to solve analytically a simple system of partial differential equations with boundary conditions and I am not able to do it. Even in the very simple case of

pdsolve([diff(u(x, y, t), y, y) = 0, diff(p(x, y, t), y) = 0, u(x, 0, t) = 1, (D[2](u))(x, 1, t) = 0, p(x, 1, t) = 2], [p(x, y, t), u(x, y, t)]);

I don't get any answer.  However if I remove the boundary conditions I get the right answer

pdsolve([diff(u(x, y, t), y, y) = 0, diff(p(x, y, t), y) = 0], [{p(x, y, t), u(x, y, t)}]);
{p(x, y, t) = _F3(x, t), u(x, y, t) = _F1(x, t) y + _F2(x, t)}

Can maple 2015 solve analytically systems of partial differential equations with boundary conditions? I have not been able to find any example anywhere.

Thanks a lot for your help.

Javier

## where do I find the source code for simplified rso...

HI Maple primes.  We try to make sense of 'rsolve' in the Maple world.  What is command for source code?

Regards,

Matt

## what does 'rsolve', the Maple command do?...

Hi Mapleprimes,

We know that '' rsolve '' is a recurrence equation solver.  It is more than an expression simplifier.

Congratulations to the Maple computer algebra team for creating such a great computer tool.  simply want to know more.

rsolve_on_May_16_2017.pdf

Surely there are many steps to determine the values to place.

Regards,

Matt

## Maple symbolic toolbox for matlab...

I have an important question regarding the symbolic toolbox from maple for matlab

I have declared three symbolic variables:

syms t;

x = sym('x(t)', 'real');

y = sym('y(t)', 'real');

z = sym('z(t)', 'real');

f = x + y + z;

Now i want to  calculate the derivation of f regarding the variable t:

df = diff (f, t);

The result should be

df = dx(t) / dt + dy(t) / dt + dz(t) / dt

but  instead i get the result df = 0. If i use the command diff (f) i get the result

df = dx(t) / dt

Does anyone know how to fix this problem?

## Mean - Real Measurements unsorted...

Hi Guys,

got my last Problem solved :) Now i do have a new one...

```restart; with(RealDomain); with(CodeGeneration); with(ExcelTools); with(plots);
dx1:=133;
dy1:=132;

n := 1;
for i to 256 do
for j to 256 do
r := evalf(sqrt((i-dx1)^2+(j-dy1)^2));
Ints := R0[i, j];
IntsR[n] := [r, Ints];
n := n+1
end do;
end do;
IntsR := [seq(IntsR[i], i = 1 .. n-1)]```

The list IntsR consists of unsorted values doublets. Now it would be nice to get some sort of mean value of my Ints over r.  Didnt really find a solution for it until now... do you have any hint?

## deleted question?...

I saw a question earlier today regarding 3 particles in a gravitational field.  It has since disappeared.

I see no rhyme or reason why it was deleted by someone, whoever did.  It was Math related and it was Maple related hence no reason for it's deletion.  This happened just before Mapleprimes and Maplesoft went offline for a couple of hours.

Can someone explain?  Did anyone else see it?

## how to calculate probability of matrix in this cas...

i count the number among group
but when the list a large such as over 1000 records, the count will be over 30,000
use which denominator to find probability?
is there any functions in maple for this case?

with(LinearAlgebra):
correlationlist1 := [[1,2,3],[1,3,5]....]:
PAB := Matrix(50):
for ii from 1 to nops(correlationlist) do
for jj from 1 to nops(correlationlist[ii]) do
for kk from 1 to nops(correlationlist) do
for qq from 1 to nops(correlationlist[kk]) do
if ii <> kk then
#print("scan=",correlationlist2[kk],"kk=",kk,"qq=",qq,"row=",correlationlist[ii][jj],"column=",correlationlist[kk][qq]):
PAB[correlationlist[ii][jj],correlationlist[kk][qq]] := PAB[correlationlist[ii][jj],correlationlist[kk][qq]] + 1: # group to group relations
end if:
od:
od:
od:
od:

## How to use statistics correlate function with a li...

If there is a list

[[1,2],[2,2],[3,3]...

how to use correlate function?

assume [1,2] and [2,1] count as 2

when find correlation between 1and 2

if [1,2] and [2,1] are different

first position as key

means 1 relate with 2 count as 1 case for 1 only

[2,1] count as 1 case for 2 only

## Do maple have a Boolean simplify?...

If input a group of outputs which are binary numbers

can it simplify to give a logic that can output these outputs

## Incomplete worksheet...

I'm studying for an exam and earlier today I was working in my Maple sheet. I saved it as usual and no .bak file was in the directory afterwards. When I now later in the day tried to open it, I got the pop up message:
"There were problems during the loading process. your worksheet may be incomplete" and half of the content is missing.

I've searched on google and tried to solve it myself, unfortunately without any luck.

I would really appreciate any help.

Best regards

## Maybe a limitation to DocumentTools :-RunWorkshee...

Hi everybody,

I am used to using  the DocumentTools :-RunWorksheet command and I am confronted with the following problem :

• My worksheet is deemed to generate a plot in a png file
> plotsetup(png, plotoutput=MyFile, …)
> plot( …)

But MyFile is not created

• Thinking that the mw file launched by  DocumentTools :-RunWorksheet is seen as a procedure, I have thought that print(plot(…)) would fix the issue.
Unfortunately the png file is still not created (same behavior with a jpeg file)

I know that  DocumentTools :-RunWorksheet is “experimental” but I wonder if I am doing something wrong or if DocumentTools :-RunWorksheet simply does not support plots ?

## intial value is not converging...

Dear please check once it showing an error program.mw as intial value is not conververging

## Using the Poincare-Dulac Thm to develop an iterati...

proc:=changecoords([x,y],logrithmic);
dsolvediff(x,t):=Matrix([[ 1 , 0],
[ 0 , i ]])x+Vector[column]([ x^i ,
0]);
x:=y+h(y);
for i from 2 to 10;
solve;
end do;

endproc;

MakeIteration := proc( expr::algebraic, x::name )
local iteration := diff(x,t)=Matrix([[ 1 , 0 ],
[ 0 , i]])x+Vector[column]([ x^i ,
0]),x:=y+h(y);
for i from 2 to 10 ;
end do ;
unapply(iteration, x);
endproc;
Error, missing operator or `;`

Hi , I would like to solve nonlinear equation by using maple,but I wander how I can write it since there is a change of veriable bysubstiuting the value of y in the diifferenitat . Iactually coudnot write the equation sine it contains differential ,matrix and vector . do Ihave to use dalembertian?

best regards

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