2019年12月29日日曜日

学習環境

新装版 数学読本2 (松坂 和夫(著)、岩波書店)の第8章(円の中にひそむ関数 - 三角関数)、8.3(三角関数と三角形)、いくつかの興味のある問題の問47の解答を求めてみる。



    1. AOB=θ0<θ<π2

      とおく。

      この とき、長方形の面積は、

      2rcosθrsinθ=r22sinθcosθ=r2sin2θ

      また、

      0<θ<π2

      より、

      0<2θ<π0<sin2θ1sin2θ=1

      よって長方形の面積の最大値は、

      r2

    2. 周の長さは、

      2rsinθ+2rcosθ=2rsinθ+2cosθ=25r15sinθ+25cosθcosa=15sina=250<a<π225r15sinθ+25cosθ=25rsinθ+a

      また、

      0<θ+a<π0<sinθ+a1

      よって、 求める長方形の周の長さの最大値は、

      25r

コード

#!/usr/bin/env python3
from sympy import pprint, symbols, sin, cos, pi, plot, Derivative, solveset, Interval

print('47.')

r, x = symbols('r, x', real=True)
f = 2 * r * cos(x) * r * sin(x)
g = 2 * (r * sin(x) + 2 * r * cos(x))
fs = [f, g]
for i, o in enumerate(fs, 1):
    print(f'({i})')
    d = Derivative(o, x, 1)
    d1 = d.doit()
    xs = solveset(d1, x, domain=Interval.open(0, pi / 2))
    for t in [d, d1, xs]:
        pprint(t)
        print()
    for x0 in xs:
        pprint(o.subs({x: x0}))
        print()

p = plot(*[h.subs({r: 1}) for h in fs],
         (x, 0, pi / 2),
         legend=True,
         show=False)
colors = ['red', 'green', 'blue', 'brown', 'orange',
          'purple', 'pink', 'gray', 'skyblue', 'yellow']

for s, color in zip(p, colors):
    s.line_color = color


p.show()
p.save(f'sample47.png')

入出力結果(Zsh、PowerShell、Terminal、Jupyter(IPython))

% ./sample47.py 
47.
(1)
∂ ⎛   2              ⎞
──⎝2⋅r ⋅sin(x)⋅cos(x)⎠
∂x                    

     2    2         2    2   
- 2⋅r ⋅sin (x) + 2⋅r ⋅cos (x)

⎧π⎫
⎨─⎬
⎩4⎭

 2
r 

(2)
∂                          
──(2⋅r⋅sin(x) + 4⋅r⋅cos(x))
∂x                         

-4⋅r⋅sin(x) + 2⋅r⋅cos(x)

{atan(1/2)}

2⋅√5⋅r

%

0 コメント:

コメントを投稿