"항등식의 확인"의 두 판 사이의 차이
둘러보기로 가기
검색하러 가기
Pythagoras0 (토론 | 기여) |
|||
| (같은 사용자의 중간 판 3개는 보이지 않습니다) | |||
| 1번째 줄: | 1번째 줄: | ||
| − | # FullSimplify[ArcTan[x] - ArcSin[Sqrt[x^2/(1 + x^2)]]] | + | # FullSimplify[ArcTan[x] - ArcSin[Sqrt[x^2/(1 + x^2)]]] Table[% /. {x -> Random[], y -> Random[]}, {20}] // Chop |
| − | + | ||
| − | # f[x_, n_] := Hypergeometric2F1[(1 - n)/2, (1 + n)/2, (x + 1)/2, 1/2] | + | # f[x_, n_] := Hypergeometric2F1[(1 - n)/2, (1 + n)/2, (x + 1)/2, 1/2] g[x_, n_] := (Sqrt[Pi] 2^((1 - x)/2) Gamma[(x + 1)/2])/( Gamma[1/4 (x - n + 2)] Gamma[1/4 (x + n + 2)]) Table[{f[x, n], g[x, n]} /. {n -> RandomReal[{-10, 10}], x -> RandomReal[{0.1, 10}]}, {20}] // TableForm |
| + | [[분류:매스매티카]] | ||
| + | [[분류:계산 리소스]] | ||
2020년 12월 28일 (월) 03:11 기준 최신판
- FullSimplify[ArcTan[x] - ArcSin[Sqrt[x^2/(1 + x^2)]]] Table[% /. {x -> Random[], y -> Random[]}, {20}] // Chop
- f[x_, n_] := Hypergeometric2F1[(1 - n)/2, (1 + n)/2, (x + 1)/2, 1/2] g[x_, n_] := (Sqrt[Pi] 2^((1 - x)/2) Gamma[(x + 1)/2])/( Gamma[1/4 (x - n + 2)] Gamma[1/4 (x + n + 2)]) Table[{f[x, n], g[x, n]} /. {n -> RandomReal[{-10, 10}], x -> RandomReal[{0.1, 10}]}, {20}] // TableForm