New Topic

GeoGebra Topic Question English

How to generate a sequence of Free Segments?

jospercomp shared this question 2 years ago

Answered

Sequence(Segment((i, 0), (i, 1)), i, 1, 5)

outputs

S_1=Segment((1, 0), (1, 1))

S_2=Segment((2, 0), (2, 1))

S_3=Segment((3, 0), (3, 1))

S_4=Segment((4, 0), (4, 1))

S_5=Segment((5, 0), (5, 1))

The same question

Best Answer

jospercomp ● 2 years ago

Execute[Sequence["S_{"+(i)+"}=Segment(("+i+", 0), ("+i +", 1) )",i, 1, Length(Lcolor)]]

Execute(Sequence("ShowLabel( S_{"+i+"}, false )", i, 1, Length(Lcolor)))

Execute(Sequence("SetLineThickness(S_{"+k+"}, 5)", k, 1, Length(Lcolor)))

Execute(Sequence("SetLineStyle(S_{"+k+"}, 4)", k, 1, Length(Lcolor)))

Execute(Sequence("SetColor(S_{"+k+"}, Element(Lcolor,"+k+",1)/255, Element(Lcolor,"+ k+",2)/255, Element(Lcolor,"+ k+",3)/255)", k, 1, Length(Lcolor)))

Comments (12)

Michael Borcherds ● 2 years ago

How are you using them? Maybe the spreadsheet is the best way but it's hard to know without the context

URL

jospercomp ● 2 years ago

Must be using Repeat and/or Execute Command?

Sequence(Segment((i, 0), (i, 1)), i, 1, 5)

This command create a list. I want to generate the separate elements creating a supercommand and label will be S_1, S_2,S_3,S_4, ... S_n

URL

jospercomp ● 2 years ago

Execute[Sequence["S_{"+(i)+"}=Segment(("+i+", 0), ("+i +", 1) )",i, 1, 10]]

URL

jospercomp ● 2 years ago

This command have error:

/ji+zIMgAAAABJRU5ErkJggg==

Sequence(SetColor("S_{"+k+"}", Element(Lcolor,k,1)/255, Element(Lcolor, k,2)/255, Element(Lcolor, k,3)/255), k, 1, 10)

Sequence(SetLineThickness("S_{"+k+"}", 5), k, 1, 10)

Sequence(SetLineStyle("S_{"+k+"}", 4), k, 1, 10)

https://wiki.geogebra.org/e...

URL

jospercomp ● 2 years ago

Execute(Sequence("ShowLabel( S_{"+i+"}, false )", i, 1, 10))

Execute(Sequence("SetLineThickness(S_{"+k+"}, 5)", k, 1, 10))

Execute(Sequence("SetLineStyle(S_{"+k+"}, 4)", k, 1, 10))

Execute(Sequence("SetColor(S_{"+k+"}, Element(Lcolor,"+k+",1)/255, Element(Lcolor,"+ k+",2)/255, Element(Lcolor,"+ k+",3)/255)", k, 1, 10))

URL

artydent ● 2 years ago

Do you want a free list of segments (i.e., if you drag one segment around the others in the list also move), or do you want each segment to be a separate free object?

Generally you can that via Execute:

Execute({"{"+sum(Sequence(If(i ≟ 1, "", ",") + "Segment((" + (i) + ", 0), (" + (i) + ",1))", i, 1, 5))+"}"})
Execute(Sequence("Segment(("+i+", 0), ("+i+",1))", i, 1, 5))

And of course you can modify the string generation to generate particular object names for the second version.

For the first option I had thought that

CopyFreeObject(Sequence(Segment((i, 0), (i, 1)), i, 1, 5))

would work, but it surprisigly doesn't. Instead of a list of segments you get a list of lines. Seems like a bug to me, but might just be expected behaviour for some reason.

URL

jospercomp ● 2 years ago

This command have error:

/ji+zIMgAAAABJRU5ErkJggg==

Sequence(SetColor("S_{"+k+"}", Element(Lcolor,k,1)/255, Element(Lcolor, k,2)/255, Element(Lcolor, k,3)/255), k, 1, 10)

Sequence(SetLineThickness("S_{"+k+"}", 5), k, 1, 10)

Sequence(SetLineStyle("S_{"+k+"}", 4), k, 1, 10)

URL

jospercomp ● 2 years ago

Lcolor={{0, 0, 159}, {0, 0, 191}, {0, 0, 223}, {0, 0, 255}, {0, 32, 255}, {0, 64, 255}, {0, 96, 255}, {0, 128, 255}, {0, 159, 255}, {0, 191, 255}, {0, 2 * 23, 255}, {0, 255, 255}, {32, 255, 223}, {64, 255, 191}, {96, 255, 159}, {128, 255, 128}, {159, 255, 96}, {191, 255, 64}, {223, 255, 32}, {255, 255, 0}, {255, 223, 0}, {255, 191, 0}, {255, 159, 0}, {255, 128, 0}, {255, 96, 0}, {255, 64, 0}, {255, 32, 0}, {255, 0, 0}, {223, 0, 0}, {191, 0, 0}}

URL

jospercomp ● 2 years ago

Execute[Sequence["S_{"+(i)+"}=Segment(("+i+", 0), ("+i +", 1) )",i, 1, Length(Lcolor)]]

Execute(Sequence("ShowLabel( S_{"+i+"}, false )", i, 1, Length(Lcolor)))

Execute(Sequence("SetLineThickness(S_{"+k+"}, 5)", k, 1, Length(Lcolor)))

Execute(Sequence("SetLineStyle(S_{"+k+"}, 4)", k, 1, Length(Lcolor)))

Execute(Sequence("SetColor(S_{"+k+"}, Element(Lcolor,"+k+",1)/255, Element(Lcolor,"+ k+",2)/255, Element(Lcolor,"+ k+",3)/255)", k, 1, Length(Lcolor)))

URL

jospercomp ● 2 years ago

Colormap reverse

Execute(Sequence("SetColor(S_{"+k+"},Element(Lcolor,Length(Lcolor)+"+(-k)+"+1,1)/255,Element(Lcolor,Length(Lcolor)+"+(-k)+"+1,2)/255,Element(Lcolor,Length(Lcolor)+"+(-k)+"+1,3)/255)", k, 1, Length(Lcolor)))

URL