(Optimization) The length of the longest ladder that can negotiate the corner depicted in Figure 2 can be determined by computing the value of that minimizes the following function: L (theta) = w1/sin (theta) + w2/sin (pi \[Minus] alpha \[Minus] theta) For the case where w1 = w2 = 2 m, use a numerical method to develop a plot of L versus a range of alpha's from 45 to 135 degrees. 102 C Show Transcribed Text α I have this solution in Mathematica. What I need is to use something else instead of FindMinimum (Or other automatic methods). Probably, i should use optimization: Golden-section search or Parabolic interpolation. Any help? Thanks! Plot[First@ FindMinimum [[2/Sin[th] + 2/Sin[Pi - (alpha Degree) -th], 0th Pi alpha Degree), th], (alpha, 45, 135), PlotRange -> {0, Automatic}] 10 8 80 80 100 120 Show Transcribed Text

Advanced Engineering Mathematics
10th Edition
ISBN:9780470458365
Author:Erwin Kreyszig
Publisher:Erwin Kreyszig
Chapter2: Second-order Linear Odes
Section: Chapter Questions
Problem 1RQ
icon
Related questions
Question
not use ai please
(Optimization) The length of the longest ladder that can negotiate the corner depicted in Figure 2 can be determined by computing
the value of that minimizes the following function:
L (theta) = w1/sin (theta) + w2/sin (pi \[Minus] alpha \[Minus] theta)
For the case where w1 = w2 = 2 m, use a numerical method to develop a plot of L versus a range of alpha's from 45 to 135 degrees.
102
C
Show Transcribed Text
α
Transcribed Image Text:(Optimization) The length of the longest ladder that can negotiate the corner depicted in Figure 2 can be determined by computing the value of that minimizes the following function: L (theta) = w1/sin (theta) + w2/sin (pi \[Minus] alpha \[Minus] theta) For the case where w1 = w2 = 2 m, use a numerical method to develop a plot of L versus a range of alpha's from 45 to 135 degrees. 102 C Show Transcribed Text α
I have this solution in Mathematica. What I need is to use something else instead of FindMinimum (Or other automatic methods).
Probably, i should use optimization: Golden-section search or Parabolic interpolation. Any help? Thanks!
Plot[First@
FindMinimum [[2/Sin[th] + 2/Sin[Pi - (alpha Degree) -th],
0th Pi alpha Degree), th],
(alpha, 45, 135),
PlotRange -> {0, Automatic}]
10
8
80
80
100
120
Show Transcribed Text
Transcribed Image Text:I have this solution in Mathematica. What I need is to use something else instead of FindMinimum (Or other automatic methods). Probably, i should use optimization: Golden-section search or Parabolic interpolation. Any help? Thanks! Plot[First@ FindMinimum [[2/Sin[th] + 2/Sin[Pi - (alpha Degree) -th], 0th Pi alpha Degree), th], (alpha, 45, 135), PlotRange -> {0, Automatic}] 10 8 80 80 100 120 Show Transcribed Text
Expert Solution
steps

Step by step

Solved in 2 steps with 1 images

Blurred answer
Recommended textbooks for you
Advanced Engineering Mathematics
Advanced Engineering Mathematics
Advanced Math
ISBN:
9780470458365
Author:
Erwin Kreyszig
Publisher:
Wiley, John & Sons, Incorporated
Numerical Methods for Engineers
Numerical Methods for Engineers
Advanced Math
ISBN:
9780073397924
Author:
Steven C. Chapra Dr., Raymond P. Canale
Publisher:
McGraw-Hill Education
Introductory Mathematics for Engineering Applicat…
Introductory Mathematics for Engineering Applicat…
Advanced Math
ISBN:
9781118141809
Author:
Nathan Klingbeil
Publisher:
WILEY
Mathematics For Machine Technology
Mathematics For Machine Technology
Advanced Math
ISBN:
9781337798310
Author:
Peterson, John.
Publisher:
Cengage Learning,
Basic Technical Mathematics
Basic Technical Mathematics
Advanced Math
ISBN:
9780134437705
Author:
Washington
Publisher:
PEARSON
Topology
Topology
Advanced Math
ISBN:
9780134689517
Author:
Munkres, James R.
Publisher:
Pearson,