brian bovril

Ask a Question

Create a Post

16 Badges

Member for: 18 years, 327 days

Contact brian bovril

MaplePrimes Activity

These are questions asked by brian bovril

Append number to a list...

Asked: brian bovril 914 Product: Maple 2016

April 23 2017

3 1

Experts,

This may sound like a dumb question, but i'm seeking a procedure to do it better.

with(combinat, setpartition) :
P := [$2..5] :

Tours := setpartition(P);M:=nops(Tours)

[[[5], [2, 3, 4]], [[2], [5], [3, 4]], [[3], [5], [2, 4]], [[4], [5], [2, 3]], [[2], [3], [4], [5]], [[2, 3, 4, 5]], [[2, 5], [3, 4]], [[2], [3, 4, 5]], [[2, 4], [3, 5]], [[3], [2, 4, 5]], [[2, 3], [4, 5]], [[4], [2, 3, 5]], [[3], [4], [2, 5]], [[2], [4], [3, 5]], [[2], [3], [4, 5]]]

(1)

number of elements in each 'group'

seq(nops(Tours[i]),i=1..nops(Tours))

(2)

i need to add 1 to each 'subgroup' : These are the first two:

[[[1,op(Tours[1,1])],[1,op(Tours[1,2])]],[[1,op(Tours[2,1])],[1,op(Tours[2,2])],[1,op(Tours[2,3])]]]

(3)

I need to add 1 to each 'subgroup' in a more automatic way.

Download add_1.mw

Lazy caterer's animation...

Asked: brian bovril 914 Product: Maple 2016

February 07 2017

2 5

Edited.

Fellas

I'm wondering how to produce the graphic in the

https://en.wikipedia.org/wiki/Lazy_caterer's_sequence.

my attempt:
caterers.mw

animating a cylinder bounded by a sphere...

Asked: brian bovril 914 Product: Maple 2016

January 30 2017

2 4

Guys

I can't seem to work out how the cylinder in my animation won't extend to of the bottom of the sphere initially. and how to make it stop at the maximum volume coordinates.

cylinder_in_sphere_ani.mw