Message Boards Message Boards

0
|
4484 Views
|
4 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Question I need help STAT

Daniel Ta
Posted 9 years ago

I need help with this really hard question and I can't seem to construct it properly. Can someone help me out with this one?

POSTED BY: Daniel Ta
4 Replies
Sort By:
Daniel Ta
Daniel Ta
Posted 9 years ago

I can't thank you enough haha XD I really appreciate this !

POSTED BY: Daniel Ta

As a replacement - not so blatant - homework you could try ...

    Remove[taF]
    taF[\[Alpha]_, \[Beta]_, n_?Positive, len1_: 1, len2_: 2/5] := 
     Graphics[Line[
       Join[{{0, 0}}, AnglePath[{len1 + len2, 0}, 
         Transpose[{Flatten[ConstantArray[{len1, len2}, n], 1], 
           Join[{\[Alpha]}, Differences[Flatten[Table[{o \[Alpha], o \[Beta]}, {o, 1, n}], 1]]]}]]]]]

compare it with yesterday's implementation

enter image description here
POSTED BY: Udo Krause

This

Graphics[Line[Join[{{0, 0}}, Flatten[Last[Transpose[
      NestList[taF[#, 22.5 \[Degree], 122.5 \[Degree]] &, {1, {{1, 0}, {7/5, 0}}}, 177]]], 1]]]]

gives

enter image description here

the angles appear in From Close to Perfect: A Triangle Problem by Ed Pegg Jr. As a replacement - not so blatant - homework you could try to replace the current implementation by an application of AnglePath only.
POSTED BY: Udo Krause
POSTED BY: Udo Krause
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract