MaplePrimes Questions

How do I save these fonts as my default ones?                                

"Maple Input: Arial 24, Red"

and "2D Output: Arial 18, Blue".

I am using Maple 13.

Thank you!

 

would like to point to graph then it highlight graph with virtical line

and mark 1 in one of row in one of column in table like data 

just like define feature manually for machine learning but using graph

By default Maple labels vertices 1, 2, ...  and places these numbers within a circle making the position of the vertex.  Can one change the labels to, say, v1, v2, ... and place these outside the circles?  ..................Edgar

Write a program in Maple that solves the recurrence equations given for K[n] and R[n] numerically. Assume that if the recurrence equations return less than half a rabbit or fox, K[n] ≤ 0.5, respectively R[n] ≤ 0.5, at a time n, this means that the rabbits or foxes go extinct. Check that your program reproduces the equilibrium-solution if you start with the initial values K0 = Ke and R0 = Re.

 

 

Hi. I have an equation that consists lots of sines and cosines but I'm not sure how to differentiate it with respect to time. Whenever I do, I get zero. How do I communicate to Maple that theta changes with time so that it can perform the operation?

Is there any way to transfer the equation to MATLAB and perform it there by any chance? I don't know MATLAB though.

Thanks in advance.

After doing some calculations, the result includes 20 rows,  3 columns.

but it doesn't appear. How can we see the result?

Please find the following code?

problem.mw

 

Thanks.

Please describe the step-by-step application of the rules of differentiation which produce this derivative:

diff(a(x)^b(x), x) =        

a(x)^b(x)*((diff(b(x), x))*ln(a(x))+b(x)*(diff(a(x), x))/a(x));

why pdsolve does not work?

Q and alpha are constant. I want to find f(x,y).

Thanks
 

"restart: w(x,y) :=Q*sin^(2)(Pi*x)*sin^(2)(Pi*y)"

proc (x, y) options operator, arrow, function_assign; Q*sin(Pi*x)^2*sin(Pi*y)^2 end proc

(1)

PDE := diff(f(x, y), x, x, x, x)+2*(diff(f(x, y), x, x, y, y))/alpha^2+(diff(f(x, y), y, y, y, y))/alpha^4+((diff(w(x, y), y, y))*(diff(w(x, y), x, x))-(diff(w(x, y), x, y))^2)/alpha^2

diff(diff(diff(diff(f(x, y), x), x), x), x)+2*(diff(diff(diff(diff(f(x, y), x), x), y), y))/alpha^2+(diff(diff(diff(diff(f(x, y), y), y), y), y))/alpha^4+((2*Q*sin(Pi*x)^2*Pi^2*cos(Pi*y)^2-2*Q*sin(Pi*x)^2*sin(Pi*y)^2*Pi^2)*(2*Q*Pi^2*cos(Pi*x)^2*sin(Pi*y)^2-2*Q*sin(Pi*x)^2*sin(Pi*y)^2*Pi^2)-16*Q^2*sin(Pi*x)^2*sin(Pi*y)^2*Pi^4*cos(Pi*x)^2*cos(Pi*y)^2)/alpha^2

(2)

pdsolve(PDE)

``


 

Download PLATE.mw

I currently have a list 2 elements long filled with lists 6 elements long similar to the following:

A := [[0, 1, 2, 3, 4, 5], list[0, 2, 4, 6, 8, 10]]

I would like to output 'A' (my list of lists) to a text file to look like the following:

0   0

1   2

2   4

3   6

4   8

5   10

 

Currently my code looks like this

L := [ ];
M := [ ];
for i from 0 to 5 do L := [op(L), 2*i]; M := [op(M), i] end do;
A := [M, L];
writedata(test, A, float);

 

Which provides me with almost what I need, but written horizontally instead of vertically:

0    1    2    3    4    5
0    2    4    6    8    10

 

How do I alter the code so that I can read my values vertically?

How do I solve for nonlinear differential equation with boundary value problem? Is it possible to solve nonlinear ODE by using Laplace Transform with Maple? If possible, can give me an example of solving nonlinear ODE using Maple. Thank you.

0.733333e^-1

0.733333e^-3

0.733333e^-5

0.733333e^-7

 

no matter what e is , expect to output the same 0.733333

 

I am trying to plot y:=x^2+x-12 as a curve and as a series of point. It is just not working. Suggestions, please.

Digitalize.mw
 

restart

f := proc (x) options operator, arrow; x^2+x-12 end proc

n := 10

h := 5``

printf("\n    i        x       f (dec.form)    f (sci. notat.)\n"); printf("  ---------------------------------------------------\n"); for i from 0 to n do X[i] := i*h; Y[i] := f(X[i]); printf(" %5d  %9.4f  %13.9f  %17.10e\n", i, X[i], Y[i], Y[i]) end do


    i        x       f (dec.form)    f (sci. notat.)
  ---------------------------------------------------
     0     0.0000  -12.000000000  -1.2000000000e+01
     1     5.0000   18.000000000   1.8000000000e+01
     2    10.0000   98.000000000   9.8000000000e+01
     3    15.0000  228.000000000   2.2800000000e+02
     4    20.0000  408.000000000   4.0800000000e+02
     5    25.0000  638.000000000   6.3800000000e+02
     6    30.0000  918.000000000   9.1800000000e+02
     7    35.0000  1248.000000000   1.2480000000e+03
     8    40.0000  1628.000000000   1.6280000000e+03
     9    45.0000  2058.000000000   2.0580000000e+03
    10    50.0000  2538.000000000   2.5380000000e+03

 

``

plot1 := plot([X[k], Y[k]], k = 0 .. n, style = point, symbol = soliddiamond, symbolsize = 24, color = blue)

plot2 := plot(f(x), x = 0 .. 50)

with(plots)

display([plot1, plot2])

 

``


 

Download Digitalize.mw

 

 

restart;

with(IntegrationTools):

# A very simple double integral

J:=Int(Int(x^2, x = 0 .. y), y = 0 .. 1);

Int(Int(x^2, x = 0 .. y), y = 0 .. 1)

(1)

value(J);

1/12

(2)

# Try a simple change of variables

Change(J, x=t*y, [t]);   # Why this form?

Intat(Intat(_a^2, _a = _b)-Intat(_a^2, _a = 0), _b = 1)-Intat(Intat(_a^2, _a = _b)-Intat(_a^2, _a = 0), _b = 0)

(3)

value(%);

1/12

(4)

# Now the same for 2*J

Change(2*J, x=t*y, [t]);  # OK, but why?

2*(Int(y^3*(Int(t^2, t = 0 .. 1)), y = 0 .. 1))

(5)

value(%);

1/6

(6)

 


Download IntegrationTools-Change.mw

Am trying to analyse a set of strings.   Can anyone help?

We have 10 x10 matrix into which we need to add connection score.
ExY := [WPKCPYWFYWCXHY, WPKCTEYFHCFEEE, HYCYTFHYYWWKCE, HYHHTFHKFEYHEH, HKXWYHFECTFFTF, HKWEHPPECWWHTC, HKXWYTPXHFHWYP, HKFEXCTFECXFKP, HKFEYPPEEEPHYW, HYTHCCFEWPPEXX, HKXKXCKFCHTEWK, HYEKPPCKFTWXXW];
Here is the code to create the connection matrix 
A__c = A__a+A__d;
.
Blist:=[W,P,K,C,Y,F,X,H,T,E]:# basis letters
nWords:=numelems(ExY):Wletters:=length(ExY[1]):Bletters:=numelems(Blist):A:=Matrix(Bletters,Bletters):# set up dimensions
for iW from 1 to nWords do  # loop through words
  for iL from 1 to Wletters-1 do # loop through letters of each word
     fromLett:=C(iW,iL); # see char extraction from ExY list above 
     toLett:=C(iW,iL+1); # ditto
     BfromLett:=Search(fromLett,Blist);# column id   <<<<<< the search is returning 0, it works if one uses "A" rather than say fromLett=A 
     BtoLett:=Search(toLett,Blist);# row id   <<<<<  ditto here
     A(BfromLett,BtoLett):=A(BfromLett,BtoLett)+ 1; # add statistic to the A-matrix
  end do; # end letter loop
end do; # end word loop
Error, index out of bounds
The search function is failing: 
Blist; Wletters; Bletters; nWords; fromLett; toLett; BfromLett; BtoLett; A; iW; iL;
                 [W, P, K, C, Y, F, X, H, T, E]
                               14
                               10
                               12
                              "W"
                              "P"
                               0
                               0

                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
                 [                            ]
                 [0  0  0  0  0  0  0  0  0  0]
 

Hello

I found this paper. 

http://benson-labs.com/uploads/stuff/POW15.pdf

I'm not sure if the population after 1 year is correct.

I wanted to get the formula from rsolve. But i have incorrorectly formulated the sum by day and the total.

Rattus_recursion.mw

 

First 644 645 646 647 648 649 650 Last Page 646 of 2308