หนังสือ Algorithms to Live By: The Computer Science of Human Decisions (2016)
ผลงานการเขียนร่วมกันระหว่าง
-Brian Christian นักเขียนชาวอเมริกัน ที่เคยเขียนหนังสือ Bestseller อย่าง The Most Human Human (2011) (เล่มนี้มีข่าวว่าสำนักพิมพ์ salt เอาไปแปลแล้ว) -Tom Griffiths ศาสตราจารย์ด้านจิตวิทยาและวิทยาศาสตร์เกี่ยวกับความรู้ความเข้าใจ(psychology and cognitive science) ที่ UC Berkeley ผู้อำนวยการ UC Berkeley’s Computational Cognitive Science Lab
หนังสือ Algorithms to Live By เป็นหนังสือที่บันเทิงมากกว่าที่คิด คนเขียนเอาหลักคณิตศาสตร์มาประยุกต์ใช้กับชีวิตประจำวันได้อย่างสนุกสนาน และน่าสนใจมาก มีเรื่องให้เอาไปเล่าในวงสนทนากับเพื่อนๆได้อย่างสนุกสนาน เราจะรู้สึกแปลกใจกับผลลัพธ์ทางคณิตศาสตร์ ที่บางครั้งใช้สามัญสำนึกคิดไม่ได้ แต่คณิตศาสตร์ตอบปัญหาเหล่านั้นออกมาเป็นตัวเลขให้เราได้
เราจะได้เจออะไรแบบนี้ตลอดทั้งเล่ม เอาเป็นว่าแนะนำให้อ่านครับ สนุก 5/5 Algorithms to Live By: The Computer Science of Human Decisions by Brian Christian and Tom Griffiths
Option Explicit
Sub WRYChart()
'ประกาศชนิดของตัวแปร
Dim parameterNum As Integer
Dim co As ChartObject
Dim ct As Chart
Dim sc1 As SeriesCollection
Dim ser1 As Series
Dim LC As Long
'ให้สามารถสร้างกราฟตามชุดข้อมูลที่สนใจได้ จึงกำหนดหมายเลขกำกับแล้วอิงจากตัวเลขนั้นเพื่อสร้างกราฟ
parameterNum = InputBox("What parameter would you like to chart?")
'กำหนดหมายเลขของชุดข้อมูลไว้ เท่าไหร่ก็ได้ต้องครอบคลุมจำนวนชุดข้อมูลที่มี เช่น อันนี้มี 100 กราฟที่ต้องสร้าง
If parameterNum > 0 And parameterNum < 100 Then
'ตำแหน่ง(A10) cells ใน excel ที่อยากจะสร้างและวางกราฟลงไป ชื่อและขนาดของกราฟ ในที่นี้มีหลายกราฟ จึงเลือก column ท้ายสุดของข้อมูล และ(offset)เลื่อนลง ตามลำดับชุดข้อมูล
Set co = Sheet3.ChartObjects.Add(Range("A10").Offset(parameterNum, 1).Left, Range("A10").Offset(parameterNum, 1).Top, 450, 200) 'Chart location
co.Name = "parameter number" & parameterNum & "Chart"
'ใส่รายละเอียดของกราฟที่อยากได้ ชื่อกราฟ รายละเอียดของแกน x,y
Set ct = co.Chart
With ct
.HasLegend = True
.HasTitle = True
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Jahr" 'กำหนดป้ายของแกน x โดยเขียนเองเป็นข้อความ
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = Range("F3").Offset(parameterNum, 0).Value 'กำหนดป้ายของแกน y กำหนดให้เปลี่ยนตามข้อมูลใน cells ที่กำหนดไว้
.Axes(xlCategory).CategoryType = xlTimeScale 'ชนิดของข้อมูล
.Axes(xlCategory).BaseUnitIsAuto = True
.Axes(xlCategory).MajorUnit = 2 'กำหนดการแบ่งหน่วย
.Axes(xlCategory).TickLabels.Orientation = xlTickLabelOrientationUpward 'กำหนดการวางตัวป้าย
.ChartTitle.Text = Range("G3").Offset(parameterNum, 0).Value 'กำหนดชื่อ ให้เปลี่ยนตามข้อมูลใน cells (เริ่มที่ G3 เลื่อนตามหมายเลขเลือก) ที่กำหนดไว้
Set sc1 = .SeriesCollection
Set ser1 = sc1.NewSeries
'รายละเอียดข้อมูลของกราฟที่จะสร้าง
With ser1
.Name = Range("G3").Offset(parameterNum, 0).Value 'ชื่อของข้อมูล
.XValues = Range(Range("G3").Offset(0, 1), Range("G3").End(xlToRight)) 'ชุดข้อมูลของแกน x (เลือกที่ตำแหน่ง G3 จนถึงตำแหน่งขาวสุด)
.Values = Range(Range("H3").Offset(parameterNum, 0), Range("L3").Offset(parameterNum, 0)) 'ชุดข้อมูลของแกน x (เลือกที่ตำแหน่ง H3 จนถึง L3)
.ChartType = xlXYScatterSmoothNoMarkers 'ชนิดของกราฟ
.Trendlines.Add(Type:=xlLinear, DisplayRSquared:=True).Select 'เพิ่มเติม การใส่ Trendline และค่า R Square ของเส้น
End With
End With
MsgBox ("That's Perfect!") 'แจ้งเตือนเมื่อกราฟสร้างเสร็จ
Else: MsgBox ("You must enter a parameter number between 1 and 100") 'แจ้งเตือนเมื่อใส่ตัวเลขผิดพลาด
End If
End Sub
ปล. กำหนดชุดข้อมูลของ x, y สามารถกำหนดในรูปแบบนี้ได้เช่นกัน
สัปดาห์ที่แล้วได้ไปเที่ยวงาน CeBIT 2017 (Centrum für Büroautomation, Informationstechnologie und Telekommunikation, (English)Center for Office Automation, Information Technology and Telecommunication) เป็นงานแสดงสินค้าเกี่ยวกับเทคโนโลยี ปีนี้มีญีปุ่นเป็นพาร์ทเนอร์ในการจัดงาน
Standard IEEE 802.11 a/b/g/n/ac
Security WPA2™ – Personal
Frequency 2.4/5.0 GHz
Material: Body ABS / Galvanized Steel / Acrylic Plate
Power: Power 100W max *Power Consumption Operational
Included in the Box: Lyric speaker(body), Manual・Warranty, AC adapter, Power cord
ถ้าหากการแฮคครั้งใหญ่นี้เกิดจากช่องโหว่ในระบบที่มีการแจ้งเตือนก่อนหน้านี้แล้ว แต่ถูกเพิกเฉย เมื่อแฮคเกอร์ใช้ช่องโหว่นั้นแฮคได้สำเร็จ ได้ข้อมูลต่างๆไปมากมาย จากนั้นแค่นำเรื่องของเกาหลีเหนือมาเป็นข้ออ้างในการกระทำครั้งนี้ “Some Men Just Want to Watch the World Burn” ก็เป็นคราวซวยของ Sony Pictures ที่ฝ่ายไอทีเพิกเฉยกับเรื่องที่สำคัญเช่นนั้น แต่อย่างไรก็ตามผู้กระทำให้ผู้อื่นเสียหายดังกล่าวก็ควรได้รับการลงโทษตามกฏหมาย
12.00 – 12.30 น. Iphone application development by Tot
แนะนำวิธีการทำ Iphone App ตั้งแต่เริ่มต้น
ต้องมีเครื่อง Mac
ดาวน์โหลด SDK มาลงเครื่อง
ศึกษาวิธีการเขียน หนังสือ และจาก iTunes U หลักสูตรสอนการสร้าง App ของ Stanford ดีสุด
ทดลองเขียน App ง่ายๆให้ชมเลย
เขียนเสร็จก็ส่งให้ Apple ตรวจสอบ ขั้นตอนนี้เสียงตังค์ด้วยนะ
12.30 – 13.00 น. Making Music with Opensource Software by Siross
ชอบคำนี้ของคุณ Siross “Geek ใด ไม่มีโปรแกรมทำดนตรี ใน PC เป็นคนชอบกลนัก” ฮากันเลย โปรแกรมทำเพลงมีให้เลือกมากมาย ตัวที่เป็น Open source ที่เขาแนะนำคือ LMMS หรือ Linux MultiMedia Studio ดาวน์โหลด ได้ที่ https://lmms.sourceforge.net/download.php รองรับ Windows และ Linux
15.00 – 16.00 น. Mobile OS Showdown by Droidsans และชาวคณะ
เป็นการนั่งคุยกันแบบสบายๆ โดยให้แต่ละคนเป็นตัวแทนของ Mobile OS ได้แก่ Symbian, iOS, Android, Bada, WP7, BB จากนั้นเปรียบเทียบกันแต่ละ OS ด้วยหัวข้อต่างๆดังนี้
บางเรื่องเป็นจุดเด่นของ OS หนึ่ง แต่เป็นจุดด้อยของอีกอันเปรียบเทัยบกันลำบาก ส่วน WP7 เพิ่งจะวางจำหน่าย และยังใหม่อยู่ก็ยากที่จะเปรียบกับชาวบ้าน แต่ที่ฟังดูแล้วน่าสนใจคือ Bada OS ของ Sangsung ในฐานที่เป็น User มันน่าสนใจเลยทีเดียว