[MWForum]Circle and arc help

Mon, 21 Feb 2005 20:41:11 -0600

--------------BE01D98EEFABD28A6FC3528B
Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 7bit

Thanks for the arc procedures, Kathy. Can't wait to share them with kids. I can hear it now. "That's cool."

Since you do geometry projects, do you know any way to judge the amount of transfer from MW to standardized math tests? If we could document that MW lessons do increase test scores...............  programming like this would be given its due.

Kate Mikula

Kathryn Boyle wrote:

> Here are the procedures that I used with LogoWriter. I am currently using MicroWorlds 2.O on a variety of Macs with a variety of operating systems - everything from 8.0 to OS 10. I keep these procedures in a file called circle.tools and I use the import under the file menu to import the procedures whenever I need them. I mostly use them with kindergarteners, where I don't expect them to try to understand how to make a circle. I find that my older students mostly use the paint tools to make circles. I do bring them out for my own enjoyment or if I'm doing a series geometry projects.
>
> I know that I go through quite an adjustment every time have changed versions of Logo. I started with Apple Logo on an Apple II. I loved Sprite Logo. Does anyone else remember that one? I have found that every version has pluses and minuses. Mostly, when I have to rethink an old loved procedure or project, I have benefited from the experience. If you live with computers, you have to get used to and learn to love change.
>
> Happy exploring! Kathy
>
> to circler :r
> make "steps (2 * :r * 3.1416 / 36)
> repeat 36[rt 5 fd :steps rt 5]
> end
>
> to circlel :r
> make "steps (2 * :r * 3.1416 / 36)
> repeat 36[lt 5 fd :steps lt 5]
> end
>
> to arcr :r :d
> make "steps (2 * :r * 3.1416 / 36)
> make "rem remainder :d 10
> repeat :d / 10[rt 5 fd :steps rt 5]
> if :rem > 0 [fd :steps * :rem / 10 rt :rem]
>
> end
>
> to arcl :r :d
> make "steps (2 * :r * 3.1416 / 36)
> make "rem remainder :d 10
> repeat :d / 10[lt 5 fd :steps lt 5]
> if :rem > 0 [fd :steps * :rem / 10 lt :rem]
>
> end

--------------BE01D98EEFABD28A6FC3528B
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Thanks for the arc procedures, Kathy. Can't wait to share them with kids.
I can hear it now. "That's cool."
Since you do geometry projects, do you know any way to judge the amount
of transfer from MW to standardized math tests? If we could document
that MW lessons do increase test scores...............&nbsp; programming
like this would be given its due.
 &nbsp;
Kate Mikula
Kathryn Boyle wrote:
<blockquote TYPE=CITE>Here are the procedures that I used with LogoWriter.
I am currently using MicroWorlds 2.O on a variety of Macs with a variety
of operating systems - everything from 8.0 to OS 10. I keep these procedures
in a file called circle.tools and I use the import under the file menu
to import the procedures whenever I need them. I mostly use them with kindergarteners,
where I don't expect them to try to understand how to make a circle. I
find that my older students mostly use the paint tools to make circles.
I do bring them out for my own enjoyment or if I'm doing a series geometry
projects.
I know that I go through quite an adjustment every time have changed
versions of Logo. I started with Apple Logo on an Apple II. I loved Sprite
Logo. Does anyone else remember that one? I have found that every version
has pluses and minuses. Mostly, when I have to rethink an old loved procedure
or project, I have benefited from the experience. If you live with computers,
you have to get used to and learn to love change.
Happy exploring! Kathy
to circler :r
 make "steps (2 * :r * 3.1416 / 36)
 repeat 36[rt 5 fd :steps rt 5]
 end
to circlel :r
 make "steps (2 * :r * 3.1416 / 36)
 repeat 36[lt 5 fd :steps lt 5]
 end
to arcr :r :d
 make "steps (2 * :r * 3.1416 / 36)
 make "rem remainder :d 10
 repeat :d / 10[rt 5 fd :steps rt 5]
 if :rem > 0 [fd :steps * :rem / 10 rt :rem]
end
to arcl :r :d
 make "steps (2 * :r * 3.1416 / 36)
 make "rem remainder :d 10
 repeat :d / 10[lt 5 fd :steps lt 5]
 if :rem > 0 [fd :steps * :rem / 10 lt :rem]
end</blockquote>
</html>

--------------BE01D98EEFABD28A6FC3528B--