## Bifurcation plot for ODE system with delay...

Consider the following dynamical systems with time delay:

diff(x(t), t) = y(t)-bx(t)^3+ax(t)^2-z(t-tau)+I

diff(y(t), t) = c-dx(t)^2-y(t)

diff(z(t), t) = r(s(x-beta)-z(t))

Here the values of the parameters are a = 3, b = 1, c = 1, d = 5, s = 4, beta = 1.6, r = 0.6e-2, I = 3.0

How to write code for bifurcation plot for the above differential equations with delay.

Delay as taken as bifurcation parameter.

## Simple command for Euclidean algorithm...

>M1:=146996733613391:

>M2:=1348471408813:

>teks:=numtheory[cfrac](M1/M2,'quotients');

tekssifer:=[109,101,115,115,97,103,101]

Hi, how should i rewrite my command to decrease the execution time?

Thank you~=]]

## Solar System Project Code Help...

solarsysem.mw Sorry for the repost but this is my newest document.

I have to create a solar system model on maple by defining a force equation then using the seq function to create a diffeq and then solving those differential equations using the initial conditions with the sun at (0, 0, 0) in xyz coordinates.

It works until my last "ic1" entry and I get an error in dsolve/numeric/process_input

I'm pretty desperate, I'll appreciate any help I can get

## Can 'for' be coded in Components? ...

Here is my command and i will use to make the user interface.

Orginal:

for i to l do

for j from x to y do

block[i][j] := 1-block[i][j]

end do;

c_block[i] := block[i];

c_block[i] := parse(cat(c_block[i][]))

end do

Can someone help me to edit my command so that i can write it in Click Edit Action for a button? thank you.

Do(for i from 1 to %l do)
Do(for j from x to y do)
Do(block[i][j] = 1-block[i][j]);
end do);
Do(c_block[i] := block[i]);
Do( c_block[i] := parse(cat(c_block[i][])));
end do);

## skeching f'(x) by all the points (x,f'(x)) when we...

How I can write a procedure in Maple 18 that it receives:

Inputs: function f(x) and real unmbers a and b (as interval [a,b]) and natural unmber n

then devides interval [a,b] to n subinterval and computes f'(a), f'(a+(b-a)/n), f'(a+2(b-a)/n),..., and f'(a+n(b-a)/n)=f'(b)

and

showes at output: graph f(x) and all points [a,f'(a)], [a+(b-a)/n, f'(a+(b-a)/n)],[a+2(b-a)/n, f'(a+2(b-a)/n)]..., and [a+n(b-a)/n,f'(a+n(b-a)/n)] on a coordinate plane x-y

## Help with MATLAB code...

Hello

I am a student of an engineering career

The math teacher is going to ask us to solve some exercises Matlab

The teacher is very hard and explains nothing of Matlab in class

We must learn to use the program on our own viewing internet watching tutorials

I was wondering if somebody could help solve some exercises.

Are only three exercises which are imposible to me

I would appreciate it greatly.

Thank you

My e-mail :

alessagosti1@gmail.com

## Connecting Two Lines Piecewise (ASAP)...

This is for the infamous Calc 2 Goblet Maple Project

I have tried everything changed all the numbers and got nowhere or worse results. The only thing that accurately works is the example project:

(0, 1.5) and end at (0.5, 0.2). which equals f1(x)=-2.6x+1.5

and f2:=x->0.2+0.05*sin(2*(x-0.5)) which is really 0.2+0.05sin(2x-1)

The goal is to change the example project so it becomes something of my own creation.

When I change f2:=x->0.4+0.05*sin(2*x-0.5)) it is at least attached but forms a sharp dip down first then connects at the point when it should be smooth curve. It seems you can do anything to the other curve

f3:=x->a*x^3+b*x^2+c*x+d;
x -> a x^3 + b x^2 + c x + d

connection1:=f3(5.5)=f2(5.5);
166.375 a + 30.25 b + 5.5 c + d = 0.3727989445

arc1:=f3(7)=1;
343 a + 49 b + 7 c + d = 1

arc2:=f3(7.5)=0.9;
421.875 a + 56.25 b + 7.5 c + d = 0.9

arc3:=f3(9)=1.6;
729 a + 81 b + 9 c + d = 1.6

values:=solve({eq1,eq2,eq3,eq4},{a,b,c,d});

F:=x->piecewise(x<0.5,f1(x),x>=0.5 and x<5.5,f2(x),x>=5.5,f3(x));

plot(F(x),x=0..9,y=0..4,scaling=constrained);

So how can this be fixed?

## How to convert a word to binary number?...

Hello, anyone know how to convert a word to 8 bits binary number ?

For example:

Here is my code:

message:=Hello
m:=convert(message,bytes);

>m:=[104,101,108,108,111]

with(Bits):

for i from 1 to 5 do:
mb[i]:=Split(m[i]);

end do;

>mb[1]:=[0,0,0,1,0,1,1] mb[2]:=[1,0,1,0,0,1,1] mb[3]:=[0,0,1,1,0,1,1] mb[4]:=[0,0,1,1,0,1,1]

mb[5]:=[1,1,1,1,0,1,1]

Anycommand can add additional one column when split the words into binary to form 8 bit in each row? Any help will be highly appreciated. Thank you.

## Conditional statements...

I have the following question:

Illustrate how the sequence N->R de fined by n ->n^2/n^2 + 31n + 228 can be shown to be
within a given epsilon > 0 of its limiting value x0.
(a) use an appropriate conditional statement to find N such that abs (xn -􀀀 x0) < epsilon for every n>=N
and produce an appropriate list of the data points (n,xn) to illustrate
this

I found N but without using any CONDITIONAL STATEMENT.Can you help me find N using IF FOR WHILE?

## How to plot tangent line?...

Write a Maple procedure which takes any cubic polynomial [−3, 3] p −→ R and returns the following:

How i can plot of p and its tangent lines illustrating the nature of each critical point.

Demonstrate this in the instance that p(x) = 1/3 x^ 3 − 6/10 x^ 2 − 187/100 x + 1.

Any ideas how i can solve this?

## Convergence of a sequence...

I have the following sequence: n2/n2+31n+228.The question asks me to use an appropriate conditional statement to find N such that absolute (xn-x0)<epsilon for every n>=N. I found N but i don't know how to find it using Maple17.Can you please help me?

## Procedure for Aitkin's Method...

How do I write a procedure to find a root of f(x)=0 in the vicinity of a given value x0. The procedure should initially use the rearrangement method to produce a linearly convergent sequence of values, and should, when appropriate, switch to Aitkin's Method. The input for the procedure should be the re-arranged function and the velue for x0. The output should be the root and the number of iteration taken. The procedure should check that re-arrangement will converge. This program should do in Maple V Release5.

## Loop for composites...

I have a homework ask you to find the first string of (at least)10, 50, 100 consecutive composites. I have no idea how to use maple. HELP

all i can think of is

>ithprime(i+1) - ithprime(i) = 10

>print(i+1, i)

and combine it with some loop

i dont know how to set up a loop

need a lot of help

## Plot of certain function ...

Hello

I have an SEIR model.

Equation 5 is for disease death but I would like to plot the cumulative numbers of disease death which will be the integral of Equation 5. I added the integral inside odeplot but it is not working. Any idea  about  how to compute the integral ?

Maple code is attached

Thank you

code.mw

## How to plot Fourier transform?...

Hi,

I was wondering how to go about plotting a Fourier Tranform in Maple.

My assignment is to plot a simple harmonic equation as a Fourier transform, depicting amplitude against fequency.

I've been given: x'' + w^2 x = 0

And want to obtain both the f(x) = a0 sin(wt) + b0cos(wt) form, and a graph of the the amplitude (c^2 =a0^2 + b0^2) against frequency.

I know how to do this on paper but not in Maple, so any help with line commands and layout would be very much appreciated.

Thanks

 2 3 4 5 6 7 8 Last Page 4 of 22
﻿