我想用五種語言的解決方案來展示龍的曲線:
龍曲線是自相似分形曲線族的任何成員,可以透過遞歸方法(例如 Lindenmayer 系統)來近似,如 Pascal 中的過程所示:
procedure Dragon(n,a,t:Integer; d,x,y: Double; var b: TBitmap); var a1, a2: integer; begin if n <= 1 then begin with b.Canvas do begin Pen.Color:= random(p); MoveTo(Trunc(x + 0.5), Trunc(y + 0.5)); LineTo(Trunc(x + d *_cos[a]+0.5),Trunc(y+d *_sin[a]+0.5)); exit; end; end; d:= d * s; a1:= (a - t) and 7; a2:= (a + t) and 7; dragon(n - 1, a1, 1, d, x, y, b); dragon(n - 1, a2, -1, d, x + d *_cos[a1], y + d *_sin[a1], b); end;
遞歸地,右卷龍是一條右龍緊跟在後的一條左龍,呈 90 度角。左龍是先左後右。在 maXbox 中使用 Python 和 Turtle 也能得到相同的結果:
Const DRAGFUNC = 'def dragon(level=4, size=200, direction=45): '+LF+ ' if level: '+LF+ ' right(direction) '+LF+ ' dragon(level-1, size/1.41421356237, 45) '+LF+ ' left(direction * 2) '+LF+ ' dragon(level-1, size/1.41421356237, -45) '+LF+ ' right(direction) '+LF+ ' else: '+LF+ ' forward(size) '; function PyCodeDragonTurtle(imgpath, aAPIKey: string): string; begin with TPythonEngine.Create(Nil) do begin //pythonhome:= 'C:\Users\User\AppData\Local\Programs\Python\Python312\'; try loadDLL; autofinalize:= false; ExecString('from turtle import right,left,forward,speed, exitonclick,hideturtle'); ExecStr(DRAGFUNC); ExecStr('speed(0)'); //ExecStr('hideturtle()'); ExecStr('dragon(6)'); ExecStr('exitonclick()'); //result:= (EvalStr('r.json()')); *) except raiseError; finally Free; end; end; end;
龍曲線可能最常被認為是透過重複將紙條對折而產生的形狀。
龍為筆.Color:= (p);
您獲得的腳本:
多語言腳本
https://sourceforge.net/projects/maxbox/files/Examples/13_General/1320_dragon_curve_51_py.txt/download
深度 = 9
畫筆寬度:= 2;筆.顏色 := cllime;
試試烏龜發出的聲音,以角度為幅度,以步長為音調:
procedure DrawDragon2(step, adir: integer; len:real); begin //myturtle:= TJvTurtle.create(self); with myturtle do begin if (step >-1) and (len >1) then begin len:= len /sqrt(2); Turn(45*adir); DrawDragon2(step-1, +1, len); Turn(-90*adir); DrawDragon2(step-1, -1, len); Turn(45*adir); end else //*) moveforward(len ) end; end;
Microsoft Edge WebView2 控制項可讓您在本機應用程式中嵌入 Web 技術(HTML、CSS 和 JavaScript)。 WebView2 控制項使用 Microsoft Edge 作為渲染引擎,在本機應用程式中顯示 Web 內容。
<!-- DragonCurve.html --> <html> <head> <script type='text/javascript'> function pDragon(cId) { // Plotting Dragon curves. 2/25/17 aev var n=document.getElementById('ord').value; var sc=document.getElementById('sci').value; var hsh=document.getElementById('hshi').value; var vsh=document.getElementById('vshi').value; var clr=document.getElementById('cli').value; var c=c1=c2=c2x=c2y=x=y=0, d=1, n=1<<n; var cvs=document.getElementById(cId); var ctx=cvs.getContext("2d"); hsh=Number(hsh); vsh=Number(vsh); x=y=cvs.width/2; // Cleaning canvas, init plotting ctx.fillStyle="white"; ctx.fillRect(0,0,cvs.width,cvs.height); ctx.beginPath(); for(i=0; i<=n;) { ctx.lineTo((x+hsh)*sc,(y+vsh)*sc); c1=c&1; c2=c&2; c2x=1*d; if(c2>0) {c2x=(-1)*d}; c2y=(-1)*c2x; if(c1>0) {y+=c2y} else {x+=c2x} i++; c+=i/(i&-i); } ctx.strokeStyle = clr; ctx.stroke(); } </script> </head> <body> <p><b>Please input order, scale, x-shift, y-shift, color:</></p> <input id=ord value=11 type="number" min="7" max="25" size="2"> <input id=sci value=7.0 type="number" min="0.001" max="10" size="5"> <input id=hshi value=-265 type="number" min="-50000" max="50000" size="6"> <input id=vshi value=-260 type="number" min="-50000" max="50000" size="6"> <input id=cli value="red" type="text" size="14"> <button onclick="pDragon('canvId')">Plot it!</button> <h3>Dragon curve</h3> <canvas id="canvId" width=640 height=640 style="border: 2px inset;"></canvas> </body> </html>
在maXbox5的EdgeView中修改與探索
您可以在以下位置找到腳本:
全部 5 種語言腳本位於
以上是龍曲線2的詳細內容。更多資訊請關注PHP中文網其他相關文章!