From eea275e20b5c2a76fc76b8b7642d2a5e7df0a1e4 Mon Sep 17 00:00:00 2001 From: Seth Tisue Date: Sat, 10 Sep 2011 11:14:41 -0400 Subject: [PATCH] remove source code for omitted primitives --- README.md | 27 ++- more/Layouts.java | 301 --------------------------- more/_createnetworkpreferential.java | 103 --------- more/_layoutmagspring.java | 38 ---- more/_layoutquick.java | 23 -- more/_layoutsphere.java | 36 ---- more/magspring-bidirectional.gif | Bin 7453 -> 0 bytes more/magspring-layout.gif | Bin 7409 -> 0 bytes more/magspring-tests.txt | 8 - more/magspring.html | 128 ------------ 10 files changed, 16 insertions(+), 648 deletions(-) delete mode 100644 more/Layouts.java delete mode 100644 more/_createnetworkpreferential.java delete mode 100644 more/_layoutmagspring.java delete mode 100644 more/_layoutquick.java delete mode 100644 more/_layoutsphere.java delete mode 100644 more/magspring-bidirectional.gif delete mode 100644 more/magspring-layout.gif delete mode 100644 more/magspring-tests.txt delete mode 100644 more/magspring.html diff --git a/README.md b/README.md index 75d8831..cd9dbe3 100644 --- a/README.md +++ b/README.md @@ -92,24 +92,29 @@ lengths are computed based solely on the number of hops, and there currently isn't any way to specify a "weight/distance" variable for the links. -## Description of primitives in src-more directory +## Transition guide -These primitives are written in the style used by built-in NetLogo primitives. To be brought back to life, they'd need to be changed to use the extensions API instead. +### Renamed primitives -###__create-network-preferential +The primitives in this extension were present in NetLogo 4.1, but with different names. +They were renamed as follows: -syntax: __create-network-preferential TURTLESET LINK-BREED AVG-DEGREE +* `__network-distance` to `network:link-distance` +* `__in-network-radius` to `network:extended-link-neighbors` +* `__average-path-length` to `network:mean-path-length` +* `__network-shortest-path-turtles` to `network:path-turtles` +* `__network-shortest-path-links` to `network:path-links` -example: __create-network-preferential bankers friendships 3 - (note that you should create the banker turtles ahead of time - this -primitive just creates a BA preferential attachment model network -between the turtles you specify. +### Omitted primitives -### __layout-magspring +The following primitives, present in NetLogo 4.1 but not NetLogo 5.0, are not included in this extension either: -### __layout-quick +* `__create-network-preferential`, +* `__layout-magspring` +* `__layout-quick` +* `__layout-sphere`. -### __layout-sphere +For the source code for these primitives, see . But note they are written in the style used by built-in NetLogo primitives. To be brought back to life, they'd need to be changed to use the extensions API instead. ## Credits diff --git a/more/Layouts.java b/more/Layouts.java deleted file mode 100644 index 2943edd..0000000 --- a/more/Layouts.java +++ /dev/null @@ -1,301 +0,0 @@ - // layout-sphere - // experimental - - // An experimental "__layout-sphere" for 3D. Not polished yet. - // Also not sure if it's a worthwhile primitive or not, - // especially given how slow it runs for large numbers of turtles. - // ~Forrest (12/5/2006) - public static void sphere(AgentSet nodeset, double radius, double initialTemp, - org.nlogo.util.MersenneTwisterFast random) { - World3D world = (World3D) nodeset.world(); - int nodeCount = nodeset.count(); - if (nodeCount == 0) { - return; - } - double[] nx = new double[nodeCount]; - double[] ny = new double[nodeCount]; - double[] nz = new double[nodeCount]; - - Turtle3D[] agt = new Turtle3D[nodeCount]; - int i = 0; - for (AgentSet.Iterator it = nodeset.iterator(); it.hasNext(); i++) { - Turtle3D t = (Turtle3D) it.next(); - agt[i] = t; - nx[i] = t.xcor(); - ny[i] = t.ycor(); - nz[i] = t.zcor(); - if (nx[i] == 0.0 && ny[i] == 0.0 && nz[i] == 0.0) { - nz[i] = random.nextDouble() * 2.0 - 1.0; - double remainder = StrictMath.sqrt(1.0 * 1.0 - nz[i] * nz[i]); - double angle = random.nextDouble() * StrictMath.PI * 2; - nx[i] = remainder * StrictMath.sin(angle); - ny[i] = remainder * StrictMath.cos(angle); - } - } - - double temperature = initialTemp / nodeCount; - for (int k = 0; k < 30; k++) { - for (i = 0; i < nodeCount; i++) { - for (int j = i + 1; j < nodeCount; j++) { - double dx = nx[j] - nx[i]; - double dy = ny[j] - ny[i]; - double dz = nz[j] - nz[i]; - - double distSq = dx * dx + dy * dy + dz * dz; - if (distSq < 1.0E-20) { - dx = temperature * (random.nextDouble() - 0.5); - dy = temperature * (random.nextDouble() - 0.5); - dz = temperature * (random.nextDouble() - 0.5); - } else { - // repulse according to an inverse cubic function - double f = temperature / (distSq * distSq); - dx = -(f * dx); - dy = -(f * dy); - dz = -(f * dz); - } - - nx[i] += dx; - ny[i] += dy; - nz[i] += dz; - double magnitude = StrictMath.sqrt(nx[i] * nx[i] + ny[i] * ny[i] + nz[i] * nz[i]); - nx[i] = nx[i] / magnitude; - ny[i] = ny[i] / magnitude; - nz[i] = nz[i] / magnitude; - - nx[j] -= dx; - ny[j] -= dy; - nz[j] -= dz; - magnitude = StrictMath.sqrt(nx[j] * nx[j] + ny[j] * ny[j] + nz[j] * nz[j]); - nx[j] = nx[j] / magnitude; - ny[j] = ny[j] / magnitude; - nz[j] = nz[j] / magnitude; - } - } - temperature *= 0.75; - } - - for (i = 0; i < nodeCount; i++) { - double newx = nx[i] * radius; - double newy = ny[i] * radius; - double newz = nz[i] * radius; - - if (newx > world.maxPxcor()) { - newx = world.maxPxcor(); - } else if (newx < world.minPxcor()) { - newx = world.minPxcor(); - } - - if (newy > world.maxPycor()) { - newy = world.maxPycor(); - } else if (newy < world.minPycor()) { - newy = world.minPycor(); - } - if (newz > world.maxPzcor()) { - newz = world.maxPzcor(); - } else if (newz < world.minPzcor()) { - newz = world.minPzcor(); - } - - agt[i].xyandzcor(newx, newy, newz); - } - } - - - /// magspring - - private static final double MAGSPRING_SMALL_THRESHOLD = 0.0000001; - - private static final int FIELD_NONE = 0; - private static final int FIELD_NORTH = 1; - private static final int FIELD_NORTHEAST = 2; - private static final int FIELD_EAST = 3; - private static final int FIELD_SOUTHEAST = 4; - private static final int FIELD_SOUTH = 5; - private static final int FIELD_SOUTHWEST = 6; - private static final int FIELD_WEST = 7; - private static final int FIELD_NORTHWEST = 8; - private static final int FIELD_POLAR = 9; - private static final int FIELD_CONCENTRIC = 10; - - public static void magspring(AgentSet nodeset, AgentSet linkset, - double spr, double len, double rep, - double magStr, int fieldType, - boolean bidirectional, - org.nlogo.util.MersenneTwisterFast random) { - World world = nodeset.world(); - - int nodeCount = nodeset.count(); - - Turtle[] agt = new Turtle[nodeCount]; - double[] ax = new double[nodeCount]; - double[] ay = new double[nodeCount]; - int ctr = 0; - - for (AgentSet.Iterator iter = nodeset.shufflerator(random); iter.hasNext(); ctr++) { - agt[ctr] = (Turtle) iter.next(); - } - - for (int i = 0; i < nodeCount; i++) { - Turtle t = agt[i]; - - double fx = 0, fy = 0; - for (AgentSet.Iterator it = world.links().shufflerator(random); it.hasNext();) { - Link link = (Link) it.next(); - if ((link.end1() == t || link.end2() == t) && - (linkset.contains(link))) { - Turtle other = link.end1(); - if (t == link.end1()) { - other = link.end2(); - } - double dist = world.protractor().distance(t, other, false); - double dx = other.xcor() - t.xcor(); - double dy = other.ycor() - t.ycor(); - if (StrictMath.abs(dist) < MAGSPRING_SMALL_THRESHOLD) { - if (t == link.end1()) { - fx += (spr * len); - } else { - fx -= (spr * len); - } - } else { - // calculate attractive force - double f = spr * (dist - len); - fx = fx + (f * dx / dist); - fy = fy + (f * dy / dist); - - // calculate magnetic force - java.awt.geom.Point2D.Double mf = magForce(t.xcor(), t.ycor(), fieldType); - - // we want to know the angle between the link and the magnetic field - // calculate dotProduct first - double dot = mf.x * dx + mf.y * dy; - // then calculate the cosine of - double cosAngle = StrictMath.abs(dot) / dist; - - // keep track of whether the dotProduct was negative - // so we can push or pull, accordingly - double negFlag = (dot < 0) ? 1 : -1; - - if (!bidirectional) { - negFlag = 1; - } - - // cosAngle can be > 1 because of weird float rounding. - // if cosAngle >= 1, then angle = 0, and no magnetism occurs. - if (cosAngle < 1) { - double angle = StrictMath.abs(StrictMath.acos(cosAngle)); - // 1.5 is an arbitrary choice, chosen because it seemed to work well - // some other power > 1 could be used as well. - fx = fx + negFlag * magStr * mf.x * StrictMath.pow(angle, 1.5); - fy = fy + negFlag * magStr * mf.y * StrictMath.pow(angle, 1.5); - } - } - } - } - for (AgentSet.Iterator it = nodeset.shufflerator(random); it.hasNext();) { - Turtle other = (Turtle) it.next(); - if (other != t) { - double dx = other.xcor() - t.xcor(); - double dy = other.ycor() - t.ycor(); - - if (dx == 0 && dy == 0) { - double ang = 360 * random.nextDouble(); - fx = fx - (rep * StrictMath.sin(StrictMath.toRadians(ang))); - fy = fy - (rep * StrictMath.cos(StrictMath.toRadians(ang))); - } else { - double dist = StrictMath.sqrt((dx * dx) + (dy * dy)); - //if ( dist <= 2 * len ) - //{ - double f = rep / (dist * dist); - fx = fx - (f * dx / dist); - fy = fy - (f * dy / dist); - //} - - } - } - } - double limit = 1; - if (fx > limit) { - fx = limit; - } else { - if (fx < -limit) { - fx = -limit; - } - } - if (fy > limit) { - fy = limit; - } else { - if (fy < -limit) { - fy = -limit; - } - } - fx += t.xcor(); - fy += t.ycor(); - if (fx > world.maxPxcor()) { - fx = world.maxPxcor(); - } else { - if (fx < world.minPxcor()) { - fx = world.minPxcor(); - } - } - if (fy > world.maxPycor()) { - fy = world.maxPycor(); - } else { - if (fy < world.minPycor()) { - fy = world.minPycor(); - } - } - ax[i] = fx; - ay[i] = fy; - } - - // we need to bump some node a small amount, in case all nodes - // are stuck on a single line - if (nodeCount > 1) { - double perturbAmt = (world.worldWidth() + world.worldHeight()) / (1.0E10); - ax[0] += random.nextDouble() * perturbAmt - perturbAmt / 2.0; - ay[0] += random.nextDouble() * perturbAmt - perturbAmt / 2.0; - } - - reposition(agt, ax, ay); - } - - private static final double COS45 = StrictMath.sqrt(2.0) / 2.0; - - private static java.awt.geom.Point2D.Double magForce(double x, double y, int fieldType) { - double dist; - switch (fieldType) { - case FIELD_NORTH: - return new java.awt.geom.Point2D.Double(0, 1); - case FIELD_NORTHEAST: - return new java.awt.geom.Point2D.Double(COS45, COS45); - case FIELD_EAST: - return new java.awt.geom.Point2D.Double(1, 0); - case FIELD_SOUTHEAST: - return new java.awt.geom.Point2D.Double(COS45, -COS45); - case FIELD_SOUTH: - return new java.awt.geom.Point2D.Double(0, -1); - case FIELD_SOUTHWEST: - return new java.awt.geom.Point2D.Double(-COS45, -COS45); - case FIELD_WEST: - return new java.awt.geom.Point2D.Double(-1, 0); - case FIELD_NORTHWEST: - return new java.awt.geom.Point2D.Double(-COS45, COS45); - case FIELD_POLAR: - dist = StrictMath.sqrt((x * x) + (y * y)); - if (StrictMath.abs(dist) < MAGSPRING_SMALL_THRESHOLD) { - return new java.awt.geom.Point2D.Double(0, 0); - } - return new java.awt.geom.Point2D.Double(x / dist, y / dist); - case FIELD_CONCENTRIC: - dist = StrictMath.sqrt((x * x) + (y * y)); - if (StrictMath.abs(dist) < MAGSPRING_SMALL_THRESHOLD) { - return new java.awt.geom.Point2D.Double(0, 0); - } - return new java.awt.geom.Point2D.Double(y / dist, -x / dist); - case FIELD_NONE: - return new java.awt.geom.Point2D.Double(0, 0); - default: - throw new IllegalStateException(); - } - } - diff --git a/more/_createnetworkpreferential.java b/more/_createnetworkpreferential.java deleted file mode 100644 index 1bd7187..0000000 --- a/more/_createnetworkpreferential.java +++ /dev/null @@ -1,103 +0,0 @@ -package org.nlogo.prim.etc; - -import org.nlogo.agent.Agent; -import org.nlogo.agent.AgentSet; -import org.nlogo.agent.Link; -import org.nlogo.agent.Turtle; -import org.nlogo.api.LogoException; -import org.nlogo.nvm.Command; -import org.nlogo.nvm.EngineException; -import org.nlogo.nvm.Syntax; - -/** - * This primitive creates links between an agentset of turtles, - * by using Barabasi's preferential attachment model. - *

- * ~Forrest (3/9/2007) - */ - -public final strictfp class _createnetworkpreferential extends Command { - @Override - public Syntax syntax() { - return Syntax.commandSyntax - (new int[] - {Syntax.TYPE_TURTLESET, Syntax.TYPE_LINKSET, - Syntax.TYPE_NUMBER}, - "O---", true); - } - - @Override - public void perform(final org.nlogo.nvm.Context context) - throws LogoException { - AgentSet nodeSet = argEvalAgentSet(context, 0, Turtle.class); - AgentSet linkBreed = argEvalAgentSet(context, 1, Link.class); - int mEdges = argEvalIntValue(context, 2); - - if (linkBreed.isDirected()) { - throw new EngineException(context, "This command only supports undirected link breeds."); - } - if (mEdges < 1) { - throw new EngineException(context, "The number of neighbors to link to in each step must be at least 1."); - } - - int numNodes = nodeSet.count(); - - if (numNodes < mEdges + 1) { - throw new EngineException(context, "This agentset has only " + numNodes + " members, so it is impossible to attach any turtle to " + mEdges + " neighbors!"); - } - - Turtle[] nodes = new Turtle[numNodes]; - int[] degreeCounts = new int[numNodes]; - boolean[] usedAlready = new boolean[numNodes]; - - int i = 0; - for (AgentSet.Iterator iter = nodeSet.iterator(); iter.hasNext();) { - Agent agt = iter.next(); - if (!(agt instanceof Turtle)) { - throw new EngineException - (context, "You can only create links between turtles!"); - } - nodes[i] = (Turtle) agt; - i++; - } - - int totalDegCount = 0; - for (i = 0; i < mEdges; i++) { - if (world.linkManager.findLink(nodes[i], nodes[mEdges], linkBreed, false) == null) { - world.linkManager.createLink(nodes[i], nodes[mEdges], linkBreed); - } - degreeCounts[i]++; - degreeCounts[mEdges]++; - totalDegCount += 2; - } - - for (i = mEdges + 1; i < nodes.length; i++) { - int tempTotal = totalDegCount; - for (int k = 0; k < i; k++) { - usedAlready[k] = false; - } - for (int j = 0; j < mEdges; j++) { - int randVal = context.job.random.nextInt(tempTotal); - for (int k = 0; k < i; k++) { - if (usedAlready[k]) { - continue; - } - randVal -= degreeCounts[k]; - if (randVal > 0) { - continue; - } - if (world.linkManager.findLink(nodes[i], nodes[k], linkBreed, false) == null) { - world.linkManager.createLink(nodes[i], nodes[k], linkBreed); - } - tempTotal -= degreeCounts[k]; - degreeCounts[k]++; - degreeCounts[i]++; - totalDegCount += 2; - usedAlready[k] = true; - break; - } - } - } - context.ip = next; - } -} diff --git a/more/_layoutmagspring.java b/more/_layoutmagspring.java deleted file mode 100644 index 3834547..0000000 --- a/more/_layoutmagspring.java +++ /dev/null @@ -1,38 +0,0 @@ -package org.nlogo.prim.etc; - -import org.nlogo.agent.AgentSet; -import org.nlogo.agent.Link; -import org.nlogo.agent.Turtle; -import org.nlogo.api.LogoException; -import org.nlogo.nvm.Command; -import org.nlogo.nvm.Context; -import org.nlogo.nvm.Syntax; - -public final strictfp class _layoutmagspring - extends Command { - @Override - public Syntax syntax() { - int[] right = {Syntax.TYPE_TURTLESET, Syntax.TYPE_LINKSET, - Syntax.TYPE_NUMBER, Syntax.TYPE_NUMBER, Syntax.TYPE_NUMBER, - Syntax.TYPE_NUMBER, Syntax.TYPE_NUMBER, Syntax.TYPE_BOOLEAN}; - return Syntax.commandSyntax(right, true); - } - - @Override - public void perform(final Context context) - throws LogoException { - AgentSet nodeset = argEvalAgentSet(context, 0, Turtle.class); - AgentSet linkset = argEvalAgentSet(context, 1, Link.class); - double spr = argEvalDoubleValue(context, 2); - double len = argEvalDoubleValue(context, 3); - double rep = argEvalDoubleValue(context, 4); - double magStr = argEvalDoubleValue(context, 5); - int fieldType = argEvalIntValue(context, 6); - boolean bidirectional = argEvalBooleanValue(context, 7); - - org.nlogo.agent.Layouts.magspring - (nodeset, linkset, spr, len, rep, magStr, fieldType, bidirectional, - context.job.random); - context.ip = next; - } -} diff --git a/more/_layoutquick.java b/more/_layoutquick.java deleted file mode 100644 index 7591786..0000000 --- a/more/_layoutquick.java +++ /dev/null @@ -1,23 +0,0 @@ -package org.nlogo.prim.etc; - -import org.nlogo.agent.Layouts; -import org.nlogo.nvm.Command; -import org.nlogo.nvm.Context; -import org.nlogo.nvm.Syntax; - -public final strictfp class _layoutquick - extends Command { - @Override - public Syntax syntax() { - return Syntax.commandSyntax(true); - } - - @Override - public void perform(final Context context) { - Layouts.spring - (world.turtles(), world.links(), - 0.2, world.worldWidth() / 5, 0.2, - context.job.random); - context.ip = next; - } -} diff --git a/more/_layoutsphere.java b/more/_layoutsphere.java deleted file mode 100644 index da6fc21..0000000 --- a/more/_layoutsphere.java +++ /dev/null @@ -1,36 +0,0 @@ -package org.nlogo.prim.threed; - -import org.nlogo.agent.AgentSet; -import org.nlogo.agent.Turtle; -import org.nlogo.api.LogoException; -import org.nlogo.nvm.Command; -import org.nlogo.nvm.Context; -import org.nlogo.nvm.EngineException; -import org.nlogo.nvm.Syntax; - -public final strictfp class _layoutsphere - extends Command { - @Override - public Syntax syntax() { - return Syntax.commandSyntax - (new int[]{Syntax.TYPE_TURTLESET, - Syntax.TYPE_NUMBER, - Syntax.TYPE_NUMBER}, - true); - } - - @Override - public void perform(final Context context) throws LogoException { - AgentSet set = argEvalAgentSet(context, 0); - double radius = argEvalDoubleValue(context, 1); - double initTemp = argEvalDoubleValue(context, 2); - - if (set.type() != Turtle.class) { - throw new EngineException - (context, this, - "Patches are immovable."); - } - org.nlogo.agent.Layouts.sphere(set, radius, initTemp, context.job.random); - context.ip = next; - } -} diff --git a/more/magspring-bidirectional.gif b/more/magspring-bidirectional.gif deleted file mode 100644 index d66c668399bd4d28d6be44b7cd358a36dd94ba17..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 7453 zcmWld_ghm3!-mhvI5`=>IazE-AVAm&8(ax9vJ686aU?PX1PzD^h?;~w#Gp99m4G5D zYQRyo+9oWKq9ur0iKKz$XA03-C$` z7Y=*7goK1_U{XCiJp3s{S65dqmmA4-V=|d>sJWAq6N|;#WKC~qXvkZcdey_p*Vp%; zlO2b{x#8(-Wo0E2i7Mk`$9!G8T^(z4-G+1WWbIM~?OeCO|V zIehWGFuyZ?o~blsBG8*or+brN5Cm%+tPupspraLbmV4Q@$2krXEKAV^HL5L!_FO(2~H!|)mgI>qNs@VUy} zySLjiTiLcYcpMgs<-pKIE;|}AQ#e@dbh1Cz%=}$AiFzWlQcZ3w{vb`Pk2$MS!?Of(mTcIt zK`NDQ+O%ocu3d{3Evl%fSg~S-zrTM_P|(ViD+L09L?VfbimIupiHnO9i^c2LuMZ9m zUbbx6mMvRWuU?&*nYnoJ;@a9;KA#^Q9qsMy&ExUH!^4x3l2)x+6%Y^*8yg!L8ChIh zym|BHgoK2goScmtH>Rbf35CL?OP3}mCqLqI0|Ns~OH0GT!uT5B_<}`^5kr^qNS&&*VWZEINBWL*bjQU z-12ljl9zikQFJ^us&{Qh`r<{=VWB(A%C?6u+Zz?WY|)~9$%!?Rb?uqy1^M~yNeLl{ zS!q~sS!(k2)WmLY*P&%05B)v1+gToPvb&I+Aoue=?7=D9w#}7DI4s|jpObUNlQZG( zaXHNYfuFl3bJeN!nWt97U09X!$j|+9v_P96x)~cug9%E7!pqvKskG$Kru^%XOPh)c zt-)u@oiKm8m%S=G6pT7bW(~;K0@2jyRjFvisbA z{Oy%@(e+TP?E5a$qbW}}6iq<(KiutVN__xIUyV#&-Z4AK(ine#I=FG+*1_e**P}BJ zQl8`UrQPH2Uq@75X_CG({PCyfm4NfcqpQb%abpQ7z|2J9RkI!mp(!OqGq7Gl`pc5c;}Gxhl6&az^Om0@Scy(2GxI&taA zmPrN>7j+H~&u(GAOGA}0n3zaw=G>#K1K)dZOe#K^lyAGuvb^W?rsvYsnZu`Fu!Ygi z*FlH&187NOv|qowwNqzdb=R@RxjRXYGFiRbI{fz3*^}k`cj$rY?*cV3x1?&&m!@ic zmtkA+aUfM7_s`F`*!-jw$mI9Ar|-0zXidx97I<#eF{{Z|OF`kn%KISk;`=FlV_E88 z>aQm3sPzu|%$W;|%m8+b*OW?O1$ePkW;G%G^>(V%nBGMEEQU({`PWp9E}oV~yW=aHHpi`K{3zN(zQG!GXqumc(NEuHyNH60q16$>Y(Jun zW}4b=xrE+4Y4b?g7FUk+=>YbaETY9~kRqKEEtvua0>i7P#vJK-ou?)Fq}?GxiZ_^y zG))z%XhG8x3Ot)96M*f7()(#HUj22f(4{ru6z|H388nk^h>Y;U2_p%l>It2JO7{~u zb_~spxSo!m9PucL>?he5spsTA7V6d!*2VD!aMWSXI7aA^DXk*d6)l!Q4h;bVqb}Xz zKSZ8KSUNe(Td(vc zSDr`d3m-F&bZW3zk`3BeMH3fPeMsI5BV}qVU35iyvwW0ou`5JQ{rOLYnOzk0mAo9B zm9(0xrH!yu4~m68(Z}LgS#pqOr;2J)fy5L(=uTnRC#X8jz6XXmbT&wiToGo>%Mzu_ zA-nWhdPTayMUVs~PDyP->4VUVmhI~gPD<~LbLp2U*&J!Ele%im8tWsmN4BbRfviZn zae>fSrod+2jS2LhQ6{&6RIIlMiJTxte+A7g0^Wg)iMCu}ix^~mkb8%_V`G<10xlUGT&~so z@Crdq7Yl@{xe*Sh@bv`>4z5C5^{vm05-Y|qDnt=3Z* zT!oiYG!?XR$2uwN=(@3tF*qC+eojdNfi^ik@dPE#{+1*OD0;-5t)B z(fv`!c<_g^D;Ar@xJ}bFb zIYdv-2^lI5-p@QG1A4;xu-lfGfYI3;xJdM2*A8iI;)hyHwYbU#7J>syhu{-}LEC_v ztK;b0H#(*ASo`&@~Wi;N(9VqVtBJoU-B=nW{eh-D8%p z2kSN_uL}`{Ix*$Ltnk46F8j60`iVN_ z*1Z0*8(7^K8m6L1Yjm5%Wt0@hyNg!dT3)EOG$SNE$#H|$2`DSv3;KW;ZC~Ww)~3HWoP=Q z=yV=o)$wdxE3z$^7|d`Fi3A%K(yR6?7_jsy3Ak>aWSe%88u47?%;XMM#0+4B*V*QD zOVKYXYAsF>i7U}YV9FG9ZYss|wCQ?mvs&9S#74E-arRsU_4Sfwutaj|hR-VOM3!fO zDb}H&oVqN%(>YN)*q-Y5pNhB@7k$!)*_;2d@YNN2*qX*%aRzGK$IH%6qW7^%6XY-Y zhh5yW0{N;Ye7msKbI?R$_ukvj%ARtrmIcRoA%CQ0o}pZo>TMzE7bQ>X88$d(ix~GW zTD;C#D8_cLoc!~o6BU-Q9FqurNGVGSY50Yf_<%L;>nUlYqLn)X}%=_>a+qK!&e?MiE0#3`E`oB#}qFC?g%!5e^Cn zJJdvib~j%EJbz1NNWy+NgDw%2#4Plg+lXnRZN&=+E>FNSSCAC~tC4JCr-`%?f%nLW zcx^*KF#vy}251?JrqBd!TEa%!zYRE026qGK5jm6@h}g@CmH;_d4DFmIQh{hP0*Vmu zekYZp68Y+}sGROD#yR#KPT}K&jhIrEr;{ubK`})@9i+hG)o_CvdJqoRNI1bkA72&nC$b}B0hwXp{DMPqIGMD!UX|g zOC9g$c?+xce!(5w?s8U55^+ejYq<|>+( zjF6-4AWMmxc|~R@K2sXut^qEJX+?U+>8V!%0O}~&C5iV2|CSMca#e{Jfz%!B!c0Sg_n-dd>1__ z@51PhX-vm_^l*hBlg=+c=tlR^LV+mmZw?YN0sV9aEnam9GY9AB;155cBo(wzrJ-vo zO2sFA4cKJ@N}x4u;HO>rz(FfLppdV|SEzYmF)kp(2Tg0B9w zdN~PKOln2WkdsKm`3Sp$99coFm2V?VLu+DCiW=vpj(9OjT`cQ}0dX_)RLeBv8}(W{ zDYoT{|5B3N+gRRZ0CIHQ2p_-N9pWQ2t|Tl*K-(l(E0hpY-k~)-HBke|Wv9LM#OORQ zUkuav2SUqQeH4M2268}BH6B#2zlL7Yb;8E(<_V3x9i@w|h$Btn6_(@cX|bQ6hW5eonf7bW}FVr3F%3pPGegY`2mi$PWX!tS17xNi<^ z6r3g&10L2jKiMJ7nG3SFPAw8x%wai)N}TYeE|#A!{0&M;b{ zgiJsh0}Th^*0Q1y^fa&9LJH@Ypsxk!Hu+(k9&^A%YB)+WuO<}O(jGS=y#n%%o!17R zviEDDgFkRTx5>8(`U3fD59y);+2rUlWWSE+m;`T~sG*B5JF`iaa>PLI>l}Q!jn;_pieu|V}k1pBkn%=HdkxLN4m6QCmjz#4t3fv zl$-md++RVu@(m)2`W|8T{^fy^5VMc!gMDvTyqz{np3we%2Abj>@Yl93(g6NnERKom z2Y~_2iX;TgQ@kv3?kqZE!vKJ{) z-z_Nt63&T18(N$AIMPQPZ$^Qz`)-{+um(>5hnmMky~JeharCfcst|LnvJ6_6KrNmA zkyzZlCT9HSTYAC%Z-_$J2d3>sPMhh0A)fhJ9=2;MihVKl#VCM{m^_`tyBJ_vp^$2e z2)txzBrlG4l}RcJSx-DP5B9%6G&JFNcIZIZgVh*VFmIvqx@!fJw-Qi!DC4RJnyE4m zL$C+WIsbGX*{!s;7tn`;9l$OyTsfnqdP_B^b9XZlU&Jo|V%l7vzLX zFA#Grqw_iEL?2Qqe&z!bLM|YX8fy(e!6pl;7TSSaClo(TNtz5BAX%(I@BoP~gs+Ry zC~qXuM4TPE^E8BEw#(`7QRJfB;3oWuf#O#FV-dn47V)l`8}Fw``xE-xDM>JLboW8= zQw#PZJR7qWA^o-s370KTk95hIPgWqWUG&%y875ix%5w1l&OpqcCKvyP&o)i_Z@@K8 zAiH?FYhje%ubxGXkB3?%9js?=B|MVC*mI5Q=g&Cfh5AT_Ap_XJgN2LT4`2P)$5*aN zW0{&+GWwJx1kbAprF-3;jUzvz2t?9@2MP*t;Nsdeq;$DSxCGL%fRHQ;g=9 z<*)Gk=eu9Rn+3!t7aR+<7yeN~&3nk}UwzlXdz_cIN=<=YM1;KA>2Bj8JZ{WR3cd;cW~ z-VdN!ZJoCQKEXvO0HFV514#V;-7*V1pc&k#_fLy8-TAM zFTMA3&^gK~0XFp_wN7$p>v>|H0G5qlLKD%yc9CC`okCO)A_P|7i1U;ae((+#)&5}+{KNvOQ@js+( zd4&iXuob{t7Zfw-g_e4816uDt?~g+lvr^a zq4MCinCG+w{e0~7K2cJ}Q}!<@t=s?ik`**fy1tuwf%lMV#GR2rGBfI0N!ZP=w!D4q zD4)=cK|-b|^Q$JNh1EocPwKl<&6rx$>}g)gF9&E1){IBU1H)_bUUpOqCnI@-@4gK^ zZIx|3lDeSw`1^~?q_lfVyywlQH}{Et{Kx%FjQwJ9F79TvV<7ZdC?%U*-s;JsF38($D z!fRn7 zoHVDaQd^No%&MURgq+)-O|MBeWl?PzivWu*S7D@v?eu|ru(NuK+7s*}xJ3DtS`u!a znp)Kr*x@D08md}4App#lJ}F7;h}2fOCdH?6>qBo1#j6%I+YBRN68O2}7Y5OaS}z{4nWLQ%Wee*fhE?ks{p#jE=CdxO>;BZXjJ?_X8rKy***##eO?oe|M&XBBp8M_Eck;r7 z_wuv`56?e*m{ao&Vy(+>vV(Lh$ zw==VR%gtT8d4lWmZBYQyk$xn>Su|Z%b|GRZSOAuUJ(bin9^Td|?3iJ3PLbbC^WDi$ zwW+7vLPYscW6DS>H7&11zjw9uSj4{0efzr}w1?Pu#GPDmp^AR&>$?RGhnf5Nb*`GD zD|5A~rDiF5lC}*mM>%#q)F7Az*5K-@kl>Yz^Im}0@OeZ%$n0R4@xu&6^ z4c6H{jF;$_xB5kql!w5+4W`%onLsoN%Zv%Ek81vRa|Prc8im5(k;c95OLo|6maW#i zx7x*&NcWyUKoXi=T)*!oayTzc(z2hfdW$o!%mV|}>#|<%_|Z0K7iZh@_rjBHrMz=T z=|j^sh3_mKYkp}D;8$`mL%$z$ZA(^$Ri1Qg$GbUQvuUW^_Hod?N)sUezR=doDc|Wv z)I?+nu1{0wx&(O!{cly!5?!q;J$F~U`x1A>{UBa1J%PL;lAyQJKvO8CgL=86c zbc}>kPRVcN-R)2Gt5?o$_`F$pV5vj`FMhYdI;v9{FkMZtO}`T+M;!b|_)h1aY*>Cv zt7u~>>Plv_gg$*u?UjPUxOZ9Xv;DR06Ghx)-YIrgpU-|15akZ8cmDj2xa8n0oJJkQ zd1Z_uLrPajE+l(=z8g{@CAx|*j1hTkdM&Ql0R^nH%HwJl3k%J4IldNtxIS?3@Zi+X d;Zvh diff --git a/more/magspring-layout.gif b/more/magspring-layout.gif deleted file mode 100644 index 05898a83cb4a0b8e06fee490b3a36912b635d952..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 7409 zcmWld`Cn4`!^JO`tM_t2`2eC;E*HcNtNT+f-BxU2M3338`gVxc$AfuEnK*;&ztAs z;xcE>oa!|hPEJny=K0Q|;hN3am;3|`S(!&7LtR~6XUv#kV`J0Eb+|FZErrdX(P(;C zrzumWgwGE=?!jR)nb&>!E|?{WMB?#y_k28(Y`}CJv$M0awY3EREDP|nwzkfjW_y;; zH3{66PWF|Rl}n^y%{-?-E9w*rq||xJ6(3I~LcZ(cvCYBG($ccSoe{`<2c^AB1yxUHZa|_$;EMbeEf|Cb8iVemassUy-kUW zlh2IlQi*)=c*YJ|4q!r?0kSo#(so>})#&XWyU2-#C?heTLijLjO=; zbw(6esZ=H=gys( znVE%!g#`r#3WZ|(_U$`%?AW|{^Tv%Eb8~YeA|gslOTE0jQd3jaYIR9TNql^~x3_mp zOiWl<*w(FE6A}`{VzFE<4+#lbvSdkmdU{}B;JkVB)~s1GfBt-_RGN{IQB+hE9UYyR zn7C!jmes3QuV24@+qP{Yk!a=0mC4D;K|w)_7cUkHg_|~Qnm&DcUS3{6KtN7T&fK|k z`Fwt4WaNq!D`Ya+vSrKC($ccBvX(Djo}HZ?8X6iE6}5Ef((v%`{QUe?t5!)Ql6C9W zZP>6OB_$;|IC#;bMVa=jYcpIgdAZco)bJ_Tex75TU`DB0-JTHR4(KII;nQ5te zla}}kX4cN0saz1KnLSgVo_b8c59Bys4OuwD-F?HNsAcvxQlFU*eEA6;ZrSOpwq~x` zylImvC;L!rv}S8wP(Xk?1wELW(v-c4ilP^1xaV)#a>)lebw+R{@}cs*MjEW_4VwLMFa)}q&rQ6Ac*rB`IZpm{r~a*oq#Yi zWTrSs4Z6N!jKyC*WYAwN2QCo@q}?rp)%LTpo(^@lUauvBs~o~lwcV)qhY#;L=mrKc_94sk=y(IHoutvb6U+Vj$Iz^c=2@gf!3VF9^&R1&nPybar$@U%(46R3)`HI zXP@m{TC2E{+5GlwS5kFa+jo?LbH|^QaUORM=}0zp=kxz|l5jJ@q22=Wv(nVCyDR%D zez};n=S9Iy8p@7x<{{?xx4oj84T-H#O`4}KYc za&@Jdmm5LkznO61lg5qP-@TihR%Sc8pjPwg)09Q<9NC9|zd}>n`e$n2h5fvfz3TJrdt84nI=izt5MKk;D ze=Yb^kLh!jT5#}&`#L59^Y*K) zlfQFo^f+_0p^j7r8`xd%uh?JOX_IvykgE6 zqjV%s?Od^s=KHMkyjv*Mo7VC8nF1sik)3}d36m+kiTDj|D>YQNitgozaV!7A52>GNJn!8=YoS#{ z&P=R+&4j-)287NAn_W+xyG#>9jwf!uuESfTG7WS8IHOnS#H+g?q;2Qkc-!CFW+YJm z{%{MlJ8?F%^wqHF{q(afH$~P@hkHehnQB1peDoIi%=b4`y>>sNzP{0%*?dkUosbaL zqVF5-jrkY$6%%7~HD@bdK$ncgOgys=htxX}k@1lu)&pq?Jg@bN#3lnO+| zJbJN2YNR)K*ipRRssoJ?$o5AAh{Y-Y7snNhBEJVT^THPDM^A}`VWRkX;&osRaY?=o zT*)F0=FBW%Y{i=K{D*)u(NDit&kZXZt|-fwvm1J<(RY)VO8f|L)Tp!fMXL z$m5ru0oMk#oq2z2h?|~M-ZW;d%yO34cb6|8iqX&+{f^gu*O;)YI{`!Fosb$Jjo`7) z45fQy>Y;NX64F-FfJ;yZ;JxE$Xfb`B5(f23MlAD?j_2hpR<4vvNO?WMRE}5~7$x4? z`-;g4ozU1pVv9kl!F1u+r#Cjq6gS{6^QRie;`NbT>eN2x8Fl+uS^5e zUEIYh{1%nw8$n9@VLOhT&HQe@l~^5Q-#|1z3V{VnwNcwQ z=q>h@&Yb9(bFaCUyRmpbevhyu-Fo$%li{khYYsM|G14zgtP#g6aq=ayC;1b}pCxdq z%9l|Z+e_I~as+MpF8FxYs@bk}e(--}yC=bS{GC1k&&)x~w@*u_yWR~}wJo-!KEjtw zNn6q(Z#+=E?zdovVGostu$>4AIoGqGH8aG@%12GnwA5yA$=NF% z8A#=vy7uynK6SccNIEE^=gsc7zRr8*DoADg#n7kzt&v9fPcAxpC&r={j7e<#Ejki~ zjON6S;P_G0)tt^{C?k)+|H&EV4g$H+6g>MDM;$tm%Cx*4(keIM5?XHAPWzQ1$yEe@ z?gVnUC)h1L>)`wm*nf1@9}fPL*lV|eVzT~E>u@1;;ej{~7wCo7rt*;a@msbJO%M4l z0whV*1d0v14-{%{4@P4L!C+eX5VWZ46eop^G5^z4sxOVP^vd5wiJXc%?eOV88XY~G z(i!KNyyexdLg#|i+rO%7Zcg6O>fXVU!}rQ`-X_}3fS!T z8}7cpBA{us*y5e===ouV*oMHP*5728fJUv>`;s#a@{IB8kU;YIRiAz!W$mcIXD})f zm!r&mq0&8vUY>do5kg~yi>_WIK%xzWD;0)tJ+jpc73+>{*wf5N)UjDnlCXS+~OO6`Im+ z8E{U)U>o)H-Jo>+%G1ODeo18(14Kpf{d4HHkkNCZ!j-43o*y5D6v~fEqLAWXFlKji z^>VMwzKxqHY4+QV7_%$5I>e^!kJ2!VBz{kaA+_yH=#$ff6@tXfG5TN4Lp*|mh`tsQ zyGO46M7djG=DM@C8n03`KI)nF*yBZYV-Za!(XmQQMl3Nnq zKt3VO_WzsJm9x1+$l&@7CV2YRO!+0?Z*pI+Im^Yj_!5gpO->~ZTio5eSF47^kYvP} zNe+rKG$htT&-i05oBkvJk<1}uLg*wxqK%MvN=k1YQvzTKAWq1sW(D?fGvlHxZ#Teu zeJE!Q1!NU|kqd%!?A0cyLWWmp(4CW5;UsijK`S8W;|9`?LW@%dYO4`P6quJnIZK{x zmLuNoXs}_&a}Hb}aIcf)v13*#8Pw%>otxwm8xgMfK=(8tp^X;p8oUysSj&89Leg@` zQcj>NWUy9-)pICK8oU!=Wg4UmV4WJgiJ;`0uu?$TBZO*GJu!A5%ZJaX; zY-O2M*vna|R_>CRx2RbizIu8mMZ>YEcxTQt+Pg0#cfTL_#(Kv2WR)uwEJN9jeB|%V5k#MZg z_zYN^@TCKk#M6}e1V*zdf$oDQi%_RG^rNzQwj%5po6=#L@@8;b zcRaNoVk{Jtd^OOv8*%M3pfDn9jL73X&MZK?<-XHa1Z^|Rz+pmlVJjM$oB7stqn!+T zBE-)ruzVe=he!)A@VPqdLqAqx*gZtTnoAJzLkg`X_0AZa_B!HS@0Qr@L<0&f+L3gf5cEM9|NwOvQ3Ab*5P(? zvNV<4XGxr04Pr0sp2G|CY@C~`g#BE#)NB$`ZnI8~od#u;)Mk%|xc3*pRZ#Y8tdfTj zMhnFv2~-d?wumap176S`^Iip=1Bp<}3=`yJ#ETW^QC-gaB*29*8$Kh%tYe1&4yuc` zj9HU<1E2&xR04JCtk-z3sSrb!P++)?b4{2#N{}#+v*Me zzY4%NP%?DvX*yKiQ?PFY-CBYiQ(`M#K$FFQHG+DDgV|7*kSJn^p}e)=tCTTy9}pAt zdAT-m5IRdkIV-3-j4?0>+t7xn3s66KB|M5b`ZGcm)_*6p$ST1pV=KdlG*|)L0ro$m z)pKGQm)KPXs5lYK0$A0J%vw2m%zUxgEW_&{9q(>i!=4tFc2Vo+Mkg5#<<4iBsAWnF zG1ZdwP*)iM8tD2l>}E1&o6Mmyn(+dNCz~ut)EIP^$3xONIkrtsSuhUe=~4&%!D2b3 zIDp1ez=b2asu?{}9K=7U1 zmwGP&TnJz+Ru*+iG5VxDrJt1b8P#h1FW-oY>jc-cFh7VS%;z8@1;6sK%a6hKA>gAV zZ!%A1l&oz!q@<2qhqjLBXhMvpLK-HaKX0D?%z?{fi~pU4S_vqZj39UoiD<gf*R#=l`evNCb4i0dW}qKe{!W*Sc(cM1xm^fU+7Cg0##ul zICX`l#}63_8cn^l`)D61b>NUHAuLab7s*#}N6?26=N*kFNIG^DoHMJ5N(oUxYPtMy9sL>3$G-BU3_-!F)m^}NF|Xzo|ASMLBBiV*3!%3z-kTJ zUU+1`%z6{S_7)5+reaV06Jt{q{I|&aX_1e;7`0HJMJo03W(?j3+bIv*>5&o*W|58j zod8;uhsYwNnUBhq`}w|@mkH1Swx|%Wbe$B@bvOoItFQ?XZknn`!j*h-pCGyKM?^$v zl=%djkU_hdj`aAaBltW6iHx^x1U~|=**e~c?JT{PG zgFVvRrjtnXJue1&5aRo+en|Ip*f@gL`KOH++Cs}zwO*x9p@4)=@BsDWm)7Y z#UR%t2sVLSoo|@-TH$c?3{5ndw0MbY6tkyLQff0SVBsRbB>%ulR#GlB!auE1ix5jZ%8)l zALe-Bqgy*!8jSEvDkGK|2+S)9U9Pl=)!cWC{Ux&t3@OO#^0t;~8w_)AbKgy%$(p zWD{$284{v0VGA`IO}_Q?k3RBaQ|d(_c7#p+GKX9+at}TAyb&EI#mZ$)j1IT38C}cZN-4>^D4vMUbz#6DVZ9IhqYpZVlasbWT}v z?cXzJp&+FU3u=W`V6j>A{k%N*5JcG=4YcxS7NoPk^^>1A!xG`|b5FrVzk>6rb5}h9 z{BHnvgPW9;?p6x;mwr)D=Mjb%3r?D4q$8D}Tt~X=iMq%}x2yYN-eEjVVs|p=QeIxa zy3u_#`k^j%BbRo#c+uM3V7{)@@BX9DBz$id*k$A)f|ph*#1sL_<><;3>ebm)Q3|lu zVByTSKeymNfzfowY@*Kl z@f+t}kx7Mrc4OvWWt{`7i{!&F30)(z_;bYaoD~}Ef#O>|H(yDx2)9q10n)Byq5$iW zksgMFGlm5}?7^M{g4A7ce20<^0>owHCk<0Y&xS6!f@$UbS8}cmE+0P-cs>iW!iMK(2HyJD=3mW<=(@~++Ck`H$0e39ay`> zKGv5tQzZ2ZOXj}MR`b*d^L@7B?SQ*f%B*!uDM&wA>9ROP>>*xUqm|khlq?+#HP=(& z@TWHlVzCYpH;V4Q@$o%wo%LJZz>=zQUIhEwLpB4IzTO$(w4J%*?o!?L!NJ;@|Mb(t zIdloj=9K$^XZ0zUAHv4zFAH={ds*G4F^dGfdwt^R48Syqh zO+u)6x>H&{DB+?BBnEGBVz899>DVe#pei0}gTIO4KyiJ%M;o0POB}J{7th}8_i)cw zsYS>iE*L8zRGnJ;9>Y^fwo#8b9Hf9T!3;D8gp<}Kw%^$`i#5l*OY>1!R{~Y#{q)8~ zvK+?etL!1fc24k@zB0C@4ebPS(G17?b9>Hbo@f*!ceOeD##`sl zU{ETHqpRq1RXb#>%Jsc_{_%*6b*wC2xgbqm8}8L_;a@Lbo4&FC2j34#!C&0kZNel~ z^yixNvP+7a(PPM{=2MTq-qwAw)b?mpz~I=;$c5p1cZO7r+i2vfk`TM-oZFj!TDQ1D zSre9~1ey{Hw3RH{glh@O>y=E}e*J{&9 zz1;LY?I$XHSuY0H*SG7+?CX2OR;;fB;Aa;{x7nkulz(K;$hYd9M;$chwFl&M z=Z?K+g)nVNLz^WF7m;eqOHhv!+#UIKCrf)JtAf-kdBHfL%Efk%6R)4xmMxag{>}ccxNEIl+2V3Z+t+V?=*jEmMs_V?X=4Yy5|~=AhJNM| aC|I*4l@!vR8k-MFXMPgwa=|eu@c#gWaVS^- diff --git a/more/magspring-tests.txt b/more/magspring-tests.txt deleted file mode 100644 index b01718a..0000000 --- a/more/magspring-tests.txt +++ /dev/null @@ -1,8 +0,0 @@ -MagSpring_2D - OPEN> test/models/Preferential Attachment Tester.nlogo - to mag-layout repeat 3 [ __layout-magspring turtles links 0.5 1.0 0.4 0.4 0 false ] end - O> random-seed 2342 - O> setup - O> repeat 50 [ go ] - O> repeat 5000 [ mag-layout ] - any? links with [ any? other links with [ bad-intersections self myself ] ] => false diff --git a/more/magspring.html b/more/magspring.html deleted file mode 100644 index f94b41c..0000000 --- a/more/magspring.html +++ /dev/null @@ -1,128 +0,0 @@ -

-

- __layout-magspring -

-

- __layout-magspring turtle-set link-set - spring-constant spring-length - repulsion-constant magnetic-field-strength - magnetic-field-type bidirectional? -

-

- Very similar to layout-spring, but - with an added layer of complexity. The turtles in turtle-set - attract and repel each other depending on the links (that are in - link-set) between them, but there is also a magnetic field - which the links try to align with. -

- The link-set is the set of links that exert forces on the - turtles they are connected to. Turtles that are connected to links - in the link agentset but are not included in the turtle agentset - are treated as anchors. If there are no turtles with fixed - positions the entire network will probably collapse on itself. -

- spring-constant is a measure of the "tautness" of - the spring. (See layout-spring) -

- spring-length is the "zero-force" length or the - natural length of the springs. (See layout-spring) -

- repulsion-constant is a measure of repulsion between the - nodes. (See layout-spring) -

- magnetic-field-strength is the force of the magnetic field. - (Reasonable values range from 0 to 1, but 0.05 is a good default.) -

- magnetic-field-type is a number in the range from 0 to 10. - Choices are listed in the table below. - - - - - - - - - - - - - - -
- magnetic-field-type - - Description -
- NONE = 0 - - If no field is used, then this command works just like - layout-spring. -
- NORTH = 1 - - Magnetic field runs toward the North -
- NORTHEAST = 2 - - Magnetic field runs toward the Northeast -
- EAST = 3 - - ... -
- SOUTHEAST= 4 - - ... -
- SOUTH = 5 - - ... -
- SOUTHWEST= 6 - - ... -
- WEST = 7 - - ... -
- NORTHWEST = 8 - - ... -
- POLAR = 9 - - Magnetic field runs outward at all angles from the origin. -
- CONCENTRIC = 10 -
- 		- Magnetic field runs clockwise around the origin in concentric - circles. -
-

- If bidirectional? is true then links try to align with the - magnetic field by pushing attached turtles both in the direction of - the field, and in the opposite direction. Otherwise, the links just - push in a single direction. - 

-to make-a-tree
-  set-default-shape turtles "circle"
-  crt 5
-  ask turtle 0 [ 
-    create-link-with turtle 1
-    create-link-with turtle 2
-  ]
-  ask turtle 1 [
-    create-link-with turtle 3
-    create-link-with turtle 4
-  ]
-  ; layout with a fairly strong SOUTH magnetic field
-  repeat 50 [ __layout-magspring 
-              turtles with [who != 0] links 0.3 4 1 .50 5 false ] 
-end
-
-