1/sinx+1/sin3x=3「2002横浜国立大学前期経済学部【1】」をChatGPTとMathematicaとWolframAlphaとsympyでやってみたい。

グラフがでます。(sympyのplotでylimを設定)

オリジナル(youtube)MathLABO様より

上と同じです。大学入試数学問題集成＞【1】テキスト

(2023/07/21)

xxxx ChatGPT で(できませんでした。) xxx

入力文

方程式1/sinx+1/sin3x=3の0°<=x<=135°における解の個数を求めよ

Mathematicaで

In:
Solve[1/Sin[x] + 1/Sin[3*x] == 3  && 0 <= x &&  x <= 3/4*\[Pi], x]

Out:
{{x -> \[Pi]/6},
 {x -> 2 ArcTan[Root[2 - # - 8 #^2 - #^3 + 2 #^4& , 3, 0]]}, 
 {x -> 2 ArcTan[Root[2 - # - 8 #^2 - #^3 + 2 #^4& , 4, 0]]}}

グラフより、見た目で3個

In:
p1 = Plot[1/Sin[x] + 1/Sin[3*x], {x, 0, 3/4*\[Pi]}];
p2 = Plot[3                    , {x, 0, 3/4*\[Pi]}];
Show[p1, p2]

WolframAlphaで

グラフより、見た目で3個です。

sympyで(PASSLABO様のやり方)

勉強中

sympyで(sympy的?安易なやり方)

degreeです。

from sympy import *
x=symbols('x',Real=True)
st,en=0,3/4*pi
myEq=Eq(1/sin(x)+1/sin(3*x),3)
print("#",[float(180*n/pi) for n in list(solveset(myEq,x,Interval(st,en)))])
plot(myEq.lhs,3,(x,st,en))
# [30.0, 47.51081249918158, 132.48918750081842]

plotは、縦横比が異なります。
sympyのplotmoduleだと3点に見えませんでした。工夫が必要でした。
@WolfMoon様のコメントより、解決済み。
ylimを設定するそうです。

以下、旧です。

sympyの実行環境

①私の環境は,pycharmです。
②よく聞くのは、Jupyterです。
③web上で、上記のソースを「SymPy Live shell」に、コピー貼り付けでもできました。
黒背景の右上に、マウスを移動すると、コピーマークが発生します。
???　タブレット環境で、コピー貼り付けが実行できませんでした。???

参考

以下、おすすめです。