ขอต้อนรับ ผู้มาเยือน กรุณา ล็อกอิน หรือ สมัครสมาชิก

ล็อกอินด้วยชื่อผู้ใช้ รหัสผ่่าน และระยะเวลาใช้งาน

 
Advanced search

41617 Posts in 6282 Topics- by 9888 Members - Latest Member: Cheer
Pages: 1   Go Down
Print
Author Topic: Sierpinski_triangle  (Read 4807 times)
0 Members and 1 Guest are viewing this topic.
FogRit
SuperHelper
*****
Offline Offline

Posts: 898


มีอะไร ใช้อย่างนั้น


« on: December 24, 2010, 10:32:08 PM »

http://en.wikipedia.org/wiki/Sierpinski_triangle
หัวข้อ Or using an Iterated function system
จากสมการ
 x_{n+1} = 0.5*x_n
 y_{n+1} = 0.5*y_n
โดย  x_0 = 0 และ  y_0 = 0
ถ้าหา  x_1 = 0.5*x_0 = 0
และในทำนองเดียวกัน  y_1 = 0.5*y_0= 0
แล้วที่เหลือก็ออกศูนย์หมดสิครับ
ผมสงสัยว่าเขา iterate ยังเหรอครับ ?
ขอบคุณครับ
« Last Edit: December 24, 2010, 10:36:20 PM by Foggy_Ritchy » Logged

อดทนและทำงานอย่างสอดคล้องกับธรรมชาติ
psaipetc
SuperHelper
*****
Offline Offline

Posts: 653


kostuff.blogspot.com


WWW
« Reply #1 on: December 24, 2010, 11:32:18 PM »

มันมี 3 operations ให้สุ่มเลือกทำไปเรื่อยๆครับ การสุ่มก็สุ่มแบบให้ทุกๆ operation มีโอกาสเลือกเท่าๆกัน

Operation 1: หดลงเหลือครึ่งหนึ่ง
Operation 2: หดลงเหลือครึ่งหนึ่ง แล้วย้ายจุดไปทางขวาและขึ้นบน
Operation 3: หดลงเหลือครึ่งหนึ่ง แล้วย้ายจุดไปทางขวา

อันที่คุณกังวลคือ operation ที่ 1 ครับ ถ้าสุ่มไปเจอ operation ที่ 2 หรือ 3 จุดมันก็จะย้ายออกจาก (0,0) แล้วครับ

ต้องลองเขียนโปรแกรมวาดดูครับ พอได้ครั้งเดียวจะจำได้ไปตลอดชีวิตเลย Smiley
Logged

Life Lessons (related to science anyway):
http://www.guardian.co.uk/print/0,3858,5164417-111414,00.html
psaipetc
SuperHelper
*****
Offline Offline

Posts: 653


kostuff.blogspot.com


WWW
« Reply #2 on: December 25, 2010, 03:50:28 PM »

ผมเอาวิธีทำใน Mathematica มาให้ดูครับ

xform[p_, 0] := 0.5 p
xform[p_, 1] := 0.5 p + {0.25, 0.5 3^(1/2)/2}
xform[p_, 2] := 0.5 p + {0.5, 0}

ifs[p_] := xform[p, Random[Integer, 2]]

Graphics[Point[NestList[ifs, {0, 0}, 10000]]]
Logged

Life Lessons (related to science anyway):
http://www.guardian.co.uk/print/0,3858,5164417-111414,00.html
FogRit
SuperHelper
*****
Offline Offline

Posts: 898


มีอะไร ใช้อย่างนั้น


« Reply #3 on: December 26, 2010, 01:10:04 AM »

ขอบคุณมากครับ อ.พงศกร
เสร็จแล้วจะเอามาให้ดูครับ
Logged

อดทนและทำงานอย่างสอดคล้องกับธรรมชาติ
psaipetc
SuperHelper
*****
Offline Offline

Posts: 653


kostuff.blogspot.com


WWW
« Reply #4 on: December 26, 2010, 06:27:10 AM »

ยินดีครับ  Smiley
Logged

Life Lessons (related to science anyway):
http://www.guardian.co.uk/print/0,3858,5164417-111414,00.html
FogRit
SuperHelper
*****
Offline Offline

Posts: 898


มีอะไร ใช้อย่างนั้น


« Reply #5 on: December 26, 2010, 09:22:22 PM »

รูปมาแล้วครับ
Logged

อดทนและทำงานอย่างสอดคล้องกับธรรมชาติ
phys_pucca
Administrator
SuperHelper
*****
Offline Offline

Posts: 721


วิ่งตามฝัน


WWW
« Reply #6 on: December 26, 2010, 10:24:15 PM »

 Foggy_Ritchy ชอบใช้เครื่องมือหนักจังเลยครับ  coolsmiley
ถ้าไม่อยากใช้เครื่องมือที่ต้องจ่ายเงิน ทำไมไม่ลองเขียน C หรือ script ง่ายๆ แล้ววาดกราฟกับ gnuplot ล่ะ
ถ้าเขียน C จะได้ลองเปลี่ยนเป็นโปรแกรมแบบ parallel ดูเล่น แบบที่  Foggy_Ritchy อยากทำงัยล่ะ  coolsmiley
Logged

icon adore  PHYSICS NEVER DIE
Nature uses only the longest thread to weave her patterns, so each small piece of her fabric reveals the organization of the entire tapestry. ; Richard P. Feynman

อย่าท้อ อย่าหยุด อย่าเบื่อ ; psaipetc
FogRit
SuperHelper
*****
Offline Offline

Posts: 898


มีอะไร ใช้อย่างนั้น


« Reply #7 on: December 26, 2010, 10:51:35 PM »

Foggy_Ritchy ชอบใช้เครื่องมือหนักจังเลยครับ  coolsmiley
ถ้าไม่อยากใช้เครื่องมือที่ต้องจ่ายเงิน ทำไมไม่ลองเขียน C หรือ script ง่ายๆ แล้ววาดกราฟกับ gnuplot ล่ะ
ถ้าเขียน C จะได้ลองเปลี่ยนเป็นโปรแกรมแบบ parallel ดูเล่น แบบที่  Foggy_Ritchy อยากทำงัยล่ะ  coolsmiley


ทันทีที่ phys_pucca แนะนำผมให้ใช้ gnuplot ผมจึงรีบอ่าน gnuplot in Action ฉบับเถื่อนโดยพลัน
ทำได้ตามที่แนะนำด้วยครับ ขอบคุณๆ
ผมเขียน C ครับ

ถ้ามีข่าวดีเกี่ยวกับ parallel ผมจะเปิดให้ remote มาหัดเขียนกันครับ
Logged

อดทนและทำงานอย่างสอดคล้องกับธรรมชาติ
phys_pucca
Administrator
SuperHelper
*****
Offline Offline

Posts: 721


วิ่งตามฝัน


WWW
« Reply #8 on: December 27, 2010, 12:29:06 PM »

เยี่ยมครับ  great
Logged

icon adore  PHYSICS NEVER DIE
Nature uses only the longest thread to weave her patterns, so each small piece of her fabric reveals the organization of the entire tapestry. ; Richard P. Feynman

อย่าท้อ อย่าหยุด อย่าเบื่อ ; psaipetc
FogRit
SuperHelper
*****
Offline Offline

Posts: 898


มีอะไร ใช้อย่างนั้น


« Reply #9 on: December 27, 2010, 02:12:29 PM »

ขอบคุณครับ  Grin
Logged

อดทนและทำงานอย่างสอดคล้องกับธรรมชาติ
Pages: 1   Go Up
Print
Jump to: