[過去ログ]
高校数学の質問スレ Part434 (1002レス)
高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
48: 132人目の素数さん [] 2024/04/08(月) 22:42:06.91 ID:DE/zj2aw 内接円の半径が4で外接円の半径が9である三角形はぎょうさんありますが そのような三角形の面積の最大値は求められますか http://rio2016.5ch.net/test/read.cgi/math/1712376048/48
225: 132人目の素数さん [sage] 2024/04/16(火) 10:27:56.91 ID:zrlvndwL 登録すればテキストベースのWolframScriptが使えるので ダウンロードしてインストール Rに移植して遊ぶ 正整数 n を b 進法の数列にして出力するWolframの関数 IntegerDigits Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= IntegerDigits[2024,2] Out[1]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0} IntegerDigitsをRにone-linerとして移植 IntegerDigits=\(n,b) (n%/% (b^(floor(log(n)/log(b)):0))) %% b > IntegerDigits(2024,2) [1] 1 1 1 1 1 1 0 1 0 0 0 再度、RからWolframにone-linerとして再移植 In[2]:= integerdigits[n_,b_] := Table[Mod[e,b],{e, Table[Quotient[n,d],{d,Table[b^c,{c,Reverse[Range[0,Floor[Log[n]/Log[b]]]]}]}] }] In[3]:= integerdigits[2024,2] Out[3]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0} http://rio2016.5ch.net/test/read.cgi/math/1712376048/225
297: 132人目の素数さん [sage] 2024/04/18(木) 21:21:17.91 ID:64Io791z 四捨五入のネタ Wolframで四捨五入類似の関数Roundの仕様 (R言語も同様の出力をする) Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= Round[2.5] Out[1]= 2 In[2]:= Round[3.5] Out[2]= 4 問題 小数表示された実数の小数第n位を四捨五入する関数aroundを作成せよ。 動作例 In[5]:= around[2.5] Out[5]= 3. In[6]:= around[3.5] Out[6]= 4. In[7]:= around[3.141592,5] Out[7]= 3.1416 http://rio2016.5ch.net/test/read.cgi/math/1712376048/297
298: 132人目の素数さん [sage] 2024/04/18(木) 21:35:00.91 ID:sdwGNJDt Table[1+Sum[Floor[n^(1/n) (Sum[Floor[(Cos[Pi(((x-1)!+1)/x)])^2],{x,1,m}])^(-1/n)],{m,1,2^n}],{n,1,10}] Table[1+Sum[Floor[n^(1/n) (Sum[If[IntegerQ[((x-1)!+1)/x],1,0],{x,1,m}])^(-1/n)],{m,1,2^n}],{n,1,10}] Table[1+Sum[Floor[n^(1/n) (1+Sum[If[PrimeQ[x],1,0],{x,2,m}])^(-1/n)],{m,1,2^n}],{n,1,10}] 実質これらは同じもの。下に行くほど速い。 ただし、第一の式は、素数を10個表示するだけで、10秒近くかかる http://rio2016.5ch.net/test/read.cgi/math/1712376048/298
329: 132人目の素数さん [sage] 2024/04/19(金) 18:43:59.91 ID:5mt38Sq8 おまけ In[29]:= PrimePi[29996224275833] Out[29]= 1000000000000 In[30]:= PrimePi[29996224279379] Out[30]= 1000000000100 In[31]:= PrimePi[463]-PrimePi[100] Out[31]= 65 http://rio2016.5ch.net/test/read.cgi/math/1712376048/329
383: 132人目の素数さん [] 2024/04/21(日) 17:01:55.91 ID:34PQz0TW 類似問題 S(k,n) = Σ[j=k,n] 1/j^2.0001 とする。 以下の極限の収束・発散を判定せよ。 lim[n→∞] Σ[k=1,n] S(k,n) http://rio2016.5ch.net/test/read.cgi/math/1712376048/383
657: 132人目の素数さん [sage] 2024/04/28(日) 20:14:14.91 ID:7ZCPRfd4 >>655 妥当 http://rio2016.5ch.net/test/read.cgi/math/1712376048/657
969: 132人目の素数さん [sage] 2024/05/08(水) 19:51:05.91 ID:s+WGObly >>968 触れないのが正解 粛々とNG http://rio2016.5ch.net/test/read.cgi/math/1712376048/969
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.686s*