Cliff, I'm never quite sure where I'm going! I'm wallowing around somewhere
between 4th and 5th grade and trying to make students understand big ideas.
So: Here is my "Slinky"
load 'plot'
do=: 13 :'({.y)+(i.{:>:y)*(--/}:y)%{:y'
t=:do 0 10 1000
sin=:1&o.
cos=:2&o.
'pensize 2;aspect 1'plot (sin t);cos t NB. TWO poolar circles 'pensize
2;aspect 1'plot t;(sin t);cos t NB. Slinky from two circles over time
If I have a Fibonacci sequence (as simple as possible) then I should be able to make a "Golden
Spiral" in 2-D. But if I could start with a 1 inch cube, could I turn my slinky into a
"Snail Shell Spiral"
I have found the forum to be the most fun when a problem hatches and develops
with ideas from everywhere.
A short take on where I think I may be headed. Now I'll look at what you sent.
Cheers. Linda
-----Original Message-----
From: Programming [mailto:[email protected]] On Behalf
Of Ben Gorte - CITG
Sent: Tuesday, February 28, 2017 2:24 AM
To: [email protected]
Subject: Re: [Jprogramming] Explicit fib
Hi Linda,
You might like:
fiba =: 3 : 0
'height width' =. $y
if. (height>:width) do.
y,.(height,height)$height
else.
y,(width,width)$width
end.
)
NB. or similarly:
fibb =: 3 : 'y (,`,.) @.(>:/$y) (s,s) $ s=.>./$y' NB. wow, gerund
NB. run:
fiba^:7 (1 1$1)
viewmat 5 | fibb^:10 (1 3$1) NB. Lucas mod 5
--
Kind regards,
Ben
________________________________________
From: Programming [[email protected]] on behalf of Linda
A Alvord [[email protected]]
Sent: Monday, February 27, 2017 16:37
To: [email protected]
Subject: Re: [Jprogramming] Explicit fib
That's nice, glad you were awake! Linda
-----Original Message-----
From: Programming [mailto:[email protected]] On Behalf
Of David Lambert
Sent: Monday, February 27, 2017 9:17 AM
To: programming
Subject: Re: [Jprogramming] Explicit fib
fib3=: 13 :'}.1|.,''),(fib2 '',"_ 1":i.y,1'
". fib3 6
0 1 1 2 3 5
Let's reorganize by grouping all the strings to increase the sentence
legibility.
'),(fib2 ' ,"_ 1 ": ,. i. 7
),(fib2 0
),(fib2 1
),(fib2 2
),(fib2 3
),(fib2 4
),(fib2 5
),(fib2 6
From here ravel, rotate by one position, finally discard the extra comma.
On 02/27/2017 07:00 AM, [email protected] wrote:
Date: Mon, 27 Feb 2017 05:01:34 -0500
From: "Linda A Alvord"<[email protected]>
To:<[email protected]>
Subject: Re: [Jprogramming] Explicit fib
Message-ID: <000301d290e0$7ae35ac0$70aa1040$@net>
Content-Type: text/plain; charset="utf-8"
I like fib2 and things were going well but I hit a snag:
]W=:*i.2 2
0 1
1 1
mp=:+/ . *
fib2=:3 : '{. W&mp^:y 0 1'
". }:, (14 5$'(fib2'),"1 (' ',"1 ' ',"1 ":,.>:i.14),"1 '),'
1 1 2 3 5 8 13 21 34 55 89 144 233 377
fib3=: 13 :' ". }:, ((y,5)$'(fib2'),"1 (' ',"1 ' ',"1 ":,.>:i.y),"1 '),''
|domain error: fib2
| {.W&mp ^:y 0 1
It doesn't like the fact that that the fib2 should still be just letters.
It was fun anyway. Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
