参数化设计建筑,中国,SOHO办公兼老人居住

1、把世界的优秀建筑送到您的桌面中国，S0H办公兼老人居住（参数化设计）/卢晓亮+王韶宁DIARYA 啊 如鈕 I毎 «&whole Ke the 也叩 口陀 he went, cvough,rhe more ；iup«nnrmfl heHowswr uniti Qw cxinEtnndy '苗 notion of The crh-.血wxleon coined tw uhoeeb.iilrlnq sim rqJhond toy raw Lhrqn. A 栏商! wrivti has nurlJid tor hunri nd jBBra fxr-m> mM

2、una m ah mMi tuc Nkn n Hwtaorn <Md. K h n gnnd liwtg； b n hnd tiing?umM k 规 md iJwjuK buid呷甘 wNch hM Bgintfcent rrteftna. rtt&rth prutiMlMf?1rrw咼-boddini 曲日 e jiarv con recsons 阿阿吐帀 fUhtira幣翟匕禺匚本站于2009年6月在论坛上贴出该参数化设计的程序代码: &t=12本设计的出发点是对城市历史的思考。一个历经了时间和事件的城市应当像一个饱经风霜的人 ，从他脸上的皱纹能看出岁月的痕迹。然而

3、城市建筑的高速更新，使得一个存在了百年的城市 面貌和新建的城市一样单薄。设计的任务是在基地新建一座办公楼。通过调研发现原有基地是一片以老年人居住为主的老居 住区，原有的建筑有其特有的风格。因此，希望能引入新的建筑功能和使用人群的同时，保留部分原有的建筑和使用人群，使得当地的历史得到一定程度的保留和体现 根据老年人和年轻人对空间使用要求的特点，用Rhino Scripting参照云形成的逻辑来生成许 多混合的可能性，并根据形态的要求从中进行选择，最后落实成为最终建筑。建筑设计：卢晓亮 程序： 王韶宁(wan g.s n#)原文 &t=12把世界的优秀建筑送到您的桌面原文 &t=1

4、2把世界的优秀建筑送到您的桌面Sil.R analyHiK-Public btjKfi（榔Neth! iMjiding原文 &t=12把世界的优秀建筑送到您的桌面原文 &t=12把世界的优秀建筑送到您的桌面OaracteriDtics of o :勺 peope in present ste：'/hi M imEz| e卡卜i.Qlii *n*nnMomoci-|ihrc diflrrtfcitn* cL'Ykiui号 p-±tpfe PR-pcTurj-mthbds科丹Did 椚15:.Empq JLki pncoki mrr dim卩rrsed T

5、hey *sirt Bo -t. iy wijn hurOiaractestcs of y3cg peop& mnll be add into the see:N&a bu-jing aad into tht 町酗_L.i > 1. h ,- ：i *一 - JThey wrt to 亦r 血Hypothesis：OldNew原文 &t=12把世界的优秀建筑送到您的桌面原文 &t=12把世界的优秀建筑送到您的桌面3a./oMfigpwptai Wylife st*dhbhI 血 bmm 屈阳h 3 ti D(.F .".mJ R9Qp«

6、： i3ttir Mw?k怕 1*af -aicfi otlwjfismatDF¥2151 psop爭hsvsn匚1 I1_|(ZZ)flOTBtaZklptKjph*! 'nfeMdn ;-n±x；ape.Fr 札二二二_AGr*fitfinLiMTUtJdlJizi Iklz; pu Uj vnlk二】0：u细rpcth weHiim. trulfir. jronz血 »r,_?rT4lr'.iPF!2、忑;严J-* vtU " E r Er：i"7 _rT|-l-wfr"? !*? J'MIW*n -尸尸

7、IIerf - ENpi-丿町.r>"P j-J«J| u mf>- ?¥"? rM1 ri lr Ar EUi# ir “HiffbB.i凹uTihl . r I亠IjH ! 好ItlllL 3亠149r£=d.JIWI ! !* >.k- fc - lllta b*丄F aIlk.-52E.i fri -ANAjl rr*» 3i氐to* rcdwr Iw原文 &t=12把世界的优秀建筑送到您的桌面原文 &t=12把世界的优秀建筑送到您的桌面FtJrn generation process>

8、l|i- I- r-Yuurig 尉口出 LiCHU Bdd m Uh uiUs：YcurigLdDdifiuefciJSLOplodidCi ITI 0 porkij込rtK泊I旷曲心MovmgiAccumulateFurTTibalifncB|原文 &t=12把世界的优秀建筑送到您的桌面口0殆1国D691-”匕Se*y原文 &t=12把世界的优秀建筑送到您的桌面原文 &t=12把世界的优秀建筑送到您的桌面VdUilni FHitjpks 口L口 ki penpie ha usingVdUGoi U'arpurtutoiiRoof gp landscape原文

9、 &t=12把世界的优秀建筑送到您的桌面原文: &t=12 2009-06-14 Jii-* ' 1!*lh.4MJj-X-匚J J LH L亠刀 j * r ¥ r»S'*_当J"" M' n i t*iF6F1DOption Explicit'Script writte n by <in sert n ame>'Script copyrighted by <in sert compa ny n ame>'Script version 2009 年 6月 13日 2

10、0:06:32Call Mai n()Sub Mai n()Co nst site_width = 12Const site_lo ngth = 18Const site_height = 15Call rhi no.en ableRedraw(False)原文 &t=12把世界的优秀建筑送到您的桌面'青年公寓的数量Dim howMa nyYoungUn its : howMa nyYoungUn its = 750'老年公寓的数量Dim howMa ny OldU nits : howMa ny OldU nits = 375 'leader 的位置Dim h

11、owMa nyLeaders : howMa nyLeaders = 20'首先，地块的三维数组Dim arrSiteU nitStatus( 12, 18, 15)Dim arrSiteSpaceStatus( 12, 18, 15)Dim arrSiteU ni tObjectlD( 12, 18, 15) '初始化随机数Ran domize每一层都随机分布Dim i,j,k,l'array使用前要初始化For i =0 To site_width Step 1For j = 0 To site_longth Step 1For k = 0 To site_heig

12、ht Step 1arrSiteU nitStatus(i,j,k)=0 arrSiteU ni tObjectID(i,j,k)=0 arrSiteSpaceStatus(i,j,k)=0NextNextNext'初始化青年公寓，赋予随机的位置和固定的颜色i = howMa nyYoungUn itsDo While i>0j= In t(12 * Rnd)k= In t(18 * Rnd)l = In t(15 * Rnd)If arrSiteU ni tStatus(j,k,l)= 0 The narrSiteU nitObjectID(j,k,l) = 1arrSiteU

13、 nitObjectID(j,k,l) = drawCube(j,k ,l)i = i-1End IfLoop'初始化青年公寓，赋予随机的位置和固定的颜色i = howMa nyOIdU nitsDo While i>0j= Int(12 * Rnd)k= In t(18 * Rnd)I = In t(15 * Rnd)If arrSiteU ni tStatus(j,k,I)= 0 The narrSiteU nitObjectlD(j,k,l) = 2arrSiteU nitObjectID(j,k,I) = drawCube(j,k ,l)i = i-1End IfLoop

14、'初始化“空间形态矩阵”产生leaderi = howMa nyLeadersDo While i>0j= In t(12 * Rnd)k= In t(18 * Rnd)l = In t(15 * Rnd)If arrSiteSpaceStatus(j,k,l)= 0 The narrSiteSpaceStatus(j,k,l) = 1i = i-1End IfLoop'检查空间的横向和纵向，是不是leader已经积聚，如果积聚，把空间的标记为可停留的、不可停留的'检查行'Co nst site_width = 12'Co nst site_lo

15、ngth = 18'Co nst site_height = 15For i =0 To site_longth Step 1l =0Dim down LeftX, dow nLeftY, upRightX,upRightYFor j = 0 To site_width Step 1For k = 0 To site_height Step 1If arrSiteSpaceStatus(j,i,k)= 1 The n'如果是第一个点，把所有的值都给它If l =1 The ndow nLeftX = jdow nLeftY = kupRightX = jupRightY = k

16、End If'记录"左上"和“右下”的位置If j<dow nLeftX The ndow nLeftX =jEnd IfIf k<dow nLeftY The ndow nLeftY =kEnd IfIf j>upRightX The nupRightX =jEnd IfIf k>upRightY ThenupRightY =kEnd If'累加l = l + 1End IfNextNext'如果leader超过了3个，把这个区域变成固定区域If l>2 The n'该区域标记为固定区域For j = 0 To

17、 site_width Step 1For k = 0 To site_height Step 1NextNextEnd IfNext'绘图单元，遍历三维矩阵，绘制出每一个Dim arrCe nterFor i =0 To site_width Step 1For j = 0 To site_longth Step 1For k = 0 To site_height Step 1'arrCe nter = array(i*3,j*3,k*3)'Rhi no.AddSphere arrCe nter, 3'Call drawCube(i,j,k)NextNextNextCall rhi no.en ableRedraw(True)End Sub '绘图单元,遍历三维矩阵，绘制出每一个Function drawCube(x,y ,z)Dim arr1,arr2,arr3 ,arr4,arr5,arr6,arr7,arr8,arrCorners arr1 = array(x*7,y*7 ,z*3) arr2 = array(x*7+7,y*7 ,z*3) arr3 = a