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

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

 
Advanced search

41238 Posts in 6174 Topics- by 8091 Members - Latest Member: Korn.sd15
mPEC Forumบทเรียนการใช้โปรแกรม Mathematica (Moderator: psaipetc)การเขียนฟังก์ชัน median
Pages: 1   Go Down
Print
Author Topic: การเขียนฟังก์ชัน median  (Read 5773 times)
0 Members and 1 Guest are viewing this topic.
nhing
neutrino
*
Offline Offline

Posts: 2


« on: January 09, 2007, 11:17:34 PM »

ถ้าเราจะสร้างฟังก์ชันมัธยฐานเอง (ในรูป list) โดยใช้คำสั่ง Sort

median[l, List] := (n = Length[l]; l2 = Sort[l]); If[Mod[n, 2] == 0, (l2〚n/2〛 + l2〚n/2 + 1〛)/2, l2〚(n + 1)/2〛]

median[{1,3,4,5}]  กด shift Enter แล้วทำไมมันไม่ออกคับ
Logged
psaipetc
Moderator
SuperHelper
*****
Offline Offline

Posts: 653


kostuff.blogspot.com


WWW
« Reply #1 on: January 10, 2007, 04:39:11 PM »

median[l,List] ควรจะเป็น median[l_List] ครับ

อีกอย่าง ควรจะเก็บคำสั่งหลายๆอันไว้ใน Module[] ตัวแปรที่ชื่อซ้ำจะได้ไม่ถูกเปลี่ยนค่า

เราสามารถใช้ EvenQ[] และ OddQ[] ดูเลขคู่ เลขคี่ได้

เช่น

median[l_List] := Module[{n = Length[l], l2 = Sort[l]},
    If[EvenQ[n],  (l2[[n/2]] + l2[[n/2 + 1]])/2,  l2[[(n + 1)/2]] ]
    ]
Logged

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

Posts: 2


« Reply #2 on: January 13, 2007, 02:57:38 PM »

ขอบคุณมากๆคับบ
Logged
Pages: 1   Go Up
Print
Jump to: