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

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

 
Advanced search

41616 Posts in 6282 Topics- by 9887 Members - Latest Member: Nature
mPEC Forumบทเรียนการใช้โปรแกรม Mathematica (Moderator: psaipetc)การใช้ ODE ใน mathematica ทำยังไงค่ะ
Pages: 1   Go Down
Print
Author Topic: การใช้ ODE ใน mathematica ทำยังไงค่ะ  (Read 4105 times)
0 Members and 1 Guest are viewing this topic.
oswald
neutrino
*
Offline Offline

Posts: 2


« on: September 02, 2010, 11:10:43 PM »

มีการบ้าน 2 ข้อที่ทำไม่ได้ ใครรู้ช่วยตอบหน่อยค่ะ
1. จงตรวจสอบว่า y = e^5x cos2x เป็นผลเฉลยของสมการเชิงอนุพันธ์ y^(4) - 20y"' + 158y" - 580y' + 841y = 0 หรือไม่
2. จงตรวจสอบว่า y =20cos(5lnx)/x - 3sin(5lnx)/x เป็นผลเฉลยของสมการเชิงอนุพันธ์ x^3 y"' + 2x^2 y" + 20xy' -78y= 0 หรือไม่
Logged
Bright
neutrino
*
Offline Offline

Posts: 212

เราเป็นอย่างไร สังคมเป็นอย่างนั้น


« Reply #1 on: September 03, 2010, 10:21:51 AM »

ไม่รู้เป็นไรใจอ่อนทุกที  ลองดูตัวอย่างของการใช้คำสั่ง D, DSolve นะครับ
การตรวจดูว่าฟังก์ชั่น y ที่ให้มานั้นเป็นผลเฉลยของสมการนั้นๆหรือเปล่า
ก็เพียงแทนฟังก์ชั่น y นั้นลงในสมการ แล้วดูว่ามันทำให้สมการนั้นเป็นจริงหรือเปล่า

ใน Mathematica การเปรียบเทียบว่าสองสิ่งนั้นเท่ากันหรือไม่ ก็เพียงแค่ใช้ == (เครื่องหมายเท่ากับสองอันต่อกัน) มันจะให้คำตอบ True ถ้าสองสิ่งนั้นเท่ากันหรือเหมือนกัน และจะตอบ False ถ้ามันไม่เท่ากัน

ข้อ 1
y[x_] := Exp[5 x]  Cos[2 x]

Simplify[y''''[ x] - 20 y'''[ x] + 158 y''[ x] - 580 y'[ x] + 841 y[ x]] == 0

ข้อ 2
y[x_] := 20 Cos[5 Log[ x]]/x - 3 Sin[5 Log[ x]]/x

Simplify[x^3 y'''[ x] + 2 x^2 y''[ x] + 20 x y'[ x] - 78 y[ x]] == 0
Logged
oswald
neutrino
*
Offline Offline

Posts: 2


« Reply #2 on: September 03, 2010, 04:21:46 PM »

ขอบคุณมากๆเลยค่ะ
Logged
Pages: 1   Go Up
Print
Jump to: