BIO

ELIF ERDINE is an architect and researcher.

Currently, she is a PhD Candidate at the Architectural Association (PhD in Design, Advisor: Patrik Schumacher).

She received her Master of Arch. & Urbanism degree from Architectural Association (2004-2006, Project Distinction). She received her Bachelor of Architecture degree from Istanbul Technical University (2003, top 3rd).

Since 2006, she has been working for Zaha Hadid Architects in London.

She is the co-founder of YME, a design research collaborative of young architects.

EE RESUME

eerdine[at]elif-erdine[dot]com

Tag Cloud

AA attractor Beyond Media 2009 canopy competitions Costa minimal surface curlicue fractal GC Gumowski-Mira jewellery design lounge seating Mathematica News Parametric Parametric Design Parametric facade parametric wall tiling PhD pickover strange attractor point connection Publication research RhinoScript Ribs Rossler slip-case wine bottle Zaha Hadid Architects

.RVB Attractor Series 02: Gumowski-Mira

Gumowski-Mira attractors were developed at the CERN research centre in 1980 by I. Gumowski and C. Mira while aiming to calculate the trajectories of sub-atomic particles. They create organic patterns resembling natural/marine forms.

gm01_thumb

gm02_thumb

Option Explicit

‘Script written by Elif Erdine

Call GumowskiMira()

Sub GumowskiMira()

Dim i

Dim x()

Dim y()

Dim pt()

Dim maxpoints

maxpoints = 5000

Dim B

B = 1

ReDim Preserve x(maxpoints)

ReDim Preserve y(maxpoints)

x(i) = 0

y(i) = 5

i=0

Do While (i < maxpoints)

x(i+1) = B*y(i) + GM(x(i))

y(i+1) = GM(x(i+1)) – x(i)

ReDim Preserve pt(i)

pt(i) = Array(x(i), y(i), 0)

If IsArray(pt(i)) Then

Call Rhino.AddPoint(pt(i))

Dim plane

plane = Rhino.PlaneFromNormal(pt(i), Array(0,0,1))

Call Rhino.AddCircle(plane, 0.2)

End If

i = i+1

Loop

If IsArray(pt) Then

Dim ptcloud

ptcloud = Rhino.AddPointCloud(pt)

End If

Dim ptdel

ptdel = Rhino.GetObjects(”select points to delete”, 1, , , True)

Call Rhino.DeleteObjects(ptdel)

End Sub

Function GM (ByVal x)

Dim A

A= 0.305

GM = A*x + 2*(1-A)*x^2 / (1+x^2)

End Function

Posted: April 16th, 2009 under Parametric Design.
Comments: 1

.RVB Attractor Series 01: Rossler Attractor

Rossler attractor behaves similarly to Lorenz attractor. It’s formed by 3 non-linear ordinary differential equations. ( http://en.wikipedia.org/wiki/Rossler_map )

rossler01b_thumb

 rossler02_thumb

 

Call Rossler()

Sub Rossler()

            Dim x, y, z

            Dim maxpoints

            maxpoints = 8000

            Dim h

            h = 0.025

            Dim p(2)

            Dim ptnew()

            Dim i

            Do While (i<maxpoints)

                        p(0) = p(0) + h* dx(p(0), p(1), p(2))

                        p(1) = p(1) + h* dy(p(0), p(1), p(2))

                        p(2) = p(2) + h* dz(p(0), p(1), p(2)) 

                        Rhino.AddPoint(p)

                        ReDim Preserve ptnew(i)

                        ptnew(i) = p

                        i=i+1                

            Loop

           

            Call Rhino.AddCurve(ptnew, 3)

End Sub

 

 

Function dx(ByVal x, ByVal y, ByVal z)

            dx = -y-z

End Function

Function dy(ByVal x, ByVal y, ByVal z)

            dy = x + 0.4*y

End Function

Function dz(ByVal x, ByVal y, ByVal z)

            dz = 0.31 + z*(x-5.3)

End Function

 

Posted: April 16th, 2009 under Parametric Design.
Comments: none