〓 Mathematica 七〓 [転載禁止]©2ch.net

[過去ﾛｸﾞ] 〓 Mathematica 七〓 [転載禁止]©2ch.net (995ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

106: 2015/12/08(火) 00:14:04.66 ID:KipLHGUT(1)調 AAS
俺もグラフィックスオブジェクトをShowする方が好きだな
Maximaに書き換えるとき見た目を合わせ易いし

107: 2015/12/08(火) 03:33:17.43 ID:XscFjqkO(1/2)調 AAS
ただの数字遊びですが、これも面白かったので載せます。

たまねぎのような構造
sol[y_] = Solve[y^3 + y^2 == x^4, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.001}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]

もう良く分からない
sol[y_] = Solve[y^4 + y == x^5 - x^3, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.001}]], {n, 1, 5}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], gr[5], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]

108: 2015/12/08(火) 21:05:53.29 ID:fafZe/EG(1)調 AAS
わけワカメw

109: 2015/12/08(火) 21:20:58.41 ID:XscFjqkO(2/2)調 AAS
連投ごめんなさい、
なんか面白くなってしまいました。

連投制限かMathematicaの記述がエラーに引っかかってしまい
他にも面白い曲線があるのですが投稿できずに残念です。

一番面白い？のはこの
タイトル<虫>です。

sol[y_] = Solve[y^4 + y == x^4*y^2 - x^3, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]

110: 2015/12/12(土) 20:04:05.97 ID:F+My5ir0(1)調 AAS
y^2 + y == x^3 - x^2 に、パラメタpをいれた
即席H-Function:x^3 - p x^2つくってみたがなw
x /. Solve[y^2 + y == x^3 - p x^2, x];
Animate[Plot[Evaluate[Re[%]], {y, -1.5, 0.5},
PlotRange -> {-1, 1},
Filling -> {1 -> {{3}, LightPink}, 2 -> {Top, LightPink}},
Axes -> False], {p, 0.1, 0.9}, AnimationRunning -> False]

111: 2015/12/12(土) 22:59:23.40 ID:mv17/rkp(1)調 AAS
返信ありがとうございます。
早速ノートブックにコピペしていじってみましたが、
当方Mathematica４を使用しておりまして再現できませんでした。

sol[y_] = Solve[y^2 + y == x^3 - p*x^2, x]
p = 1.5
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 3}]
anim = Table[Show[gr[1], gr[2], gr[3], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/6, 2*Pi, Pi/6}]

このようにpを変化させてできる曲線でイメージはよろしいのでしょうか？
さらに、H-Functionについて不勉強で理解できておりませんのでご教授頂ければ幸いです。

追伸

面白い曲線　タイトル <ケルベロス>

sol[y_] = Solve[y^4 + y == x^4*y - x^3, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.01}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]

112: 2015/12/13(日) 00:25:12.81 ID:axvNzcue(1)調 AAS
ケルベロス？　なんじゃこりゃ

H(えっち)-Functionは、
"Mathematica版「おっぱい（曲面）方程式」"
でググれば判る様な、無意味な遊びです。

113: 2015/12/13(日) 02:25:11.92 ID:RhssocmV(1)調 AAS
紳士の遊びですね？ｗ

ケルベロスと名付けたのは、犬みたいな形で顔の部分が3本の曲線だからです。
なんか、>>1 のAAのキャラクターが出てくるアニメに出てきたような記憶が。

こんな曲線もあります <鼓>

sol[y_] = Solve[y^4 + y == x^4 - x^2, x]
ans[j_, t_] := x /. sol[t][[j]]
Do[gr[n] = Graphics3D[Table[Point[{Re[ans[n, t]], Im[ans[n, t]], t}], {t, -2, 1, 0.001}]], {n, 1, 4}]
anim = Table[Show[gr[1], gr[2], gr[3], gr[4], ViewPoint -> {20*Sin[s], 20*Cos[s], 0}], {s, Pi/24, 2*Pi, Pi/24}]

114: 2015/12/19(土) 21:54:10.67 ID:mzCHiIu8(1)調 AAS
人並みに扱われて勘違いしている田舎者チョンのニケア信教 ◆BkMobJaj1A
こと山出しのニケア信教 ◆BkMobJaj1A。
その無知無教養さ加減はハゲの中でも下の下。
大阪大学や関西大学の学生からも馬鹿にされる為体。
St Marco Passion ◆BkMobJaj1A の臆病無比な卑劣さは、最底辺のハゲキモ蛆虫に劣る嫌らしさ！
こんな化け物老去勢オカマの存在を、我が国は赦しておいてはいけない。
早々にこの河馬ヅラをしたアナル変質者を朝鮮半島パクのもとへ強制送還させよう！！！

115: 2015/12/25(金) 14:34:39.76 ID:biauouUl(1)調 AAS
ParallelDoの中で添字付共有変数を使いたいんだけどどうすればよいですか？
以下のように書いたらエラーが出てしまいました：

Clear[a];
Do[a[i]=0, {i,1,10}]; (* 初期値 *)

SetSharedVariable[a];
ParallelDo[a[i]=i,{i,1,10}] (* 並列計算 *)

Do[Print[a[i]],{i,1,10}]

116(1): 2015/12/28(月) 00:59:30.78 ID:NFbTjtr3(1)調 AAS
添字付き変数渡しは、Headのせいか難しいっぽい。
答えにはなっていませんが、ListのPart扱いなら、
a = {};
Do[AppendTo[a, 0], {10}](*初期値*)
SetSharedVariable[a];
ParallelDo[a[[i]] = i, {i, 1, 10}] (*並列計算*)
Do[Print[a[[i]]], {i, 1, 10}]

117: 2015/12/28(月) 11:25:53.74 ID:XH7cvZlD(1)調 AAS
>>116
どうもです
私も結局リファレンス通りListで渡しました
ParallelDoでかなり高速化できました

しかし並列カーネル4個追加で\73,440って高いっす

118: 2016/02/03(水) 17:25:33.87 ID:REZsa8b9(1)調 AAS
馬鹿な日本人ほど海外を崇めて、海外はすごいとかほめそやして
挙句の果てに日本人に留学を勧めたり海外の大学を勧めたりするが
実際は外人なんてクズばかりで勉強しないくせに選民意識だけは高いし
人種差別は平気でするしでどうしようもない
留学なんて奨励してる奴はキチガイですわ
mathematicaの値段も頭おかしいのか？日本人が優秀だから日本でmathematicaを売ると
技術的にボロ負けしてしまうと危惧してるんだろうか？おそらくそうだろう。
アメリカがすごいのは大学や研究なんかじゃなくて金を荒稼ぎしてるからだからであって
日本が真似すると大やけどどころか沈没だよ。馬鹿な日本人ほどアメリカの真似したがるけど。
日本がすごいのは日本人が頑張ってきたからだよ。

119: 2016/02/03(水) 20:57:46.08 ID:VcbUmeJE(1)調 AAS
Mathematica は所属してる大学とか組織でライセンス取るものだろ。

120(1): 2016/02/04(木) 09:53:50.95 ID:2sg1Gtew(1/3)調 AAS
Mathematicaで理工学部程度の数学が学べるおすすめの書籍を教えてください。

121: 2016/02/04(木) 09:56:19.03 ID:2sg1Gtew(2/3)調 AAS
または理工学部程度の数学でMathematicaを学べる書籍を教えてください。

122: 2016/02/04(木) 11:25:15.90 ID:A+CLB+hi(1/2)調 AAS
対して数出ていないし古いのしかないから
図書館検索で全部借りればいい

123(2): 2016/02/04(木) 11:27:18.89 ID:A+CLB+hi(2/2)調 AAS
俺のお気に入りはこれ
外部ﾘﾝｸ:www.kinokuniya.co.jp

124: 2016/02/04(木) 11:46:32.82 ID:2sg1Gtew(3/3)調 AAS
>>123
おもしろそうです

125: 2016/02/04(木) 18:55:14.58 ID:h6GhpBCQ(1)調 AAS
ませまちか　は　○○○で　○○す物

126: 2016/02/05(金) 19:02:15.13 ID:VmFpJCfn(1)調 AAS
センター試験や大学入試問題をコマンド一発で解けるのは感動
証明と図形以外の問題で解けないのはないだろって
逆に言えばその二つが出来れば完璧なのに

127: 2016/02/05(金) 20:55:05.68 ID:4S9VmYC2(1)調 AAS
そんなもの解いてもしょうがない

128: 2016/02/06(土) 04:07:51.62 ID:CZQRzoj6(1)調 AAS
>>120
おすすめ
『レクチャーズオン Mathematica』

もくじなどのpdfがある
レクチャーズオン Mathematica・サポートページ
外部ﾘﾝｸ[html]:www.math.titech.ac.jp

129(1): 2016/02/10(水) 17:25:12.67 ID:xg3fAtil(1/3)調 AAS
{i,j,k} を要素に持つリストをつくりたいんですがうまい記述の仕方あるでしょうか？

i=0〜Nx
j=0〜Ny
k=0〜Nz
の範囲の整数として

{
{0,0,0},
{1,0,0},
{2,0,0},
…　…,
{3,2,5},
…,
{Nx,Ny,Nz}
}

のような感じです．

130(1): 2016/02/10(水) 18:49:52.80 ID:WSI9KNQ8(1)調 AAS
>>129
Flatten[Table[{i, j, k}, {i, 0, 4}, {j, 0, 5}, {k, 0, 6}], 2]
とか？

131: 2016/02/10(水) 19:08:59.13 ID:xg3fAtil(2/3)調 AAS
>>130
ありがとうございましゅ！

132: 2016/02/10(水) 19:09:16.46 ID:xg3fAtil(3/3)調 AAS
×ありがとうございましゅ！
○ありがとうございます！

133(1): 2016/02/18(木) 23:46:48.85 ID:hcnN01i/(1)調 AAS
1/0となりますっていうエラーの出る分母の値（0と認識される値?、結果が無限大と認識される値?）ってどれくらいでしょうか。
電子の質量入れて計算すると飛びます。
分母のオーダーが10^(-31-α)とかでもだめですか？

134: 2016/02/18(木) 23:47:54.83 ID:cFQO+ZMK(1)調 AAS
>>133
具体例を

135: 2016/02/19(金) 00:36:33.18 ID:BVdQKtrr(1/2)調 AAS
ええとすみません。たとえば、
1/Exp[-x]
とするとxがどの辺のときに計算が放置されるのでしょうか？

136: 2016/02/19(金) 09:45:48.44 ID:sj9/NYrE(1)調 AAS
x=10.^15 は大丈夫
x=10.^15*4 でアンダーフロー

137(1): 2016/02/19(金) 19:27:51.70 ID:BVdQKtrr(2/2)調 AAS
とｎ
電子の質量が入ってくるときとかどうするんだろうね…

138: 2016/02/19(金) 19:55:53.52 ID:9jEB8QMH(1)調 AAS
>>137
その、電子の質量を入れて計算させると1/0エラーが出るっていう式をそのまま書いてみて

139: 2016/02/28(日) 18:27:57.65 ID:5GJ+OBvk(1/2)調 AAS
u'=-uなる微分方程式を初期値hを0から1まで変えながら図にするのに
下のようにしたのですが
上手く行きません。何が悪いのでしょうか

Do[{
sol1 = NDSolve[{
u'[t] == -2 u[t],
u[0] == h
}, u[t], {t, 0, 3}]
Plot[Evaluate[u[t] /. %], {t, 0, 3}]
},
{h, 0, 1}]

140: 2016/02/28(日) 19:05:21.41 ID:H7dcneBr(1)調 AAS
Show[Table[
sol1 = NDSolve[{u'[t] == -2 u[t], u[0] == h}, u[t], {t, 0, 3}] ;
Plot[Evaluate[u[t] /. sol1], {t, 0, 3}], {h, 0, 1, 0.1}]]

or

list = Evaluate[
Table[sol1 =
NDSolve[{u'[t] == -2 u[t], u[0] == h}, u[t], {t, 0, 3}];
u[t] /. sol1, {h, 0, 1, 0.1}]];
Plot[list, {t, 0, 3}]

こんなんみたいのかな

141: 2016/02/28(日) 19:35:00.37 ID:5GJ+OBvk(2/2)調 AAS
すいません
%→sol1とコンマ忘れでいけましたね
大変ありがとうございました

142: 2016/03/11(金) 21:14:10.00 ID:LiuUp7W3(1)調 AAS
質問です

確率変数x,yとzがあり、それぞれ平均値mx,my,mzで標準偏差sx,sy,sz
の正規分布をもって変動するものとします。

このとき例えばz x/(x+y)の値がどのように分布するかを簡単にグラフ化
する手法と、その標準偏差を簡単に求める方法はあるでしょうか。

分布図はモンテカルロ法、統計値は一次近似の数式計算とかででしたが、
忘れた頃にやるので、火急の時には厳しい･･･

Ver10以下の範囲で、何かヒントがあればお願いします。

143: 2016/03/12(土) 21:40:18.28 ID:r9WZX4oj(1)調 AAS
d = TransformedDistribution[
z x/(x + y), {x \[Distributed] NormalDistribution[mx, sx],
y \[Distributed] NormalDistribution[my, sy],
z \[Distributed] NormalDistribution[mz, sz]}];
example = {mx -> 1, sx -> .2, my -> 2, sy -> .7, mz -> 2.9, sz -> 1.1};
PDF[d /. example, x]
d /. example // StandardDeviation
(\[Distributed]はESCdistESCと打っても良い。）
で確率密度関数と標準偏差が出るはずだけど、式が複雑すぎて
計算しきれていないみたい。まあゼロ割になりかねない式だから、
標準偏差があるかどうか微妙だが。

なのでモンカルを使うと、
data = RandomVariate[d /. example, 100000];
Histogram[data]
data // StandardDeviation
という感じ。でもSDは安定しないな。やはり式の形が…

スムーズなグラフを描きたいのなら、
Plot[Evaluate@PDF[data // SmoothKernelDistribution, x], {x, -1, 5}]
とかやれば良い。

144: 2016/03/12(土) 23:42:05.46 ID:o9XKea1M(1)調 AAS
ありがとうございます。
式自体は単純に、基準電圧zを抵抗y,xで分圧した電圧で、
その分布を求める場合ですが、モンカルだよりですかね。

変数毎に乱数発生をさせて、式に代入させていましたが、
いましたが、TransformedDistribution->RandomVariate
の流れは参考になりました。

あとSmoothKernelDistributionも(^^)/

145: 2016/03/28(月) 20:52:34.19 ID:Y/nPZlRi(1)調 AAS
Maple使ってる人いる？
eliminateって機能があって、
MarhematicaのEliminate関数と同じ、連立方程式からの変数消去なんだけど、
あまりにアホすぎて使い物にならんねコレ

146: 2016/03/28(月) 23:40:49.43 ID:gs+YwEEW(1)調 AAS
使い物になるという話かと思ったら、使い物にならないという話かよ。

147: 2016/03/29(火) 09:21:30.33 ID:MS5DySjF(1)調 AAS
MCのことモンカルって言う人はじめてみたわ

148: 2016/03/31(木) 12:58:22.72 ID:cpRtmv87(1)調 AAS
Mapleのeliminateってまだ邦訳されてないから、最近追加された機能かな？
個人的にMathematicaで一番重宝してる変数の整理、消去がMapleだと今市だな。

149(3): 2016/03/31(木) 16:47:29.31 ID:lQq9ZfEU(1/2)調 AAS
ell = 8; m = 0;
Integrate[ SphericalHarmonicY[ell, m, \[Theta], 0]* Sin[\[Theta]]^2 (1 + q Sin[\[Theta]]^2)*Sin[\[Theta]], {\[Theta], 0, \[Pi]}]

俺の環境 (ver10.4, Windows7_64bit) でこの計算やらせると落ちてしまう．
ell=6だと回る．
なんで〜〜（泣）

150: 149 2016/03/31(木) 17:12:04.92 ID:lQq9ZfEU(2/2)調 AAS
ver10.0だと回る
ぐぬぬ…

151: 2016/04/03(日) 10:21:42.74 ID:+ao9jRpb(1)調 AAS
>>149
割っただろ

152: 2016/04/03(日) 10:44:28.95 ID:QaspXQZ2(1)調 AAS
やばそうな割り算無さそうなんだけどなぁ．
ver 10.3 (Windows7_64bit) でも落ちる．
ver 8 (student ed., Windows XP pro) ではちゃんと計算される．
10.1と10.2はアップデートしてしまったから不明．
ver 10.3しか確かめてないけどMacProでも落ちるからハードが原因じゃない気がする．

はぁ〜とりあえずver 10.0入ってる少し古い計算機使います．

153: 2016/04/04(月) 12:24:52.18 ID:8UdNWihF(1)調 AAS
10.4だけど確かに落ちる。展開するとどんな形になるのかと思って、FunctionExpandを適用してみた。
ell = 8; m = 0;
FullSimplify[FunctionExpand[SphericalHarmonicY[ell, m, theta, 0] Sin[theta]^2 (1 + q Sin[theta]^2) Sin[theta]]]

三角関数の組み合わせ。qに具体的な値を入れると積分できるか？

Table[Integrate[%, {theta, 0, Pi}], {q, -1, 1, 1/5}]

->{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

答えは0っぽい。で、この後気まぐれに元の式をもう一度計算してみた。
Integrate[SphericalHarmonicY[ell, m, theta,0] Sin[theta]^2 (1 + q Sin[theta]^2) Sin[theta], {theta, 0, Pi}]

->0

今度は計算できる！不思議！

154: 2016/04/06(水) 13:03:16.89 ID:gULLYejW(1)調 AAS
なんだそりゃw
外部からアクセスできないキャッシュの内容によって挙動が変わるのか。
報告しとくかな。

155: 2016/04/19(火) 20:07:51.97 ID:YSV4FQMK(1)調 AAS
画像ﾘﾝｸ

↑Histogramでヒストグラムを描きました。

階級値の数字が300, 400, 500, 600と100間隔で表示されていますが、
300, 350, 400, 450, 500, 550, 600と表示させたいです。

どうすればいいのでしょうか？お願いします。

156(2): 2016/04/20(水) 19:34:29.49 ID:EJjD1eVy(1)調 AAS
Ticksで座標軸の目盛りを明示的に指定すれば？
ex.横軸の目盛り範囲[100,800]隔50を指定する
sample = RandomVariate[NormalDistribution[500, 100], 1000];
Histogram[sample, {100, 800, 50},
Ticks -> {Range[100, 800, 50], Automatic}]

157: 2016/04/20(水) 20:43:33.60 ID:V7TU7EwI(1/2)調 AAS
>>156

画像ﾘﾝｸ

ありがとうございました。

でも↑の画像のようになってしまいました。

数字は階級の両端の数字ではなく階級値を表示させたいんです。

158: 2016/04/20(水) 20:45:48.41 ID:V7TU7EwI(2/2)調 AAS
>>156

ありがとうございました。

Ticks -> {Range[125, 775, 50], Automatic}]

みたいにやればできるんですね。

ありがとうございました。

159: 2016/04/25(月) 22:30:29.53 ID:nOxB4NtD(1)調 AAS
>>123
その本良かったんですか。買ったけど読んでない。いまではmathematicaは
やめてmapleを使うことにした。

160: 2016/04/26(火) 07:33:53.58 ID:Bqjxy5C+(1)調 AAS
Mapleのほうが使いやすいよね。

161(1): 2016/05/10(火) 17:58:44.15 ID:3vtuhWyp(1)調 AAS
A = { {1,2}, {3,4} } // MatrixForm
A.A (*これだと行列計算はしてくれない*)

これ一度 MarixFormでラッピングしてしまった後から、コード上でアンラップする方法って無いんですかね？
実用性云々(ラッピングしなきゃいいじゃん) ではなく単純に疑問です。

A = ToExpression @ StringSplit[#," "]& @ StringSplit[#,"\n\n"]& @ ToString[A]
文字列にして読み直ししたら一応いけたんですが、改行は2回スペースも2回続きそんなのをあてにしていいものやら...
もっと単純に一発でできてもよさそう。

162(1): 2016/05/10(火) 21:58:53.04 ID:N5W3xcsN(1)調 AAS
>>161
A[[1]]

163(1): 2016/05/10(火) 23:35:12.79 ID:ISuglzw8(1)調 AAS
行列を代入したい、でもMatrixFormで確認もしたい、という時は、
(A={{1,2},{3,4}})//MatrixForm
みたいにやるな。

164(1): 2016/05/11(水) 01:10:37.40 ID:xWSeBPqz(1/2)調 AAS
>>162 >>163 ありがとうございます。

>>162
「〜Form の類いは、関数というよりはデータ構造構築子で、元データを1個だけ格納してる」って理解で合ってるでしょうか
この辺りの詳細って WolframのWEBドキュメントに載ってます？

165(1): 2016/05/11(水) 16:10:36.87 ID:fSvrr8qW(1)調 AAS
>>164
Part 関数を参照

166: 2016/05/11(水) 19:31:46.17 ID:xWSeBPqz(2/2)調 AAS
>>165 ありがとうございます。

167: 2016/05/11(水) 23:05:47.89 ID:QU9FYAS5(1)調 AAS
強引だけどA = { {1,2}, {3,4} } // MatrixFormで
A.A を計算するだけならMatrixFormでThreadもあり

A.A // Thread[#, MatrixForm] &

168: 2016/05/12(木) 10:39:58.32 ID:QuIsVXVk(1)調 AAS
プログラミングで普通に思い浮かべるThreadとは関係無くて、
そのまんま「糸」でデータを縫い合わせる関数なのね。
基本的なのにまだまだ知らない関数があるなあ。

169: 2016/06/15(水) 11:57:22.83 ID:uO5svwl0(1)調 AAS
梅津千春＝立岡咲樹　かかってこいヨーイチ

170: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:37:21.73 ID:KWnWf/3r(1/10)調 AAS
￥

171: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:37:47.07 ID:KWnWf/3r(2/10)調 AAS
￥

172: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:38:14.77 ID:KWnWf/3r(3/10)調 AAS
￥

173: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:38:44.15 ID:KWnWf/3r(4/10)調 AAS
￥

174: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:39:12.19 ID:KWnWf/3r(5/10)調 AAS
￥

175: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:39:33.61 ID:KWnWf/3r(6/10)調 AAS
￥

176: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:40:03.74 ID:KWnWf/3r(7/10)調 AAS
￥

177: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:40:56.99 ID:KWnWf/3r(8/10)調 AAS
￥

178: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:41:17.39 ID:KWnWf/3r(9/10)調 AAS
￥

179: ￥ ◆2VB8wsVUoo 2016/06/15(水) 18:41:37.11 ID:KWnWf/3r(10/10)調 AAS
￥

180: ￥ ◆2VB8wsVUoo [age] 2016/06/16(木) 18:30:38.78 ID:PgonDtoO(1)調 AAS
￥

181: ￥ ◆2VB8wsVUoo [age] 2016/06/18(土) 02:40:26.20 ID:3GXqstO/(1)調 AAS
￥

182: 2016/06/18(土) 21:01:21.49 ID:bG4TQCiY(1)調 AAS
大類昌俊
関西すうがく徒のつどい
関東すうがく徒のつどい

画像ﾘﾝｸ

画像ﾘﾝｸ

183: 2016/07/08(金) 17:35:43.32 ID:cG8o2Rlw(1/2)調 AAS
a = 1.234567890;
N[a, 10]

の出力が 1.23457 になってしまうのだけれど，
N関数って機械精度の数を渡されると常に6桁表示になるの？

184: 2016/07/08(金) 17:56:49.57 ID:cG8o2Rlw(2/2)調 AAS
Nのせいじゃなくて標準出力が機械精度に対して6桁表示なのね…
InputForm[a]もしくはNumberForm[a,10]で表示された

185: 2016/07/09(土) 07:07:00.48 ID:fDkSF8u6(1)調 AAS
10.4.0 for Mac OS X x86 (64-bit) (March 1, 2016) なんだけど、
フォントのサイズ変更したいから外部ﾘﾝｸ[pdf]:www.math.titech.ac.jp にある
> メニューから「編集」→「環境設定...」* → 「詳細」→ 「オプションインスペクタを開く」→ 「書式設定」→ 「フォント設定」→ 「FontSize(サイズ)」とすすみ,これをデフォルトの 12 から適宜増やす.「適用」ボタンを押すとフォントサイズが大きくなる.

を行おうとしたが、「適用」ボタンがグレーのままで押しても適用出来ない。
どうしたら良いんだコレ？
画像ﾘﾝｸ

186(2): 2016/07/15(金) 12:32:01.25 ID:C6cVoJv7(1)調 AAS
list1 = {
{x1, y1, z1},
{x2, y2, z2}
};

list2 = {
{v1, v2},
{w1, w2}
};

こういうタイプの2つのリストの各要素を結合して，
{
{x1, y1, z1, {v1, v2} },
{x2, y2, z2, {w1, w2} }
}
というリストを作るために

FlattenAt[#, 1] & /@ Partition[Riffle[list1, list2], 2]

と記述してるんですが，より高速な方法があれば教えてください

187: 186 2016/07/16(土) 00:47:18.27 ID:xDKztG0Z(1/2)調 AAS
Clear[result];
result = Transpose@list1;
result = AppendTo[result, list2];
result = Transpose@result;

で速度が2倍ぐらいになりました

188(1): 2016/07/16(土) 06:13:38.45 ID:GrLp8R2o(1)調 AAS
速度はわからんけど、
MapThread[Append[#1, #2] &, {list1, list2}]
かなあ。

189: 186 2016/07/16(土) 18:15:35.46 ID:xDKztG0Z(2/2)調 AAS
>>188
更に速くなりました
記述もスマートですしこれを使いたいと思います
ありがとうございました

190(1): 2016/07/20(水) 21:06:00.17 ID:K8aqavNL(1)調 AAS
ver10.4 で並列カーネルの状態ダイアログから並列カーネルを全部閉じると
↓みたいにエラーが発生するんだけど同じひといる？
1つずつ閉じても最後の1個を閉じるところで同じエラーがでる
画像ﾘﾝｸ

191: 2016/08/22(月) 22:06:54.62 ID:+pVfiDmq(1)調 AAS
TEST

192: 2016/08/23(火) 06:38:21.34 ID:2MEC67az(1)調 AAS
11のアイコンしょぼすぎ

193: ￥ ◆2VB8wsVUoo 2016/08/23(火) 08:16:54.14 ID:dXrvzIKU(1/11)調 AAS
￥

>1 ：名無しさん：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5568 ：名無しさん：2016/08/17(水) 18:26:13 ID:???
> うるさい
>
>5569 ：kmath1107★：2016/08/17(水) 21:46:32 ID:???
> 人への念の盗み見による介入を阻め。
>
>5571 ：名無しさん：2016/08/17(水) 23:39:07 ID:???
> うるさい
>
>5576 ：kmath1107★ ：2016/08/18(木) 20:58:14 ID:???
> 人への念の盗み見による介入を阻め。
>
>5577 ：名無しさん：2016/08/18(木) 21:05:02 ID:???
> >>5575
> うるさい
>
> >>5576
> 賛同致します
>
>5578 ：kmath1107★ ：2016/08/19(金) 08:46:22 ID:???
> 人への念の盗み見による介入を阻め。
>
> Re:>>5577 人への念の盗み見による介入が無くなれば世の不和が無くなるだろう.
>
>5582 ：￥ ◆2VB8wsVUoo ：2016/08/19(金) 08:53:36 ID:???
> 芳雄が理想とし、自ら体現する大学教授とは？
> ０．自分が『お教授である』という利点を徹底活用して、偉そうに振舞う。
> １．年寄りや権威には擦り寄って顔色を窺い、ラクして損しない様にスル。
> ２．難しい分野や困難な研究テーマは徹底して避けて、努力を最小化する。
> ３．高い学歴とか権威を効率的に利用して、自分を飾って偉く見せ掛ける。
> ４．他人に見える部分だけを巧みに繕ってメッキし、人格者のフリをする。
> ５．相手のオツムの質を窺い、シッタカだけで見識がある様に見せ掛ける。
> ６．自分よりも優秀な人間は絶対に敵に回さないでヘラヘラと仲良くする。
> ７．自分から見てダメオツムな野郎は、上から目線で威圧して屈服させる。
> ８．大して中身が無いカラッポ知識を針小棒大に騒ぎ立て、蘊蓄を傾ける。
> ９．自分の大脳が働いてない低能ぶりは、口先で適当に誤魔化して逃げる。
>
> ￥
>

194: 2016/08/23(火) 11:32:08.36 ID:6Ki0HatY(1)調 AAS
ver11になって
>>149と>>190治ってるね

195: 2016/08/23(火) 17:41:02.27 ID:ovShytuJ(1)調 AAS
で，Ver. 11は何がいいんだ?

196: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:09:01.28 ID:dXrvzIKU(2/11)調 AAS
￥

197: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:09:19.67 ID:dXrvzIKU(3/11)調 AAS
￥

198: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:09:38.28 ID:dXrvzIKU(4/11)調 AAS
￥

199: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:09:55.88 ID:dXrvzIKU(5/11)調 AAS
￥

200: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:10:14.01 ID:dXrvzIKU(6/11)調 AAS
￥

201: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:10:34.40 ID:dXrvzIKU(7/11)調 AAS
￥

202: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:10:53.88 ID:dXrvzIKU(8/11)調 AAS
￥

203: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:11:15.13 ID:dXrvzIKU(9/11)調 AAS
￥

204: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:11:34.81 ID:dXrvzIKU(10/11)調 AAS
￥

205: ￥ ◆2VB8wsVUoo 2016/08/23(火) 19:11:56.55 ID:dXrvzIKU(11/11)調 AAS
￥

206: ￥ ◆2VB8wsVUoo [age] 2016/08/24(水) 09:23:14.31 ID:Ygo7U3hv(1/3)調 AAS
￥

207: ￥ ◆2VB8wsVUoo [age] 2016/08/24(水) 09:45:57.14 ID:Ygo7U3hv(2/3)調 AAS
￥

208: 2016/08/24(水) 18:39:49.17 ID:7clTglsc(1)調 AAS
きちがいはMathematicaも買えないのか

209: ￥ ◆2VB8wsVUoo 2016/08/24(水) 19:36:05.87 ID:Ygo7U3hv(3/3)調 AAS
￥

210: 2016/08/24(水) 19:52:30.22 ID:Y71bxgoq(1)調 AAS
11、なんか良く落ちるな。入力支援系の機能を全部切ったら、
なんとか安定したような気がする。

211: ￥ ◆2VB8wsVUoo 2016/08/25(木) 02:22:56.99 ID:l8BZ/IJq(1)調 AAS
￥

>1 ：名無しさん：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5568 ：名無しさん：2016/08/17(水) 18:26:13 ID:???
> うるさい
>
>5569 ：kmath1107★：2016/08/17(水) 21:46:32 ID:???
> 人への念の盗み見による介入を阻め。
>
>5571 ：名無しさん：2016/08/17(水) 23:39:07 ID:???
> うるさい
>
>5576 ：kmath1107★ ：2016/08/18(木) 20:58:14 ID:???
> 人への念の盗み見による介入を阻め。
>
>5577 ：名無しさん：2016/08/18(木) 21:05:02 ID:???
> >>5575
> うるさい
>
> >>5576
> 賛同致します
>
>5578 ：kmath1107★ ：2016/08/19(金) 08:46:22 ID:???
> 人への念の盗み見による介入を阻め。
>
> Re:>>5577 人への念の盗み見による介入が無くなれば世の不和が無くなるだろう.
>
>5582 ：￥ ◆2VB8wsVUoo ：2016/08/19(金) 08:53:36 ID:???
> 芳雄が理想とし、自ら体現する大学教授とは？
> ０．自分が『お教授である』という利点を徹底活用して、偉そうに振舞う。
> １．年寄りや権威には擦り寄って顔色を窺い、ラクして損しない様にスル。
> ２．難しい分野や困難な研究テーマは徹底して避けて、努力を最小化する。
> ３．高い学歴とか権威を効率的に利用して、自分を飾って偉く見せ掛ける。
> ４．他人に見える部分だけを巧みに繕ってメッキし、人格者のフリをする。
> ５．相手のオツムの質を窺い、シッタカだけで見識がある様に見せ掛ける。
> ６．自分よりも優秀な人間は絶対に敵に回さないでヘラヘラと仲良くする。
> ７．自分から見てダメオツムな野郎は、上から目線で威圧して屈服させる。
> ８．大して中身が無いカラッポ知識を針小棒大に騒ぎ立て、蘊蓄を傾ける。
> ９．自分の大脳が働いてない低能ぶりは、口先で適当に誤魔化して逃げる。
>
> ￥
>

212: 2016/08/29(月) 18:49:24.55 ID:jEsFMSAM(1)調 AAS
f[x_] := 1.1 * exp[-1/x] + exp[-1/x] * Sin[1/x];

Plot[f[x], {x, 0, 0.001}]

とすると、グラフがぺったんこになってしまいます。

これをちゃんと描くにはどうしたらいいのでしょうか？

213: ￥ ◆2VB8wsVUoo 2016/08/29(月) 18:51:09.42 ID:5a8Ea2gJ(1/11)調 AAS
￥

>1 ：名無しさん：2006/04/30(日) 01:41:01 ID:KPnB.CH2
> 迷惑かしらん
>
>5568 ：名無しさん：2016/08/17(水) 18:26:13 ID:???
> うるさい
>
>5569 ：kmath1107★：2016/08/17(水) 21:46:32 ID:???
> 人への念の盗み見による介入を阻め。
>
>5571 ：名無しさん：2016/08/17(水) 23:39:07 ID:???
> うるさい
>
>5576 ：kmath1107★ ：2016/08/18(木) 20:58:14 ID:???
> 人への念の盗み見による介入を阻め。
>
>5577 ：名無しさん：2016/08/18(木) 21:05:02 ID:???
> >>5575
> うるさい
>
> >>5576
> 賛同致します
>
>5578 ：kmath1107★ ：2016/08/19(金) 08:46:22 ID:???
> 人への念の盗み見による介入を阻め。
>
> Re:>>5577 人への念の盗み見による介入が無くなれば世の不和が無くなるだろう.
>
>5582 ：￥ ◆2VB8wsVUoo ：2016/08/19(金) 08:53:36 ID:???
> 芳雄が理想とし、自ら体現する大学教授とは？
> ０．自分が『お教授である』という利点を徹底活用して、偉そうに振舞う。
> １．年寄りや権威には擦り寄って顔色を窺い、ラクして損しない様にスル。
> ２．難しい分野や困難な研究テーマは徹底して避けて、努力を最小化する。
> ３．高い学歴とか権威を効率的に利用して、自分を飾って偉く見せ掛ける。
> ４．他人に見える部分だけを巧みに繕ってメッキし、人格者のフリをする。
> ５．相手のオツムの質を窺い、シッタカだけで見識がある様に見せ掛ける。
> ６．自分よりも優秀な人間は絶対に敵に回さないでヘラヘラと仲良くする。
> ７．自分から見てダメオツムな野郎は、上から目線で威圧して屈服させる。
> ８．大して中身が無いカラッポ知識を針小棒大に騒ぎ立て、蘊蓄を傾ける。
> ９．自分の大脳が働いてない低能ぶりは、口先で適当に誤魔化して逃げる。
>
> ￥
>

214: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:20:13.91 ID:5a8Ea2gJ(2/11)調 AAS
￥

215: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:20:30.09 ID:5a8Ea2gJ(3/11)調 AAS
￥

216: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:20:46.96 ID:5a8Ea2gJ(4/11)調 AAS
￥

217: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:21:04.52 ID:5a8Ea2gJ(5/11)調 AAS
￥

218: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:21:23.77 ID:5a8Ea2gJ(6/11)調 AAS
￥

219: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:21:42.19 ID:5a8Ea2gJ(7/11)調 AAS
￥

220: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:21:59.45 ID:5a8Ea2gJ(8/11)調 AAS
￥

221: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:22:16.28 ID:5a8Ea2gJ(9/11)調 AAS
￥

222: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:22:33.12 ID:5a8Ea2gJ(10/11)調 AAS
￥

223: ￥ ◆2VB8wsVUoo 2016/08/29(月) 19:22:51.13 ID:5a8Ea2gJ(11/11)調 AAS
￥

224: 2016/09/01(木) 01:12:32.98 ID:GL+8D+po(1)調 AAS
Raspberry Pi 入れてたら本当にMathematicaがディストリビューションに
入ってた。便利な時代になったなあ。

でも結局無料マイククラフトで遊んでばっかりw

225: 2016/09/01(木) 19:28:37.43 ID:qequVMiW(1)調 AAS
いいね!

226(1): 2016/09/07(水) 06:16:55.51 ID:v7cFoWZ0(1)調 AAS
計算した結果などをファイルにノートブック形式で保存すると、
次回、開いたときに、再評価しないといけなくて、面倒なのですが、
みなさんはどうやって計算した結果などを保存していますか？

あと、定義した関数などをマイライブラリにする方法を教えてください。

227: [っっｄ] 2016/09/07(水) 21:31:34.26 ID:lbTu4qXo(1)調 AAS
PDFにしとけばいい。

228: 2016/09/08(木) 04:19:24.58 ID:8ps/Mk46(1)調 AAS
>>226
計算結果格納した変数を用意してmx形式で Export するとか．
次回はそれを Import する．

229: ￥ ◆2VB8wsVUoo 2016/09/09(金) 07:30:00.35 ID:c0Am8D5Q(1/10)調 AAS
￥

230: ￥ ◆2VB8wsVUoo 2016/09/09(金) 07:30:20.50 ID:c0Am8D5Q(2/10)調 AAS
￥

231: ￥ ◆2VB8wsVUoo 2016/09/09(金) 07:30:37.04 ID:c0Am8D5Q(3/10)調 AAS
￥

232: ￥ ◆2VB8wsVUoo 2016/09/09(金) 07:30:56.13 ID:c0Am8D5Q(4/10)調 AAS
￥

上下前次 1-新書関写板覧索設栞歴

あと 763 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.240s