MaplePrimes Questions

I have a printed book copy of Derek Richards' book, Advanced Mathematical Methods With Maple and would like to get the solutions to the problems in the book. Unfortunately the web download is no longer available. I have not been able to locate a copy or to contact Derek Richards directly. 

Can anyone please help?

Thanks

Joe Ladish

Hi! Do you know how can we make more transparent code for this animation plot? I want something similar to this but only for one spot:

Top 30 Lissajous GIFs | Find the best GIF on Gfycat

my code:

restart;
with(plots);
with(plottools);
display(plot([cos(x), sin(2*x), x = 0 .. 2*Pi]), animate(pointplot, [[[cos(a), 0], [0, sin(2*a)], [cos(a), sin(2*a)]], color = [red, green, green], symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), 0], [cos(a), sin(2*a)]], color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[0, sin(2*a)], [cos(a), sin(2*a)]], color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100), implicitplot(x = cos(t), x = -1 .. 1, t = 0 .. 2*Pi), animate(plot, [[[0, a], [cos(a), a]], color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(pointplot, [[[0, a], [cos(a), a]], color = green, symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), implicitplot(y = sin(2*t), t = 0 .. 2*Pi, y = -1 .. 1), animate(plot, [[[a, 0], [a, sin(2*a)]], color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(pointplot, [[[a, 0], [a, sin(2*a)]], color = red, symbolsize = 23, symbol = solidcircle], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), sin(2*a)], [a, sin(2*a)]], linestyle = dash, color = red, thickness = 3], a = 0 .. 2*Pi, frames = 100), animate(plot, [[[cos(a), sin(2*a)], [cos(a), a]], linestyle = dash, color = green, thickness = 3], a = 0 .. 2*Pi, frames = 100));
 

 

Maybe some expert can help me with this.

I am trying to improve oeis.org/A156104. It is pairs of prime numbers p and p+36.
According to the k-tuple conjecture, this should be potentially an infinite list. I want to make the database .b file larger - from 1,000 to 10,000.

The virtual clipboard was too large to copy to notepad.  I could not figure out how to write this to a file.  I tried fopen() and fclose().

See my efforts

pairs_p_and_p+36_2.mw

pairs_p_and_p+36_2.pdf

Let me know.

Matt

restart;
with(Physics);
with(Physics[Vectors]);
with(geom3d);
with(LinearAlgebra);
with(ColorTools);
with(plots);

When I define a vector with Physics[Vectors] as:

a1 := a/2*(0*_i + _j + _k)

Maple returns:

a1:= a/2*(_j + _k)

Which is fine but if you try to take the cross product it won't work because the command expects a vector in R3 but interprets a1 as a vector in R2.

How do I ensure Physics[Vectors] understands a1 is a vector in R3

zero_component_problem.mw

The worksheet below contains an example of the tiling of the hyperbolic plane.

I would like to produce this and other hyperbolic plane tilings from Maple worksheets, but I don't know the math technique for doing so.

Please direct me to a source of the requisite knowledge or an example worksheet which I can study and imitate.

Hyperbolic_Plane_Tiling.mw

On virtually any webpage is a mixture of images and text. I can go to the page, select all contents, copy the contents into an Excel spreadsheet, save the spreadsheet file and then use the ExcelTools:-Import function to read the file into a DataFrame. At that point, I can work with the data.   All the text on the webpage, even if it is embedded in some HTML command, is copied as text into the spreadsheet which eventually can be read as text by Maple.

My quesiton is, what is the method for me to bypass Excel and import the webpage directly into Maple, striped of the HTML code? Can someone point me to an example? (The only examples I have seen use the Sockets package, but I thought this mode has been superceded with Import.)

Here is an example. Why not apply the minus sign to the numerator?
Is there a simple way to change this behavior.

t__FET_TurnOff := solve(-C__iss2*V__gs_th2 + Q__total = i__GateDriveN*t__off, t__off);



Preferred result

Programatically assigning colors to points in geom3d not working.  I just want all the points drawn by the draw command, to be the same color.  The output does not respond to programatic specification of the object color.

Maple 2021 Help says: "

geom3d: draw command

calling sequence:
draw(obj,...)
draw([obj_1,...,obj_n],...)

A typical call to the draw function is draw([ obj_1(localopts_1),...,obj_n(localopts_n) ], globalopts) where obj_1, ..., obj_n are geometric objects, localopts_1, ..., localopts_n are local options for a particular object, and globalopts are  options which apply to all of the objects.

localopts_i is a sequence of type equation. The set of options allowed for localopts_i is color = red."

I tried: color = "Red", color = "red", color = Red, color=red.  The command goes through but the colors remain distinct per point.  You can use the context menu to change the color after the command goes through but it is inefficient for my purposes. 

Here is an image of it not working:


 

Hello, There seems to be a bug in the int() routine when CPV is being used i.e.

restart;
f1 := (int(t^(2*a - 1)/(-t^2 + 1), t = 0 .. infinity, CPV = true) assuming (0 < a, a < 1));

the result given is

f1 := Pi/(2*sin(Pi*a)*(-1)^(1 - a))

but the correct result is

f1 := Pi/2*cot(Pi*a).

 

I need to use a remote machine with an outdated Maple 2016. But I have written my own package in Maple 2019 / 2020 on my laptop. When I try to load my code in Maple 2016, I got the error

Error, unexpected export declaration in module body

What are the main changes to the module system in the Maple language since the 2016 version? How should I modify the code to run it successfully? (I encounter no errors for other code which only contains procedures but not modules.)

I create a table of 3D points in one worksheet and would like to use these values at a later time in a separate worksheet.

What is the simplest way to do this?


 

restart

with(LinearAlgebra)

InvT := Matrix([[c^2, s^2, -2*s*c], [s^2, c^2, 2*s*c], [s*c, -s*c, c^2-s^2]])

Matrix(%id = 18446746411704779590)

(1)

T := Matrix([[c^2, s^2, 2*s*c], [s^2, c^2, -2*s*c], [-s*c, s*c, c^2-s^2]])

Matrix(%id = 18446746411704773678)

(2)

c := cos(p)

cos(p)

(3)

s = sin(p)

s = sin(p)

(4)

Q := Matrix([[Q11, Q12, 0], [Q12, Q22, 0], [0, 0, Q66]])

Matrix(%id = 18446746411704759470)

(5)

Q11 := E1/(-v12*v21+1); Q12 := E2/(-v12*v21+1); Q66 := G12

E1/(-v12*v21+1)

 

E2/(-v12*v21+1)

 

G12

(6)

E1 := 0.233e12; E2 := 0.231e11; v21 := 0.2e-1; v12 := .2; G12 := 0.717e10

0.233e12

 

0.231e11

 

0.2e-1

 

.2

 

0.717e10

(7)

R := Matrix([[1, 0, 0], [0, 1, 0], [0, 0, 2]])

Matrix(%id = 18446746411704747062)

(8)

Qbar := Matrix([[Qb11, Qb12, Qb16], [Qb12, Qb22, Qb26], [Qb16, Qb26, Qb66]])

Matrix(%id = 18446746411704742726)

(9)

InvR := MatrixInverse(R)

Matrix(%id = 18446746411704745726)

(10)

eq1 := Qbar = InvT.Q.R.T.InvR

Matrix(%id = 18446746411704742726) = Matrix(%id = 18446746411704732718)

(11)

plot(Qb11, p = 0 .. 9)

Warning, expecting only range variable p in expression Qb11 to be plotted but found name Qb11

 

 

NULL


 

Download plotting_elements_of_matrix.mw

How to solve these systems of BVP and obtain values for gamma term.

First 380 381 382 383 384 385 386 Last Page 382 of 2427