Numerical Methods For Engineering

  • Uploaded by: Bank
  • 0
  • 0
  • June 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Numerical Methods For Engineering as PDF for free.

More details

  • Words: 1,502
  • Pages: 23
ข้อสอบรายวิชา

534310 Numerical Methods for Engineering ภาคเรียนที่ ชื่อ

1

ปี การศึกษา

MR.MAMPAN SANGSA

เบอร์โทรศัพท์

085 -392-9306

อีเมล์

2552

รหัสนิ สิต

50052535

[email protected]

คำาสั่ง

1. ข้อสอบเป็ นแบบอัตนัย จำานวน 5

ข้อ ให้ทำาทุกข้อ ระยะเวลา

3

ชั่วโมง

2. อนุญาตให้ใช้หนังสือ และสืบค้นข้อมูลจากอินเตอร์เน็ตเพื่อหาคำาตอบได้ 3. ให้ใช้ Font Browalia New

ขนาด

ข้อสอบนี้

16 pt

แบบ

regular

ตลอด

4. ให้พิมพ์คำาตอบลงในไฟล์ข้อสอบนี้ และส่งในรูปแบบ PDF หรือ Word

document หรือ

.doc

โดยให้ต้ง ั ชื่อไฟล์ ดังนี้

หรือ

พร้อมทั้งระบุใน

.docx

รหัสนิ สิต

โดยส่งทางอีเมล์มาที่

Subject

[Numerical-52]

Numerical-<รหัสนิ สติ >.pdf [email protected]

ของ อีเมล์ ดังนี้

ส่งคำาตอบของ นาย

50052535

MAMPAN SANGSA

______________________________________________ 1. พิจารณาฟั งก์ชันต่อไปนี้  

2 8 4 +n 3 6 5 

δ=2 3.4 5s in 3 6 0× ก. จงหาค่าของ

δ

สำาหรับ

n=3 5 5

หาคำาตอบโดยใช้วิธี

Code

คือ การเขียนโปรแกรมโดยใช้VBA

ทีใ่ ช้

Private Sub CommandButton1_Click() Dim y As Double Dim x As Double Dim n As Double n = 350 For i = 2 To n x = Cells(i, 1).Value y = 23.45 * Sin(281.11 + x) Cells(i, 2).Value = y

Next i End Sub

Private Sub CommandButton2_Click()

Range("B2:B1000").ClearContents

End Sub

คำาตอบ x 1.00 2.00 3.00 4.00 5.00 6.00 7.00 8.00 9.00 10.00 11.00 12.00 13.00 14.00 15.00 16.00 17.00 18.00 19.00 20.00 21.00 22.00 23.00 24.00 25.00 26.00 27.00 28.00 29.00 30.00 31.00 32.00 33.00 34.00 35.00

y -13.88 8.41 22.96 16.41 -5.23 -22.06 -18.61 1.96 20.72 20.44 1.36 -18.96 -21.85 -4.65 16.83 22.84 7.85 -14.35 -23.36 -10.89 11.59 23.42 13.71 -8.60 -23.00 -16.26 5.44 22.13 18.48 -2.16 -20.82 -20.33 -1.15 19.08 21.78

36.00 37.00 38.00 39.00 40.00 41.00 42.00 43.00 44.00 45.00 46.00 47.00 48.00 49.00 50.00 51.00 52.00 53.00 54.00 55.00 56.00 57.00 58.00 59.00 60.00 61.00 62.00 63.00 64.00 65.00 66.00 67.00 68.00 69.00 70.00 71.00 72.00 73.00 74.00 75.00 76.00 77.00 78.00 79.00 80.00 81.00 82.00 83.00

4.45 -16.97 -22.79 -7.65 14.52 23.34 10.70 -11.77 -23.43 -13.54 8.79 23.04 16.11 -5.64 -22.20 -18.35 2.37 20.91 20.23 0.95 -19.20 -21.70 -4.24 17.11 22.74 7.46 -14.68 -23.32 -10.52 11.95 23.43 13.37 -8.99 -23.08 -15.96 5.84 22.27 18.22 -2.58 -21.00 -20.12 -0.74 19.32 21.62 4.04 -17.25 -22.69 -7.26

84.00 85.00 86.00 87.00 88.00 89.00 90.00 91.00 92.00 93.00 94.00 95.00 96.00 97.00 98.00 99.00 100.00 101.00 102.00 103.00 104.00 105.00 106.00 107.00 108.00 109.00 110.00 111.00 112.00 113.00 114.00 115.00 116.00 117.00 118.00 119.00 120.00 121.00 122.00 123.00 124.00 125.00 126.00 127.00 128.00 129.00 130.00 131.00

14.84 23.30 10.33 -12.13 -23.44 -13.20 9.18 23.12 15.80 -6.04 -22.33 -18.09 2.78 21.10 20.02 0.53 -19.44 -21.54 -3.84 17.39 22.63 7.06 -15.00 -23.27 -10.15 12.31 23.45 13.03 -9.37 -23.15 -15.65 6.24 22.39 17.96 -2.99 -21.19 -19.91 -0.32 19.56 21.46 3.63 -17.53 -22.58 -6.86 15.16 23.25 9.96 -12.48

132.00 133.00 134.00 135.00 136.00 137.00 138.00 139.00 140.00 141.00 142.00 143.00 144.00 145.00 146.00 147.00 148.00 149.00 150.00 151.00 152.00 153.00 154.00 155.00 156.00 157.00 158.00 159.00 160.00 161.00 162.00 163.00 164.00 165.00 166.00 167.00 168.00 169.00 170.00 171.00 172.00 173.00 174.00 175.00 176.00 177.00 178.00 179.00

-23.45 -12.86 9.56 23.18 15.49 -6.44 -22.45 -17.82 3.19 21.27 19.80 0.12 -19.67 -21.37 -3.43 17.67 22.52 6.66 -15.32 -23.22 -9.77 12.66 23.45 12.68 -9.75 -23.21 -15.34 6.64 22.51 17.69 -3.40 -21.36 -19.68 0.09 19.78 21.29 3.22 -17.81 -22.46 -6.47 15.47 23.19 9.58 -12.83 -23.45 -12.51 9.93 23.24

180.00 181.00 182.00 183.00 184.00 185.00 186.00 187.00 188.00 189.00 190.00 191.00 192.00 193.00 194.00 195.00 196.00 197.00 198.00 199.00 200.00 201.00 202.00 203.00 204.00 205.00 206.00 207.00 208.00 209.00 210.00 211.00 212.00 213.00 214.00 215.00 216.00 217.00 218.00 219.00 220.00 221.00 222.00 223.00 224.00 225.00 226.00 227.00

15.18 -6.84 -22.57 -17.55 3.60 21.45 19.57 -0.30 -19.89 -21.20 -3.01 17.94 22.40 6.27 -15.63 -23.16 -9.39 13.01 23.45 12.33 -10.12 -23.27 -15.02 7.04 22.62 17.41 -3.81 -21.53 -19.45 0.51 20.00 21.11 2.81 -18.07 -22.34 -6.07 15.78 23.12 9.20 -13.18 -23.44 -12.15 10.31 23.29 14.86 -7.23 -22.68 -17.27

228.00 229.00 230.00 231.00 232.00 233.00 234.00 235.00 236.00 237.00 238.00 239.00 240.00 241.00 242.00 243.00 244.00 245.00 246.00 247.00 248.00 249.00 250.00 251.00 252.00 253.00 254.00 255.00 256.00 257.00 258.00 259.00 260.00 261.00 262.00 263.00 264.00 265.00 266.00 267.00 268.00 269.00 270.00 271.00 272.00 273.00 274.00 275.00

4.01 21.61 19.34 -0.71 -20.11 -21.02 -2.60 18.20 22.27 5.86 -15.94 -23.09 -9.01 13.35 23.44 11.98 -10.50 -23.32 -14.70 7.43 22.73 17.13 -4.22 -21.69 -19.22 0.92 20.21 20.92 2.40 -18.33 -22.21 -5.66 16.09 23.05 8.82 -13.52 -23.43 -11.80 10.68 23.34 14.54 -7.63 -22.78 -16.99 4.42 21.77 19.10 -1.13

276.00 277.00 278.00 279.00 280.00 281.00 282.00 283.00 284.00 285.00 286.00 287.00 288.00 289.00 290.00 291.00 292.00 293.00 294.00 295.00 296.00 297.00 298.00 299.00 300.00 301.00 302.00 303.00 304.00 305.00 306.00 307.00 308.00 309.00 310.00 311.00 312.00 313.00 314.00 315.00 316.00 317.00 318.00 319.00 320.00 321.00 322.00 323.00

-20.32 -20.83 -2.19 18.46 22.14 5.46 -16.24 -23.01 -8.63 13.69 23.42 11.62 -10.86 -23.36 -14.38 7.82 22.83 16.85 -4.63 -21.84 -18.98 1.33 20.42 20.73 1.98 -18.59 -22.07 -5.26 16.39 22.97 8.43 -13.86 -23.41 -11.44 11.05 23.37 14.21 -8.02 -22.88 -16.70 4.83 21.92 18.86 -1.54 -20.52 -20.64 -1.78 18.72

324.00 325.00 326.00 327.00 328.00 329.00 330.00 331.00 332.00 333.00 334.00 335.00 336.00 337.00 338.00 339.00 340.00 341.00 342.00 343.00 344.00 345.00 346.00 347.00 348.00 349.00

22.00 5.06 -16.54 -22.93 -8.24 14.02 23.39 11.25 -11.23 -23.39 -14.04 8.21 22.92 16.55 -5.03 -21.99 -18.73 1.75 20.62 20.54 1.57 -18.84 -21.93 -4.85 16.68 22.88

ข. จงพล็อตกราฟของฟั งก์ชันดังกล่าว

รูปกราฟ

0 จงหาค่า 2. จากฟั งก์ชันในข้อที่ 1 หาก δ=1 เป็ นจริง

แนวคิดที่ใช้ในการหาค่า

n

10 = 23.45 * sin(280.11)+sin(n) Sin(n)=10/23.45*sin(280.11) Y=sin(n) n = sin

-1

Y

n

ที่ทำาให้สมการดังกล่าว

Code

ทีใ่ ช้

Private Sub CommandButton1_Click() Dim y As Double y = 10 / (23.45 * Sin(280.11)) Cells(2, 2).Value = y End Sub

คำำตอบ y= y= n=

0.8762 7 sin(n) -61.2

3. พิจารณาอินทิกรัลต่อไปนี้ exs in x ∫0 1+x2 dx 3

ก. จงอินทิเกรตฟั งก์ชน ั ในอินทิกรัล โดยไม่ต้องคำานึ งถึงลิมต ิ (นั่นคือการ หาอินทิกรัลแบบไม่จำากัดเขต-indefinite ตอบเป็ นฟั งก์ชัน

ใช้วิธีในการหาคำาตอบ คือ 3

integral

นั่นเอง) โดยให้

Integral

=

∫ 0

( (exp(x) *sin(x)) / (1+x^2))

ข. จงหาค่าของอินทิกรัลข้างต้น เลือกใช้วิธี เลือกใช้

VBA

เพือ ่

เขียนฟั งก์ชัน Function SimpsonAuto(a as Double, b as Double,

Tol as Double) as Double ซึ่งคำำนวณหำอินทิกรัลของฟั งก์ชัน f ทีผ ่ ู้ใชู กำำหนด โดยใหูมีค่ำควำมผิดพลำดไม่เกินค่ำ Tol ที่ผู้ใชูเป็ นผู้กำำหนด

Code

ทีใ่ ช้

Private Sub CommandButton1_Click() Dim N As Integer, M As Integer Dim h As Double Dim a As Double Dim b As Double Dim Integral As Double Dim err As Double Dim Tol As Double a = Cells(25, 4) b = Cells(23, 4)

dx

Tol = Cells(20, 5) Cells(28, 5) = SimpsonAuto(a, b, Tol) End Sub Function SimpsonAuto(a As Double, b As Double, Tol As Double) As Double Dim h As Double Dim err As Double Dim Ans(1000) As Double Dim Tempa As Double Dim Tempb As Double Dim X(1000) As Double Tempa = a Tempb = b For N = 2 To 1000 a = Tempa b = Tempb h = (b - a) / N

i=0 X(i) = a Do While True i=i+1 If i = N Then X(i) = b Else X(i) = X(i - 1) + h End If If i = N Then Exit Do Loop M=N/2 i=0 SimpsonAuto = 0 SimpsonAuto = SimpsonAuto + f(X(0)) For i = 1 To M - 1 SimpsonAuto = SimpsonAuto + 2 * f(X(2 * i))

Next For i = 1 To M SimpsonAuto = SimpsonAuto + 4 * f(X((2 * i) - 1)) Next SimpsonAuto = SimpsonAuto + f(X(2 * M)) SimpsonAuto = SimpsonAuto * h / 3 Cells(30, 5) = N Ans(N) = SimpsonAuto If Abs(Ans(N) - Ans(Int(N / 2))) < Tol Then Exit For Next End Function Function f(X As Double) As Double Dim s As String Dim t As String Dim fx As String Cells(17, 8) = X fx = Cells(24, 5)

s = Replace(LCase(fx), "exp", "???") s = Replace(s, "x", "(H17)") s = Replace(s, "???", "exp") Cells(18, 8) = "=" + s f = Cells(18, 8) End Function

y ( 0 )= 2 ........................................................................

ได้คำาตอบ คือ

Calculation Support Tol =

Integral

=

Answer

=

3 ∫ 0

x f(x)

3 0.283447

0.0001

( (exp(x) *sin(x)) / (1+x^2))

2.881642616

dx

N

=

24 Integral

4.

จงหาผลเฉลยของสมการเชิงอนุพันธ์สามัญ

differential equation)

(Ordinary

ดังต่อไปนี้

dy −y = dx 1+x

( 0 )= 2 เมื่อ y วิธีท่ีเลือกใช้ คือ

Code

ที่ใช้

....................................................................

................................................................................... ................................................................................... ผลเฉลย คือ

....................................................................

................................................................................... ................................................................................... กราฟของผลเฉลย

5.

จงแสดงวิธีการแก้ระบบสมการต่อไปนี้ 3x2 −13x3 =−50 2x1 −6x2 +x3 =45 4x1 +8x3 =4

วิธีท่ีเลือกใช้ คือ

เลือกใช้วิธี Octave เพราะการหา Matrix

ง่ายขึน ้ แล้ะรวดเร็ว ................................................................................... แสดงวิธีการแก้สมการ

การสมการนีไ้ ปใช้ต้องสลับทีจ ่ งึ จะหาคำาตอบได้ 3x2 −13x3 =−50 2x1 −6x2 +x3 =45 4x1 +8x3 =4

การสลับที ่ 2x1 – 6x2 +x3 =45 3x2 – 13x3 =-50 4x1 +8x3 =4 โค้ดคำำทีเ่ ขียนเพือ ่ เรียกมำใช้เพือ ่ หำคำำตอบ function guassian(A, b) A

b [m,n] = size(A); for k=1:n-1 for i=k+1:m h = A(i,k)/A(k,k); A(i,:) = A(i,:) - A(k,:)*h; b(i,:) = b(i,:) - b(k,:)*h; end Ans = [A, b]; end Ans

x = A\b endfunction วิธีกำรเขียนใน Octave octave-3.0.1.exe:3> A=[2 -6 1;0 3 -13;4 0 8] A= 2

-6

1

0

3 -13

4

0

8

octave-3.0.1.exe:4> m=1/2 m = 0.50000 octave-3.0.1.exe:5> A(1,:)=m*A(1,:) A= 1.00000

-3.00000

0.50000

0.00000

3.00000 -13.00000

4.00000

0.00000

8.00000

octave-3.0.1.exe:6> b=[45 -50 4]'

b= 45 -50 4

octave-3.0.1.exe:7> m=1/2 m = 0.50000 octave-3.0.1.exe:8> b(1,:)=m*b(1,:) b=

22.5000 -50.0000 4.0000

คำำตอบทีไ่ ด้คอ ื octave-3.0.1.exe:9> guassian(A,b)

Related Documents


More Documents from "SRINIVASA RAO GANTA"

Aim Star
June 2020 19
June 2020 18
June 2020 17