I am trying to design a question to test for divisibility

$n3=range(0,9,1); and students have to choose the next digit to make the number divisible by 4

if $n3 is even the students must input 0,4,8 to be true

if $n3 is odd the students must input 2 or 6 to be correct.

I am not sure how to us the if(a,b,c) in this case or if I should be using indexof....or both?  Any help would be appreciated. 

> with(Statistics);
> X := Vector([1, 2, 3, 4, 5, 6, 7], datatype = float);
> Y := Vector([155625, 172472, 179589, 186579, 205421, 214989, 237937], datatype = float);
> ExponentialFit(X, Y, x, output = residualsumofsquares);
   
Result by Maple: 0.00216641200893470318
But a real result is 8.159611742*10^7

Please, can anybody help me? Thank you.

> restart;
> with(LinearAlgebra);
> q := a*mu^4+b*mu^3+d*mu^2+e*mu+f = 0;
> sol := solve(a*mu^4+b*mu^3+d*mu^2+e*mu+f = 0, mu);
> S[1] := allvalues(sol);
> PARAM := [a = -54/c^2-1269*A[1]/(8*c^2), b = 108/c^2+5013*A[1]/(8*c^2), d = 27-693/(2*c^2)+117*A[1]-7113*A[1]/(4*c^2), e = -27+585/(2*c^2)-111*A[1]+20439*A[1]/(16*c^2), f = 1-3*A[1]-18/c^2-8*A[1]/c^2];
> S2 := eval(S[1], PARAM);
> series(%, c = infinity, 3, A[1] = 0, 2);
> simplify(%)

I was given that solitary initial state to see how it will deform as time goes on. am struggling to get my code so that I can get video frames. please help on how I can generate my code

u_o(x)= a₀x²(1-x)² for x (less than or equal to) x (less than or equal) 1

u₀(x)    = 0 for x > 1

the video clips will be representing the function u(*,t) :x to u(x,t)

for a sequence of choices of t such as t=0; t=0,5...t=3

 “Error, too many levels of recursion” ,but there’s just a single expression.

How can this happen?

I am using Maple 15 to numerically solve a system of differential algebraic euqations (DAE) with given initial conditions, and I've tried rfk45_dae and rosenbrock_dae solver, but both solver responded in error like this

Error, (in dsolve/numeric) cannot numerically solve complex DAE initial value problems, the system must be converted to a real system

I don't understand what is a real system, and how could i convert it to a real system.

I'm running a long loop with a lot of variables. I have noticed that Maple does not seem to clear its memory after each loop iteration, which results in very large memory used after all the iterations. I can't use restart because I need a few variables to be remembered throughout the loop for analysis afterwards. So the question is how to clear the memory for selective variables and procedures at the end of each iteration.

How to make a usual book view of a system of equations? I want that each equations is placed on new line with curly brace on the left.

I need to plot a function:



f(1.0) gives a correct result but plot doesn't. Could you help me with it?

Dear those who are in Mapleprimes,

As I can't understand how Maple calculate the quick sort, I write the present question, hoping that someone give me a hint.

In essence, nested procedure I cannot understand is this:

quicksort:=proc(A,m,n)

....................

if m<n then

quicksort(A,m,p-1);.................................(1)

quicksort(A,p+1,n)...................................(2) 

end if;

eval(A);

end proc:

Details were ommitted, but I have to say that p is the number between m and n, which is determined by ommitted parts of 

the procedure.

And, with this nested procedure, 

quicksort([2,4,1,5,3],1,5) is calculated.

What I want to know is how to process the parts of (1) and (2).

If after (1) is processed, (2) is processed, what is the value of p in (2).

Is it the p which is determined successively through processing nested value of (1)?

Thank you in advance.

taro

Can anyone help to compute the following integral in terms of the bessel functions in maple.

Hey guys! Can someone please help me by telling what I can insert into maple to get answer for this question? Thanks!

Please I want to know how to solve this integration.

int(exp(-(ln(y)-2*sigma^2)^2/(8*sigma^2))/(y*sqrt(8*Pi*sigma^2))*exp(-(ln(y+z)-2*sigma^2)^2/(8*sigma^2))/((y+z)*sqrt(8*Pi*sigma^2)), y = 0 .. infinity)

The help documents read，

“

 The function unames returns an expression sequence consisting of all the active names in the current Maple session which are ``unassigned names''.

“

But what unames() returns is obviously not the contents one expects:

i am trying to execute the following code but i am having the following error:

A:=Matrix(21,4):A(1,2):=0:A(2,2):=0:t:=2: thetasec:=-8.724679300*10^(20):  for z from 0.1 by 0.05 to 1 do  t:=t+1: A[t,1]:=z:  x:=2*A[t-1,2]-A[t-2,2]+thetasec*0.05^(2):  theta2:=evalf(arctan(sin(x-Pi),cos(x-Pi))+Pi):    if theta2>Pi/(2)and theta2<=(3*Pi)/(2)then   A[t,2]:=theta2-Pi   elif theta2>(3*Pi)/(2)then A[t,2]:=theta2-2*Pi else  A[t,2]:=theta2 fi:  A[t,3]:=cos(A[t,2]):  A[t,4]:=sin(A[t,2]):od

Error, cannot determine if this expression is true or false: (1/2)*Pi < 3.535344555 and 3.535344555 <= (3/2)*Pi

what is causing this error and how can i fix it