Timeline for Manipulate - mechanics
Current License: CC BY-SA 3.0
10 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Oct 7, 2014 at 20:59 | comment | added | martin | @Kuba thank you - will give that a go now :) | |
| Oct 7, 2014 at 20:39 | comment | added | Kuba |
@martin Manipulate[ r1 = RotationTransform[q]; r2 = RotationTransform[r]; r3 = RotationTransform[-r]; pkt2 = r1 /@ MapThread[Compose, {{r2, r3, r2, r3}, pkt}]; Grid[{{ Graphics[{ Thick, AbsolutePointSize@7, {Point[#], Line[{{0, 0}, #}]} & /@ pkt2 }, Axes -> True, PlotRange -> {{-2, 2}, {-2, 2}}], Column@pkt2 }}], {{r, Pi/8}, 0, Pi/2}, {{q, 0}, -Pi/2, Pi/2}, {{a, 1}, 0, 1.5}, {{b, 1}, 0, 1.5}, Initialization :> ( pkt := {{(a + b)/2, 0}, {(a + b)/2, 0}, {-a, 0}, {-b, 0}} ), TrackedSymbols :> {a, b, r, q}]
|
|
| Oct 7, 2014 at 20:35 | vote | accept | martin | ||
| Oct 7, 2014 at 20:32 | answer | added | DumpsterDoofus | timeline score: 5 | |
| Oct 7, 2014 at 20:28 | comment | added | martin | @DumpsterDoofus the intention is to have lines rotating about the endpoints too ... things could get a little complicated | |
| Oct 7, 2014 at 20:22 | comment | added | DumpsterDoofus | @martin: Your rotations are simple rotations about the origin, so a composition of two rotations is just a rotation by the sum of the angles of the individual rotations. | |
| Oct 7, 2014 at 20:14 | comment | added | martin | @Kuba will this approach work if I have lots of rotations within rotations? | |
| Oct 7, 2014 at 20:04 | history | edited | Öskå | CC BY-SA 3.0 |
Pictures!
|
| Oct 7, 2014 at 20:03 | comment | added | Kuba |
rewrite this with RotationTransform.
|
|
| Oct 7, 2014 at 19:59 | history | asked | martin | CC BY-SA 3.0 |