brian bovril

Ask a Question

Create a Post

16 Badges

Member for: 18 years, 298 days

Contact brian bovril

MaplePrimes Activity

These are questions asked by brian bovril

How to use Select...

Asked: brian bovril 889 Product: Maple 2016

April 24 2017

2 10

Experts.

In view of the worksheet:

VRP_permute.mw

What I need is
a) a better way to display the Tour_Distances (from 1 to M) and
b) a way to select tour elements where each component is <= to a specified distance (say <=H) and the corresponding tour(s) (from Tour2).

Append number to a list...

Asked: brian bovril 889 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 889 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 889 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