Adam Ledger

Ask a Question

Create a Post

Name: Mr. Adam Ledger

11 Badges

Member for: 10 years, 10 days

Company/Institution: unemployed

Title: hobo

Location: Perth, Australia

Social Networks and Content at Maplesoft.com

Contact Adam Ledger

MaplePrimes Activity

These are questions asked by Adam Ledger

How to handle ordering problems...

Asked: Adam Ledger 360 Product: Maple

November 07 2019

1 3

My learning exercise today is the Calkin-Wilf Tree, and the first worksheet I have the issue, due to needing to use a set operator and at that point of computation losing the ordering if it were to be a list (I have tried with a list, and was unsuccessful) none the less my question is, can I alter the ordering condition for Sets in a worksheet produced therein?

I also encountered a strange result that I would appreciate an explaination for as seen below in the uploaded worksheet

https://en.wikipedia.org/wiki/Calkin–Wilf_tree

Q := proc (n) options operator, arrow; (`minus`(map(rhs, solve(`union`(seq({q[0] = 1/2, q[1] = 1, q[i+1] = 1/(2*floor(q[i])-q[i]+1)}, i = 1 .. n)))), map(rhs, solve(`union`(seq({q[0] = 1/2, q[1] = 1, q[i+1] = 1/(2*floor(q[i])-q[i]+1)}, i = 1 .. n-1))))))[] end proc

proc (n) options operator, arrow; (`minus`(map(rhs, solve(`union`(seq({q[0] = 1/2, q[1] = 1, q[i+1] = 1/(2*floor(q[i])-q[i]+1)}, i = 1 .. n)))), map(rhs, solve(`union`(seq({q[0] = 1/2, q[1] = 1, q[i+1] = 1/(2*floor(q[i])-q[i]+1)}, i = 1 .. n-1))))))[] end proc

(1)

delta := proc (x, y) options operator, arrow; piecewise(x = y, 1, x <> y, 0) end proc

(2)

(3)

(4)

q0 := proc (n) options operator, arrow; 1/(2*floor(Q(n)*(1-delta(n, 2))+delta(n, 2)*q[2]+delta(n, 1)*q[1])-Q(n)*(1-delta(n, 2))-delta(n, 2)*q[2]-delta(n, 1)*q[1]+1) end proc

proc (n) options operator, arrow; 1/(2*floor(Q(n)*(1-delta(n, 2))+delta(n, 2)*q[2]+delta(n, 1)*q[1])-Q(n)*(1-delta(n, 2))-delta(n, 2)*q[2]-delta(n, 1)*q[1]+1) end proc

(5)

(6)

Download Q1_MP_08112019.mw

Exponentiation by Squaring Issue...

Asked: Adam Ledger 360 Product: Maple 2016

November 06 2019

2 9

My problem is explained with sufficient detail in the below worksheet:

>	$currentdir("H:\\MAIN DIRECTORY\\ESD-USB\\my_maple_library")$

>	$currentdir("H:\\MAIN DIRECTORY\\ESD-USB\\Computer Science\\MAPLE\\Exponentiation by Squaring"):$

B := proc (n) options operator, arrow; [seq(d(n, 2, j), j = 0 .. floor(ln(n)/ln(2)))] end proc:

Identity0 := proc (x, n) options operator, arrow; x^n = piecewise(`mod`(x, 2) = 1, x*(x^2)^((1/2)*n-1/2), `mod`(x, 2) = 0, (x^2)^((1/2)*n)) end proc

Generate_Equations_List := proc (n) global EquationsList, r, B_n, T; B_n := B(n); T := nops(B_n); r[T] := 1; return [seq(r[u-1] = r[u]^2*x^B_n[u], u = 1 .. T)] end proc:

Exp_by_squares := proc (M, Y) global R; Generate_Equations_List(M); R[1] := max([allvalues(rhs(isolate(F[0](Y, M)[1], r[1])))]); return 'x^n' = R[1]^2*X^B_n[1] end proc:

(1)

(2)

(3)

(4)

Download slow.mw

So I know I have obviously done something wrong, but it has proven very difficult to establish where given how little i know about the solve function

Document Tools package "Generate Compone...

Asked: Adam Ledger 360 Product: Maple 2016

November 05 2019

1 2

As useful as the SetProperty and GetProperty commands are in this package, I am seeking a command that is called by the action of a user input prompt, for example, the prompt window question is something like:

"How many parameters of silly do you want to specifiy for this analysis? (maximum is 10)"

And once the user has entered a natural number between 1 and 10, that number of components of a specified type is generated in the worksheet.

Is this a real thing already and I can't find it or is there a round about way to do it without an actual command existing?