MaplePrimes Questions

This does not work with Maple 13. Can I still do something like this just using the linear operator D?

g:=x->x^(1/3);

f:=x->convert(g(x),surd);

D(f)(x)???

I need the derivative D(f)!!

Thank you!!!

mapleatha

Hi Mapke experts,Here is my try to solve the integration

int(x-t)^(-alpha)*a(t-bln(t+b/b),t from 0 to x)

I found it complicated to solve it symbolic, so \i try this:

restart:
assume(t,real):
x[0]:=0:a:=-0.1:alpha:=0.5:h:=0.001:b:=Gamma(2-alpha)/((1-alpha)*Gamma(1-alpha)):
for n from 0 to 0 do
t[n]:=n*h:
vo:=a*(x[n]-b*(ln((x[n]+b)/b))):
uo:=a*(t[n]-b*(ln((t[n]+b)/b))):
u1:=(int((x[n]-t[n])^(-alpha)*uo,t[n]=0..x[n])):
S[n]:=vo+u1:
od:

data:=[seq([t[n],S[n]],n=0..100)]:

A function such that given a Graph G and vertex say v as input to a function

It should output the sum of the degrees of all the neighbors of that vertex v in that graph G 

 

Kind help thank you 

Dear all,

I believe there is a bug in integration of square of Jacobi sine function.

Here is what I did:

u := int(JacobiSN(x, k)^2, x);

The result I got is
                  x - EllipticE(JacobiSN(x, k), k)
             u := --------------------------------
                                  k^2               
However, according to  Handbook of elliptic integrals for engineers and scientists by Byrd and Friedman Eq (310.02), it is supposed to be  

                                            
                  x - EllipticE(JacobiAM(x, k), k)
             u := --------------------------------
                                  k^2     

 

 Note that I tried also to integrate first and third power of JacobiSN a the results are in agreement with the book.


 

restart

R := .46+9.1625*t^alpha/(GAMMA*(alpha+1))+8.8318*t^(2*alpha)/(GAMMA*(2*alpha+1))+11.6888*t^(3*alpha)/(GAMMA*(3*alpha+1));

.46+9.1625*t^alpha/(GAMMA*(alpha+1))+8.8318*t^(2*alpha)/(GAMMA*(2*alpha+1))+11.6888*t^(3*alpha)/(GAMMA*(3*alpha+1))

 

.32+0.9282e-1*t^alpha/(GAMMA*(alpha+1))+2.1126*t^(2*alpha)/(GAMMA*(2*alpha+1))+3.9028*t^(3*alpha)/(GAMMA*(3*alpha+1))

 

.52+0.569e-1*t^alpha/(GAMMA*(alpha+1))+0.243e-1*t^(2*alpha)/(GAMMA*(2*alpha+1))+1.3102*t^(3*alpha)/(GAMMA*(3*alpha+1))

 

.46+9.1625*t^alpha/(GAMMA*(alpha+1))+8.8137*t^(2*alpha)/(GAMMA*(2*alpha+1))+8.8450*t^(3*alpha)/(GAMMA*(3*alpha+1))

 

.32+0.9282e-1*t^alpha/(GAMMA*(alpha+1))+2.1126*t^(2*alpha)/(GAMMA*(2*alpha+1))+1.9472*t^(3*alpha)/(GAMMA*(3*alpha+1))

 

.46+0.569e-1*t^alpha/(GAMMA*(alpha+1))+0.243e-1*t^(2*alpha)/(GAMMA*(2*alpha+1))+.6551*t^(3*alpha)/(GAMMA*(3*alpha+1))

(1)

``


 

 

Given a list say

A=[1, 2,6,7,9,10,15,17]

 

If I give a=3 and b=5

I should get a sublist containing all elements from 3 to 5 in index

 

That is [6,7,9] sublist of the above list

 

Kind help 

I am writing a program that produces ball and stick images of raphs in 3D - hence in a box.  It works find (well, it takes a while) for graphs of a certain size, but when I want to double the length / width / height of the box, it produces an error message: "Plot internal error: unrecognized option Dag in Plot".  Of course, I have no option Dag in my code.  Any ideas?

Hi there.

I found some strange behavior of int function in document with using of Physics package in Maple 2021 in comparison with Maple 2020:

kerr.mw

Please look at that.

Thank you.

Here's another basic question in programming, sorry about that.

This little program does a loop over a table which was just created, and thus empty. As far as I can see the for - do loop goes through the loop at least once.

Is there a way to change the program, so that it doesn't go through the contents of the loop at all?


 

i := table()

table( [ ] )

(1)

NULL

a := 0;

0

1

1

numelems(i)

0

(2)

NULL


 

Download table_and_loop.mw

Int(UxUxy+UxxUy, x)=UxUy

How can I do this?

Is there a means of getting Maple to detect and print the operating system which it is being run on? Searching for this topic is awkward as it returns page after page of troubleshooting guides on how to get Maple running on different operating systems.

Conventionally in Bash I would use something like: echo $(uname)

Any idea how I can get the number of elements in an exprseq after a SearchAll command?

numelems apparently is not the right function.


 

with(StringTools)

a := "tre - tre - tre"

"tre - tre - tre"

(1)

b := SearchAll("-", a)

5, 11

(2)

whattype(b)

exprseq

(3)

numelems(b)

Error, invalid input: numelems expects 1 argument, but received 2

 

``


 

Download numelems.mw

Show that x-2 is a factor of p(x)=x^3+3x^2-4x-12

I)determine all the linear factors of p(x)

ii)what are the zeros of y=p(x)

iii)sketch function y=p(x)

Hi there.

I would like to get advice about most elegant and effective ways of building animated plots (sequnces of plots) of two kinds:

1. Coordinates of point on some background curve. So each plot in sequence contain constant background curve and single point that moving from plot to plot;

2. Line of points from some array. So i-th plot in sequence draw line that build on i (1..i) points from array.

I want to demonstrate these animated plots on some example - Kepler problem (point moving on ellipse):

ell.mw

But I don't think that my code is effective.

Thank you.

Suppose I have one or more equations in the variables x[1] , ..., x[n], where each equation is a linear combination of rational functions in x[1] , ..., x[n]. For example, one equation might be:

(a*x[1]+b*x[2])/x[3] + c * x[1]^2 / ( d + e*x[2]) = f

Any such equation can be turned into a polynomial by multiplying both sides by the products of all the denominators. In the example, this would be x[3]( e*x[2] + d ).

My question is whether there is a Maple command to do this automatically? This would be helpful as I have a large number of equations.

First 433 434 435 436 437 438 439 Last Page 435 of 2431