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
