##What follows is one flavor of Turtle Graphics
local angl,penDown,x,y
global radPerDeg,degPerRad,noDraw,waittime,x0,y0
local x1,y1,A1,gpoints,tObject,tGraphic,labelCount
on back temp
forward -temp
end back
on bk temp
back temp
end bk
on centeredCircle r
put the tool into savedTool
choose the oval tool
set the centered to true
drag from round(x0+the px of tObject ),round(y0-the py of tObject) to round(x0+the px of tObject+r),round(y0-the py of tObject-r)
set the centered to false
choose the savedTool
end centeredCircle
function commaFormat pNum
put pNum mod 1 into remainder
delete char 1 of remainder
put trunc(pNum) into pNum
put the number of chars in pNum into n
repeat with i = 1 to trunc((n-1)/3)
put comma after char n - 3*i of pNum
end repeat
return pNum& remainder
end commaformat
function getTheObject who
put theControls() into tList
put "" into results
repeat for each line tLine in tList--with i = 1 to the number of lines in tList
if who is in tLine and "grc" is not in tLine then --line i of tList then
put tLine into results--line i of tList into results
exit repeat
end if
end repeat
put results into tObject
put quote before word 2 of tObject
put quote after tObject
return tObject
end getTheObject
function fact n
put 1 into results
repeat with i = 1 to n
multiply results by i
end repeat
return results
end fact
on startTurtle tObject
put round(the width of this stack/2) into x0
put round(the height of this stack/2) into y0
put "graphic" &&tObject into tObject
put 1 into labelCount
if there is no tObject then
set the style of the templateGraphic to "line"
create grc word 2 of tObject
end if
if the style of tObject is not "line" then set the style of tObject to "line"
set the px of tObject to 0
set the py of tObject to 0
set the pPenDown of tObject to true
set the pAngle of tObject to 0
set the pPoints of tObject to x0,y0 & return
end startTurtle
drawAndMove
end startTurtle
on st temp
startTurtle temp
end st
function intersection p1,p2,pp1,pp2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
put item 1 of pp1 into xp1
put item 2 of pp1 into yp1
put item 1 of pp2 into xp2
put item 2 of pp2 into yp2
if x1 = x2 or xp1 = xp2 then
if x1 = x2 then
return x1&comma&yp2 + (x1-xp2)*(yp2-yp1)/(xp2-xp1)
else
return xp2&comma& y2 + (xp1-x2)*(y2-y1)/(x2-x1)
end if
end if
put yp2 - y2 + x2*(y2-y1)/(x2 - x1) - xp2*(yp2 - yp1)/(xp2 - xp1) into numerator
put ((y2 - y1)/(x2 - x1) -(yp2 - yp1)/(xp2-xp1)) into denom
put numerator / denom into x
put y2 + (x-x2) *(y2-y1)/(x2-x1) into y
return x & comma & y
end intersection
on setHome xx,yy
get the paramcount
if it is 1 then
put item 2 of xx into yy
put item 1 of xx into xx
end if
put (the width of this stack)/2 + xx into x0
put (the height of this stack)/2 - yy into y0
-- drawturtle
end setHome
on home
setxy 0,0
set the pAngle of tObject to 0
end home
function log x
return ln(x)/ln(10)
end log
on cleanG who
put who into temp
get the paramcount
if it is 0 then
repeat with i = 1 to the number of graphics
if "grc" is in the name of grc i then set the points of grc i to ""
end repeat
else
set the pPoints of graphic who to ""
set the points of graphic who to ""
end if
end cleanG
on clearLabels who
lock screen
get the paramcount
if it is 0 then
repeat with i = the number of fields down to 1
if "label" is in the name of field i then delete field i
end repeat
end if
if it is 1 then
repeat with i = the number of fields down to 1
if "who" is in the name of field i then delete field i
end repeat
end if
unlock screen
end clearLabels
on cleanT who
put who & "grc" into tGraphic
if there is a grc tGraphic then set the points of grc tGraphic to ""
end cleanT
function perpBisector p1,p2
breakpoint
pu
setXY p1
seth toward( p2)
fd .5*distancePt (p2)
rt 90
put point into temp1
put item 1 of temp1 into item 1 of temp
put item 2 of temp1 into item 2 of temp
put heading() into item 3 of temp
pd
return temp
end perpBisector
on clean
ct
lock screen
repeat until the number of images is 0
delete image 1
end repeat
put 1 into i
repeat while i <= the number of fields
if "fieldLabel" is in word 2 of the name of field i
then delete field i
else add 1 to i
end repeat
unlock screen
end clean
on incXY dx,dy
-- put the px of tObject into x
-- put the py of tObject into y
put the pPoints of tObject into gPoints
if the pPendown of tObject is true
then
put round (x0 +the px of tObject +dx) &comma &round(y0 -the py of tObject - dy)& return after gPoints
else
put return & round (x0 +the px of tObject +dx) &comma &round(y0 - the py of tObject - dy)& return after gPoints
end if
set the px of tObject to the px of tObject + dx
set the py of tObject to the py of tObject + dy
set the pPoints of tObject to gPoints
--set the points of grc tGraphic to gPoints
drawAndMove
end incXY
on setxy xnew,ynew
get the paramCount
if it = 1 then
put item 2 of xnew into ynew
put item 1 of xnew into xnew
end if
set the px of tObject to xnew
set the py of tObject to ynew
put the pPoints of tObject into gPoints
put round(the px of tObject +x0)&comma& round(y0 - the py of tObject) into tLoc
if the pPendown of tObject is true then
--put truncItems(tLoc) into tLoc
put tLoc & return after gPoints
else
put return & tloc & return after gPoints
end if
set the pPoints of tObject to gPoints
DrawAndMove
--set the lockscreen to false
end setxy
function truncItems tItem
return round(item 1 of tItem)& comma&round(item 2 of tItem)
end truncItems
on setRA tRadius, tAngle
put tRadius*cosine(tAngle) into tx
put tRadius*sine(tAngle) into ty
setXY tX,tY
end setRA
on drawAndMOve
set the points of tObject to the pPoints of tObject
--set the points of graphic tGraphic to the pPoints of tObject
--set the loc of tObject to round(x0 +the px of tObject)&comma&round(y0-the py of tObject)
end drawAndMOve
on setHeading temp
seth temp
end setHeading
on drawTurtle
end drawTurtle
on seth anglnew
set the pAngle of tObject to anglnew
--drawTurtle
end seth
on left dangl
lt dangl
end left
on right dangl
rt dangl
end right
on rt dangl
set the pAngle of tObject to the pAngle of tObject - dangl
--drawTurtle
end rt
on lt dangl
set the pAngle of tObject to the pAngle of tObject + dangl
end lt
on forward distance
put distance * cos(radPerDeg * the pAngle of tObject) into dx
put distance * sin(radPerDeg * the pAngle of tObject) into dy
set the px of tObject to the px of tObject + dx
set the py of tObject to the py of tObject + dy
put the pPoints of tObject into gPoints
put round(the px of tObject +x0)&comma&round(y0- the py of tObject) into tMouseLoc
if the pPenDown of tObject is true then
put tMouseLoc &return after gPoints
else
put return & round(the px of tObject+x0)&comma&round(-the py of tObject+y0)& return after gPoints
end if
set the points of tObject to gPoints
set the pPoints of tObject to gPoints
--set the loc of tObject to tMouseLoc
end forward
on fd temp
forward temp
end fd
on pu
set the pPenDown of tObject to false
end pu
on penUp
pu
end penUp
on penDown
pd
end penDown
on pd
set the pPendown of tObject to true
end pd
function toward xtemp,ytemp
get the paramCount
if it is 1 then
put item 2 of xtemp into ytemp
put item 1 of xtemp into xtemp
end if
put ytemp - y into dy
put xtemp - x into dx
if dx = 0 then
if dy > 0 then return 90
else return 90 + 180
end if
if dy = 0 then
if dx > 0 then return 0
else return 180
end if
put degPerRad * atan(abs(dy) / abs(dx)) into angl
if dy > 0 then
if dx > 0 then return angl
else return 180 - angl
end if
if dx > 0 then
return 360 - angl
else
return 180 + angl
end if
end toward
function direction xtemp,ytemp
put the px of tObject into x
put the py of tObject into y
get the paramCount
if it is 1 then
put item 2 of xtemp into ytemp
put item 1 of xtemp into xtemp
end if
put ytemp - y into dy
put xtemp - x into dx
if dx = 0 then
if dy > 0 then return 90
else return 90 + 180
end if
if dy = 0 then
if dx > 0 then return 0
else return 180
end if
put degPerRad * atan(abs(dy) / abs(dx)) into tAngl
if dy > 0 then
if dx > 0 then return tAngl
else return 180 - tAngl
end if
if dx > 0 then
return 360 - tAngl
else
return 180 + tAngl
end if
end direction
function direction2 xtemp,ytemp
get the paramCount
if it is 1 then
put item 2 of xtemp into ytemp
put item 1 of xtemp into xtemp
end if
put ytemp - y into dy
put xtemp - x into dx
put arctangent2(dy,dx) into tAngle
if tAngle < 0 then return 360 + tAngle
else return tAngle
end direction2
function xycor
return (the px of tObject) & comma & (the py of tObject)
end xycor
function sci pNum,sigFigures
if pNum < 0 then
put "-" into sign
else put empty into sign
put abs(pNum) into pNum
if sigFigures is empty then put 3 into sigFigures --Default significant figures.
put 0 into count
if pNum >= 1 then
repeat until pNum < 10
divide pNum by 10
add 1 to count
end repeat
put round((10^(sigFigures-1))*pNum)/10^(sigFigures-1) into pNum
return sign & (char 1 to sigFigures + 1 of pNum) &"*10^" & count
end if
if pNum < 1 then
repeat until pNum >= 1
multiply pNum by 10
add 1 to count
end repeat
end if
return sign & (char 1 to sigFigures + 1 of pNum) & "*10^-" & count
end sci
function xcor
return the px of tObject
end xcor
function ycor
return the py of tObject
end ycor
function randomInRange b,t
return random(t-b+1) + b-1
end randomInRange
on setx xnew
setxy xnew, the py of tObject
end setx
on sety ynew
setxy the px of tObject, ynew
end sety
function distance xtemp,ytemp
get the paramCount
if it = 1 then
put item 2 of xtemp into ytemp
put item 1 of xtemp into xtemp
end if
return sqrt ((the px of tObject -xtemp)^2 + (the py of tObject-ytemp)^2)
end distance
function heading
put the pAngle of tObject into tempAngle
--set the pAngle of tObject to the pAngle of tObject - dangl
repeat while tempAngle >360
subtract 360 from tempAngle
end repeat
repeat while tempAngle < 0
add 360 to tempAngle
end repeat
return tempAngle
end heading
on label inputText
lock screen
put the tool into tTool
choose the browse tool
set the textstyle of the templateField to "bold"
set the style of the templateField to "transparent"
set the textAlign of templateField to center
--set the dontWrap of templateField to true
put "fieldLabel" & labelCount into nField
if there is no field nField then create field nField
add 1 to labelCount
put inputText into field nField
set the loc of field nField to turtlePtToMousePt(xycor())
set the width of field nField to the formattedwidth of field nField
set the height of field nField to the formattedHeight of field nField
set the tool to tTool
unlock screen
end label
function mouseToTurtle pt
put round(-x0 + item 1 of pt) into item 1 of temp
put round( y0 - item 2 of pt) into item 2 of temp
return temp
end mouseToTurtle
function mousePtToTurtlePt pt
return mouseToTurtle(pt)
end mousePtToTurtlePt
function mpttp pt
return mouseToTUrtle(pt)
end mpttp
function turtleToMouse pt
put round(x0 + item 1 of pt) into item 1 of temp
put round(y0 - item 2 of pt) into item 2 of temp
return temp
end turtleToMouse
function tptmp pt
return turtleToMouse(pt)
end tptmp
function turtlePtToMousePt pt
return turtleToMouse(pt)
end turtlePtToMousePt
function clickPoint
set the cursor to cross
wait until mouseClick() --Wait for the mouse click.
return mousePtToTurtlePt(mouseLoc()) --Return the mouse coordinates converted to turtle coordinates.
end clickPoint
on preopenStack
global waittime
put 0 into waittime
--clean
set the grid to false
put 180/ pi into degPerRad
put pi/180 into radPerDeg
put (the width of this card)/2 into x0
put (the height of this card)/2 into y0
choose the browse tool
end preopenStack
function sine a
return sin(radPerDeg* a)
end sine
function cosine a
return cos(radPerDeg*a)
end cosine
function tangent a
return tan(radPerDeg*a)
end tangent
function arcsine a
return atan(a/sqrt(1-a*a))/radPerDeg
end arcsine
function arcTangent a
return atan(a)*degPerRad
end arcTangent
function arcTangent2 y,x
return degPerRad*atan2(y,x)
end arcTangent2
function sum list
put 0 into theResult
repeat with i = 1 to the paramcount
add param(i) to theResult
end repeat
return theResult
end sum
on pr x
set the numberformat to "#.00"
if there is a field "data" then put x & return after field "data"
end pr
on functionKey tKey
switch tKey
case 8
if the tool is "browse tool" then
choose the pointer tool
else
choose the browse tool
end if
break
case 2
edit the script of this stack
break
case 3
edit the script of this card
break
case 5
go to next card
break
case 4
go to previous card
break
case 6
ct
break
end switch
end functionKey
on tell who
put "graphic" && who into tObject
end tell
function theControls
repeat with i = 1 to the number of controls
put the name of control i into temp
replace quote with empty in temp
put temp into line i of results
end repeat
return results
end theControls
on tabKey
if controlkey() = "down" then
if the tool = "pointer tool"
then choose browse tool
else choose pointer tool
else pass tabKey
end tabKey
@ cREVGeneral bookmarks handlerList scriptSelection char 1 to 0 prevHandler tempScript script 8 + ^ Set nodes Epglobal n on mouseUP put "" into field "node names" put "" into field "networks" put field "number" into n put field "radius" into R cleanGraphics startTurtle "links" tell "links" clearLabels penUp repeat with i = 1 to n forward 2*pi*R/n label i left 360/n end repeat repeat with i = 1 to n put "Node # "&i into line i of field "node names" end repeat end mouseUP on cleanGraphics repeat with i = 1 to the number of graphics delete grc 1 end repeat end cleanGraphics Y / R cREVGeneral scriptChecksum Fon mouseUP
put "" into field "node names"
put "" into field "networks"
put field "number" into n
put field "radius" into R
cleanGraphics
startTurtle "links"
tell "links"
clearLabels
penUp
repeat with i = 1 to n
forward 2*pi*R/n
label i
left 360/n
end repeat
repeat with i = 1 to n
put "Node # "&i into line i of field "node names"
end repeat
end mouseUP
on cleanGraphics
repeat with i = 1 to the number of graphics
delete grc 1
end repeat
end cleanGraphics
8 Pick links Epglobal n on mouseUP put "" into field "links" put "" into field "results" set the style of templategraphic to "line" repeat with i = 1 to n put random(n) into firstNode repeat put random(n) into secondNode if secondNode is not firstNode then exit repeat end repeat put min(FirstNode,secondNode),max(firstNode,SecondNode) & return after field "links" put "link" & i into tLink if there is no grc tLink then create grc tLink put "fieldLabel" & firstNode into tFirst put "fieldLabel" & secondNode into tSecond set the points of grc tLink to the loc of field tFirst &return& the loc of field tsecond end repeat --send "mouseUP" to button "Find networks" end mouseUP / cREVGeneral scriptChecksum ƷX=8j= handlerList mouseUP breakPoints 2scriptSelection char 79 to 78 revUniqueID 1069777085814 bookmarks tempScript prevHandler mouseUPscriptglobal n
on mouseUP
put "" into field "links"
put "" into field "results"
set the style of templategraphic to "line"
repeat with i = 1 to n
put random(n) into firstNode
repeat
put random(n) into secondNode
if secondNode is not firstNode then exit repeat
end repeat
put min(FirstNode,secondNode),max(firstNode,SecondNode) & return after field "links"
put "link" & i into tLink
if there is no grc tLink then create grc tLink
put "fieldLabel" & firstNode into tFirst
put "fieldLabel" & secondNode into tSecond
set the points of grc tLink to the loc of field tFirst &return& the loc of field tsecond
end repeat
--send "mouseUP" to button "Find networks"
end mouseUP
links )` _, cREVGeneral revUniqueID 1069779266702 1,7 6,7 8,9 4,5 3,7 5,7 3,4 7,9 1,2 2,8 ` ` * Radius )` Q 5 C % cREVGeneral revUniqueID 1069847170539 150 Number )p Kon returnInField send "mouseUP" to button "set Nodes" end returnInField P o L . cREVGeneral scriptChecksum CkNNys revUniqueID 1069847177041 bookmarks handlerList returnInField tempScript prevHandler scriptSelection char 56 to 55script ron returnInField
send "mouseUP" to button "set Nodes"
end returnInField
10 ) E 6 cREVGeneral revUniqueID 1069847243582 Radius + z ? . cREVGeneral revUniqueID 1069847295749 Number of nodes ) " 6 cREVGeneral revUniqueID 1069847477647 Links Find networks Epglobal n on mouseUP put "" into field "node names" put "" into field "results" repeat with i = 1 to n put "Node # "&i into line i of field "node names" end repeat put "" into field "networks" put field "links" into theLinks put field "netWorks" into oldLinks repeat put field "networks" into theOldNetworks repeat with i = 1 to n repeat for each line tLine in theLinks if member(i,tLine) then put comma&tLIne after line i of field "networks" end if end repeat put cleanUp (line i of field "networks") into line i of field "networks" --wait until the mouseclick end repeat put field "networks" into theLinks --wait 2 sec --put theLinks into field "thenew" --put theOldNetworks into field "theold" if theLinks = theOldNetworks then exit repeat end repeat set the itemdelimiter to comma repeat with i = 1 to n put the number of items in line i of field "networks" into theLinks if theLinks is not n then put "Not all nodes are linked" into field "results" exit "MouseUP" end if end repeat put "All nodes are linked" into field "results" end mouseUP function member k,tList repeat with m = 1 to the number of items in tList if k= item m of tList then return true end repeat return false end member function cleanUp tList repeat with i = 1 to n if member(i, tList) then put i&comma after results end repeat delete last char of results return results end cleanUp % 4 cREVGeneral scriptChecksum UY/Qu(' breakPoints 30 handlerList mouseUP member cleanUpscriptSelection char 620 to 619 bookmarks revUniqueID 1070211104220 prevHandler cleanUp tempScript script rglobal n
on mouseUP
put "" into field "node names"
put "" into field "results"
repeat with i = 1 to n
put "Node # "&i into line i of field "node names"
end repeat
put "" into field "networks"
put field "links" into theLinks
put field "netWorks" into oldLinks
repeat
put field "networks" into theOldNetworks
repeat with i = 1 to n
repeat for each line tLine in theLinks
if member(i,tLine) then
put comma&tLIne after line i of field "networks"
end if
end repeat
put cleanUp (line i of field "networks") into line i of field "networks"
--wait until the mouseclick
end repeat
put field "networks" into theLinks
--wait 2 sec
--put theLinks into field "thenew"
--put theOldNetworks into field "theold"
if theLinks = theOldNetworks then exit repeat
end repeat
set the itemdelimiter to comma
repeat with i = 1 to n
put the number of items in line i of field "networks" into theLinks
if theLinks is not n then
put "Not all nodes are linked" into field "results"
exit "MouseUP"
end if
end repeat
put "All nodes are linked" into field "results"
end mouseUP
function member k,tList
repeat with m = 1 to the number of items in tList
if k= item m of tList then return true
end repeat
return false
end member
function cleanUp tList
repeat with i = 1 to n
if member(i, tList) then put i&comma after results
end repeat
delete last char of results
return results
end cleanUp
+ networks )` YbF, cREVGeneral revUniqueID 1070211487267 , ` c * ^ Without printing Epglobal n on mouseUP put "" into field "node names" repeat with i = 1 to n put "Node # "&i into line i of field "node names" end repeat put "" into field "networks" put field "links" into theLinks put field "netWorks" into oldLinks repeat put fieldnetworks into theOldNetworks repeat with i = 1 to n repeat for each line tLine in theLinks if member(i,tLine) then put comma&tLIne after line i of fieldNetworks--field "networks" end if end repeat put cleanUp (line i of fieldnetworks) into line i of fieldnetworks--field "networks" end repeat put fieldnetworks into theLinks --wait 2 sec --put theLinks into field "thenew" --put theOldNetworks into field "theold" if theLinks = theOldNetworks then exit repeat end repeat put theLinks into field "networks" repeat with i = 1 to n put the number of items in line i of field "networks" into theLinks if theLinks is not n then put "Not all nodes are linked" into field "results" exit "MouseUP" end if end repeat put "All nodes are linked" into field "results" end mouseUP function member k,tList repeat with m = 1 to the number of items in tList if k= item m of tList then return true end repeat return false end member function cleanUp tList repeat with i = 1 to n if member(i, tList) then put i&comma after results end repeat return results end cleanUp % v cREVGeneral scriptChecksum @,8pQ/5V: handlerList mouseUP member cleanUp breakPoints 4scriptSelection char 1149 to 1148 revUniqueID 1070230994172 bookmarks tempScript prevHandler cleanUpscriptglobal n
on mouseUP
put "" into field "node names"
repeat with i = 1 to n
put "Node # "&i into line i of field "node names"
end repeat
put "" into field "networks"
put field "links" into theLinks
put field "netWorks" into oldLinks
repeat
put fieldnetworks into theOldNetworks
repeat with i = 1 to n
repeat for each line tLine in theLinks
if member(i,tLine) then
put comma&tLIne after line i of fieldNetworks--field "networks"
end if
end repeat
put cleanUp (line i of fieldnetworks) into line i of fieldnetworks--field "networks"
end repeat
put fieldnetworks into theLinks
--wait 2 sec
--put theLinks into field "thenew"
--put theOldNetworks into field "theold"
if theLinks = theOldNetworks then exit repeat
end repeat
put theLinks into field "networks"
repeat with i = 1 to n
put the number of items in line i of field "networks" into theLinks
if theLinks is not n then
put "Not all nodes are linked" into field "results"
exit "MouseUP"
end if
end repeat
put "All nodes are linked" into field "results"
end mouseUP
function member k,tList
repeat with m = 1 to the number of items in tList
if k= item m of tList then return true
end repeat
return false
end member
function cleanUp tList
repeat with i = 1 to n
if member(i, tList) then put i&comma after results
end repeat
return results
end cleanUp
Node names - b V. cREVGeneral revUniqueID 1070307584263 Node # 1 Node # 2 Node # 3 Node # 4 Node # 5 Node # 6 Node # 7 Node # 8 Node # 9 Node # 10 results ) F cREVGeneral revUniqueID 1072291517495 Not all nodes are linked Field 1 )` %f cREVGeneral revUniqueID 1073848490218 |Paul Erdos (mathematician): Theorem: There is a good chance that a network of N nodes will be fully linked by just N links. ;This is an attempt to experimentally test this hypothesis. 71. Choose a Radius and number of nodes (above fields.) 2. Set nodes 3. Pick links 04. Find networks (Without printing is faster.) "Go back to pick links--repeatedly links K p 23$ px 0py 0 pPenDown falsepPoints `474,341 568,341 644,286 674,196 644,106 568,51 474,51 398,106 369,196 398,286 474,341 pAngle 360 U 8U Ā j 8 3 3 j q Ā U cREVGeneral revUniqueID 1233644227203 fieldLabel1 + ,G cREVGeneral revUniqueID 1233644227242 1 fieldLabel2 + x cREVGeneral revUniqueID 1233644227262 2 fieldLabel3 + cREVGeneral revUniqueID 1233644227287 3 fieldLabel4 + x \ cREVGeneral revUniqueID 1233644227320 4 fieldLabel5 + , % cREVGeneral revUniqueID 1233644227353 5 fieldLabel6 + % cREVGeneral revUniqueID 1233644227386 6 fieldLabel7 + \ cREVGeneral revUniqueID 1233644227423 7 fieldLabel8 + e cREVGeneral revUniqueID 1233644227456 8 fieldLabel9 + cREVGeneral revUniqueID 1233644227489 9 fieldLabel10 + G cREVGeneral revUniqueID 1233644227528 10