01204435/haskell2 - ประวัติรุ่นแก้ไข

Jittat เมื่อ 10:56, 4 กรกฎาคม 2556

2013-07-04T10:56:01Z

Jittat เมื่อ 10:54, 4 กรกฎาคม 2556

2013-07-04T10:54:38Z

Jittat: /* processInput */

2013-07-04T10:53:34Z

processInput

Jittat: /* processInput */

2013-07-04T10:52:12Z

processInput

Jittat: /* processInput */

2013-07-04T10:51:18Z

processInput

Jittat: /* processInput */

2013-07-04T10:50:07Z

processInput

Jittat: /* การอ่าน input/output */

2013-07-04T10:47:50Z

การอ่าน input/output

Jittat: /* การอ่าน input/output */

2013-07-04T10:42:47Z

การอ่าน input/output

Jittat: /* ทำนาย */

2013-07-04T10:42:32Z

ทำนาย

Jittat: /* I/O */

2013-07-04T10:20:04Z

I/O

←รุ่นแก้ไขก่อนหน้า		รุ่นแก้ไขเมื่อ 10:56, 4 กรกฎาคม 2556
แถว 150:		แถว 150:
	l <- readFile fname		l <- readFile fname
	return (train (0,0) (processInput l))		return (train (0,0) (processInput l))
		+
		+	== ทดสอบ weight (extra) ===
		+
		+	ถ้าเป็นไปได้ ควรทดลองเขียนฟังก์ชันที่นำ weight vector ที่ได้ไปทดสอบความถูกต้องกับข้อมูลที่ใช้ฝึกสอนและคืนค่าเปอร์เซ็นต์ความถูกต้องออกมา

@@ แถว 3: / แถว 3: @@
 * อ่านรายละเอียดของ [[01204472/perceptron algorithm|Perceptron algorithm]]
 * อ่านรายละเอียดของแฟ้มข้อมูลทดสอบ: [[01204472/การทดลองเกี่ยวกับเวกเตอร์#ทดลองอัลกอริทึม perceptron|การทดลองเกี่ยวกับ perceptron]]
 เราจะนิยามชนิดข้อมูล Vector เพื่อความสะดวกต่อไป

@@ แถว 129: / แถว 129: @@
 ตัวอย่างเช่น
-  *Main> processInput "3\n-7.25968563254 -8.90106971694 -1\n10.0775476977 10.9047811515 1\n11.4787876953 8.53005080898 1\n"
+  *Main> processInput "3\n-7.259 -8.901 -1\n10.077 10.904 1\n11.478 8.530 1\n"
-  [((-7.25968563254,-8.90106971694),-1),((10.0775476977,10.9047811515),1),((11.4787876953,8.53005080898),1)]
+  [((-7.259,-8.901),-1),((10.077,10.904),1),((11.478,8.530),1)]
 ในการแปลงดังกล่าว ฟังก์ชันสตริงที่อาจจะต้องใช้ เช่น ฟังก์ชัน lines [http://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.html#v:lines] และ ฟังก์ชัน words [http://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.html#v:words]

←รุ่นแก้ไขก่อนหน้า		รุ่นแก้ไขเมื่อ 10:52, 4 กรกฎาคม 2556
แถว 140:		แถว 140:
	*Main> words "-7.25968563254 -8.90106971694 -1"		*Main> words "-7.25968563254 -8.90106971694 -1"
	["-7.25968563254","-8.90106971694","-1"]		["-7.25968563254","-8.90106971694","-1"]
		+
		+	=== trainFromFile ===
		+
		+	ในส่วนที่อ่านข้อมูลจากไฟล์ เราจะใช้ฟังก์ชันดังด้านล่าง สำหรับการใช้งาน do <- และ return เราจะกล่าวถึงต่อไป
		+
		+	trainFromFile fname =
		+	do
		+	l <- readFile fname
		+	return (train (0,0) (processInput l))

←รุ่นแก้ไขก่อนหน้า		รุ่นแก้ไขเมื่อ 10:51, 4 กรกฎาคม 2556
แถว 135:		แถว 135:

	ซึ่งใช้งานได้ดังตัวอย่างด้านล่าง		ซึ่งใช้งานได้ดังตัวอย่างด้านล่าง
		+
		+	*Main> lines "1234\n6789\n101213\n"
		+	["1234","6789","101213"]
		+	*Main> words "-7.25968563254 -8.90106971694 -1"
		+	["-7.25968563254","-8.90106971694","-1"]

←รุ่นแก้ไขก่อนหน้า		รุ่นแก้ไขเมื่อ 10:50, 4 กรกฎาคม 2556
แถว 132:		แถว 132:
	[((-7.25968563254,-8.90106971694),-1),((10.0775476977,10.9047811515),1),((11.4787876953,8.53005080898),1)]		[((-7.25968563254,-8.90106971694),-1),((10.0775476977,10.9047811515),1),((11.4787876953,8.53005080898),1)]

−	ในการแปลงดังกล่าว ฟังก์ชันสตริงที่อาจจะต้องใช้ เช่น ฟังก์ชัน lines และ ฟังก์ชัน words	+	ในการแปลงดังกล่าว ฟังก์ชันสตริงที่อาจจะต้องใช้ เช่น ฟังก์ชัน lines [http://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.html#v:lines] และ ฟังก์ชัน words [http://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.html#v:words]
		+
		+	ซึ่งใช้งานได้ดังตัวอย่างด้านล่าง

←รุ่นแก้ไขก่อนหน้า		รุ่นแก้ไขเมื่อ 10:47, 4 กรกฎาคม 2556
แถว 108:		แถว 108:

	strToInt s = (read s :: Int)		strToInt s = (read s :: Int)
		+
		+	=== processInput ===
		+
		+	เขียนฟังก์ชัน processInput ที่รับสตริงในรูปแบบ
		+
		+	จำนวนข้อมูล
		+	ข้อมูล1
		+	ข้อมูล2
		+	ข้อมูล3
		+	...
		+
		+	โดยที่บรรทัดที่เป็นข้อมูล ประกอบไปด้วย Double สองตัวและ Int หนึ่งตัว เช่น
		+
		+	-7.25968563254 -8.90106971694 -1
		+
		+	โดยที่จำนวนจริงสองตัวแรกเป็นพิกัดของข้อมูล และ จำนวนเต็มตัวที่สามเป็นประเภทข้อมูล (มีค่าเป็น -1 หรือ 1)
		+
		+	และคืนค่าเป็นรายการของข้อมูลสำหรับส่งให้ฟังก์ชัน train
		+
		+	ตัวอย่างเช่น
		+
		+	*Main> processInput "3\n-7.25968563254 -8.90106971694 -1\n10.0775476977 10.9047811515 1\n11.4787876953 8.53005080898 1\n"
		+	[((-7.25968563254,-8.90106971694),-1),((10.0775476977,10.9047811515),1),((11.4787876953,8.53005080898),1)]
		+
		+	ในการแปลงดังกล่าว ฟังก์ชันสตริงที่อาจจะต้องใช้ เช่น ฟังก์ชัน lines และ ฟังก์ชัน words

←รุ่นแก้ไขก่อนหน้า		รุ่นแก้ไขเมื่อ 10:42, 4 กรกฎาคม 2556
แถว 95:		แถว 95:

	เราจะเขียนฟังก์ชันที่ประมวลผล input / output โดยที่รับ input เป็นสตริง และคืนผลลัพธ์เป็น weight vector ก่อน จากนั้นเราถึงจะเขียนฟังก์ชันที่อ่านข้อมูลจากไฟล์จริงชื่อ trainFromFile ซึ่งฟังก์ชันดังกล่าวนี้จะมี type พิเศษ		เราจะเขียนฟังก์ชันที่ประมวลผล input / output โดยที่รับ input เป็นสตริง และคืนผลลัพธ์เป็น weight vector ก่อน จากนั้นเราถึงจะเขียนฟังก์ชันที่อ่านข้อมูลจากไฟล์จริงชื่อ trainFromFile ซึ่งฟังก์ชันดังกล่าวนี้จะมี type พิเศษ
		+
		+	=== แปลงจาก String เป็น Int และ Double ===
		+
		+	เราสามารถใช้ฟังก์ชัน read ได้ เช่น
		+
		+	*Main> read "100" :: Int
		+	100
		+	*Main> read "100.343" :: Double
		+	100.343
		+
		+	หรืออาจจะเขียนฟังก์ชันได้ เช่น
		+
		+	strToInt s = (read s :: Int)

@@ แถว 64: / แถว 64: @@
   predictAll :: Vector -> [Vector] -> [Int]
-ที่รับ w และ list xs จากนั้นทำนายข้อมูลทุกตัวใน xs  ให้ลองเขียนด้วยฟังก์ชัน map
+ที่รับ w และ list xs จากนั้นทำนายข้อมูลทุกตัวใน xs  ให้ลองเขียนด้วยฟังก์ชัน map (ดูตัวอย่างที่ [http://www.haskell.org/haskellwiki/Function])
 ตัวอย่าง

←รุ่นแก้ไขก่อนหน้า		รุ่นแก้ไขเมื่อ 10:20, 4 กรกฎาคม 2556
แถว 92:		แถว 92:
	ที่รับ weight vector เริ่มต้น และ train ข้อมูลฝึกหัดที่อยู่ใน xs ทั้งหมด		ที่รับ weight vector เริ่มต้น และ train ข้อมูลฝึกหัดที่อยู่ใน xs ทั้งหมด

−	== I/O ==	+	== การอ่าน input/output ==
		+
		+	เราจะเขียนฟังก์ชันที่ประมวลผล input / output โดยที่รับ input เป็นสตริง และคืนผลลัพธ์เป็น weight vector ก่อน จากนั้นเราถึงจะเขียนฟังก์ชันที่อ่านข้อมูลจากไฟล์จริงชื่อ trainFromFile ซึ่งฟังก์ชันดังกล่าวนี้จะมี type พิเศษ