ที่หน้าคณิตศาสตร์นอกกะลา (https://www.facebook.com/mathsforlife32) มีคำถามว่า “มีช่องสี่เหลี่ยมจำนวน 6 ช่อง เรียงเป็นแนวเส้นตรง ถ้าต้องการทาสีช่องเหล่านี้ด้วยสีแดง สีขาว หรือสีดำ โดยจะทาสีแดงในช่องที่ติดกันไม่ได้ จงหาว่าจะมีวิธีทาสีได้ทั้งหมดกี่แบบ” เนื่องจากผมขี้เกียจคิดผมเลยให้ Mathematica นับให้ดังนี้ครับ: colors … ตัวอย่างการใช้ Mathematica ช่วยนับของให้ครับRead more
math
1 กัป = กี่ปีเอ่ย (แก้ไขการคำนวณ)
ผมสงสัยว่าเวลาคนพูดว่าชั่วกัปชั่วกัลป์เขาหมายถึงเวลายาวแค่ไหนแน่เลยเคยคำนวณไว้ที่ https://witpoko.com/?p=448 เมื่อสี่ปีที่แล้ว วันนี้พึ่งมีคนมาทักว่าคำนวณผิด ผมเลยเข้ามาดูแล้วพบว่าผมคำนวณผิดจริงๆด้วย เลยมาคำนวณใหม่ครับ ปล. พระไตรปิฎกถูกเขียนบันทึกหลังจากเวลาของพระพุทธเจ้าประมาณ 400-500 ปี ไม่แน่ใจว่าจำนวนศูนย์ในหลักตัวเลขต่างๆอาจจะหายหรืองอกในระหว่างเวลานั้นกี่ตัวเหมือนกันครับ พระอาจจำผิดพลาดก็ได้ ช่วงตัวเลขมันถึงห่างกันหลายเท่าเกินไป 🙂 จากวิธีนับกัป ใน Wikipedia: … 1 กัป = กี่ปีเอ่ย (แก้ไขการคำนวณ)Read more
สร้าง Bifurcation Diagram แบบง่ายๆ
พอดีมีนักเรียนตั้งกระทู้ถามเรื่องการวาดรูปเรื่อง Bifurcation Diagram เมื่อคืน ผมเลยทดลองวาดบน Mathematica เห็นว่าวิธีวาดง่ายดี เลยมาบันทึกไว้เผื่อมีใครค้นหาอีกในอนาคต ถ้าจะลองก็คัดลอกเอาไปลองได้เลย แล้วเปลี่ยนนู่นเปลี่ยนนี่เล่นดูเอง (* กำหนด mapping ที่เราสนใจ อันนี้เรียกว่า logistic … สร้าง Bifurcation Diagram แบบง่ายๆRead more