トップページ⇒math
983コメント257KB

〓 Mathematica 5 〓

■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん2010/10/01(金) 00:11:44
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）)
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.
　　　',　',　|Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　 ﾞ',
　　　 ヽ､', l:!Kノ}. 　 　 f:_.)iﾞi: ﾘ !　l　ル　
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉ ﾞ ,ﾘ l ﾘ'´ 　 　　
.　　　　 ',|!!､ 　 　r‐┐ 　 ｀ ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 　
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　 ＜　 Mathematica に関する話題はここに書いてね！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　 　 　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､ 　
　　/＼＼　　　　',　　 }　　 //｀ヽ


Mathematica 8が間もなくリリース

＊統計：市場で最も広範囲の統計分布とデータ可視化機能
＊ソフトウェア開発：組込みのGPUプログラミングサポート，高性能
Cコード生成，SymbolicCサポートおよび拡張された並列処理
＊工学および研究開発：統合された制御系とウェーブレット関数
＊金融：組込みのオプション価格付けソルバ，財務指標とグラフ
＊画像処理：特徴検出を含む拡張された画像解析機能
0152１３２人目の素数さん2010/11/30(火) 19:37:33
まずは準備。

問題文をコピーして「Google暗号.txt」として適当なフォルダに保存する。
同じフォルダにノートブックを作成する（Google暗号.nb）。

警告がウザイのでスペルチェックをオフにする
Off[General::spell]
Off[General::spell1]

SetDirectory[NotebookDirectory[]]
text=Import["Google暗号.txt",CharacterEncoding->"ShiftJIS"]
これでtextに暗号文が入る
0153１３２人目の素数さん2010/11/30(火) 19:47:14
さて解析。

文字列は何かと扱いづらいので文字のリストにする
characters=Characters[text]

Length[characters]
全部で637文字あることがわかる

tally=Tally[characters]
Length[tally]
全部で45種類の文字から構成されてることがわかる
このことから実態はアルファベットの換字暗号であろうと推測する

BarChart[tally[[All,2]],CharLabels->tally[[All,1]]]
ヒストグラム
sortedTally=Sort[tally,OrderedQ[{#1[[2]],#2[[2]]}]&]
度数でソート
最頻度の「し」はスペースであろうと推測する
0154１３２人目の素数さん2010/11/30(火) 20:14:12
ここが一番の難所（ひらめきが必要）。

・改行は2、つまり暗号文は3行からなっている
・3行目は異様に長い
→最初の2行にこの暗号を解く鍵があるに違いない

最初の2行に注目してみると
・行頭がともに「選」である
・「選」はこれ以外に出てこない（トータル2）
→「選」は「#」でこの2行はプリプロセッサを表してるんじゃないか！？と推測する
こう考えると3行目が長い理由も説明がつく（プログラム本体）
プリプロセッサ：改行必要
プログラム本体：改行不要

この一番の難所を越えればあとは簡単！
1行目のプリプロセッサといったらこれしかない！！→「#include <stdio.h>」
まずはこの変換からスタートする
StringReplace[text,{"選"->"#","す"->"i","。"->"n","良"->"c","さ"->"l","票"->"u","出"->"d","れ"->"e",
"し"->" ","上"->"<","込"->"s","ま"->"t","索"->"o","引"->".","き"->"h","か"->">"}]

ここから先は出力文の前後関係から新たに変換規則を追加するという作業を繰り返していく。

以上。
0155１３２人目の素数さん2010/11/30(火) 20:18:48
>>152-154
面白いね。
C言語やそういう使い方を知らないので、時間のある時に勉強してみるよ。
0156１３２人目の素数さん2010/11/30(火) 20:27:52
>>155
C言語を経由せずにMathematica使ってんだ〜
数学科かな！？
まぁC言語は勉強しといて絶対に損はないよ！！
俺が一番最初に勉強した言語はC言語だった。
C言語がわかれば大体の言語がわかるようになる。
0157１３２人目の素数さん2010/11/30(火) 20:52:56
(void)memset(&a,0,1);
01581552010/11/30(火) 20:57:34
>>156
大昔にBASICやPascalを勉強したよ。
Mathematicaはいくつかデモンストレーションを載せてもらってる。
プログラムしたいことができたら、
デモを見回って近い内容のソースを見て真似して作ってる。
0159１３２人目の素数さん2010/12/01(水) 05:07:00
なんで
a/Sequence[a,b,c,d,e]
は
a^(1+b^c^d^(1/e))
になるん？
0160１３２人目の素数さん2010/12/01(水) 14:23:02
a/z//FullForm -> Times[a,Power[z,-1]]

a/Sequence[a,b,c,d,e] -> Times[a,Power[Sequence[a, b, c, d, e],-1]]
->Times[a,Power[a, b, c, d, e,-1]] -> a^(1+b^c^d^(1/e))




0161１３２人目の素数さん2010/12/01(水) 19:12:49
教祖様のお話
ttp://www.aoky.net/articles/stephen_wolfram/computing_a_theory_of_everything.htm
0162１３２人目の素数さん2010/12/04(土) 12:14:57
日本語版ﾏﾀﾞｰ
0163１３２人目の素数さん2010/12/08(水) 17:56:38
Windows XP の Version 7 ですが

dat = {{0, 1}, {2, 3}};
Show[ListPlot[dat], Graphics[BezierCurve[dat]]]

だとちゃんと表示されますが

Needs["PlotLegends`"]
Show[ListPlot[dat, PlotLegend->{"hoge"}], Graphics[BezierCurve[dat]]]

と，凡例を入れるとちゃんと表示されません
どうしましょう？
0164１３２人目の素数さん2010/12/09(木) 17:58:09
mathmatica for studentを学校で入れたんですがこれを卒業後にも使うことはできますか？
0165１３２人目の素数さん2010/12/09(木) 20:51:56
学校関係から離れる場合はライセンスを購入する必要があります。
大学院生ならそのまま使えると思いますよ
0166１３２人目の素数さん2010/12/10(金) 00:43:49
ありがとうございます
ライセンスをsutudent版からプロフェッショナルにアップグレードするとしたとして
そのライセンスを別のパソコンで使えますか？
0167１３２人目の素数さん2010/12/10(金) 03:02:18
アップグレード費用を払い、いったんインスト後でも
別PCにかえる場合は、所定のフォーマットにて、申請
すれば可能です(詳細は、代理店にご確認ください)。

なお、Warez関係の書き込みは禁止な！
0168１３２人目の素数さん2010/12/10(金) 03:39:46
>>166
>プロフェッショナルにアップグレード

20万円くらいするのかなあ?
0169１３２人目の素数さん2010/12/10(金) 03:51:04
>>168
1年以内のsutudent版からのアップグレードはもっと安いんじゃなかったけ？

思ったんだが、sutudent版入れたまま卒業すると自動的に使えなくなるのかな？
0170猫は基地外 ◆ghclfYsc82 2010/12/10(金) 05:21:16
大学教授ですが、mahematicaのstudent版を購入出来ますか？
0171１３２人目の素数さん2010/12/10(金) 10:51:45
大学教授なのにそんなことも分からないのかよ
0172１３２人目の素数さん2010/12/10(金) 11:52:33
>>170
先進国の大学教授なら２９５ドルのhome editionが買えるじゃろ？
0173１３２人目の素数さん2010/12/10(金) 22:28:55
>>169
常時ネットに接続してるわけじゃないから大丈夫じゃない？
0174１３２人目の素数さん2010/12/11(土) 17:25:10
参考書に
func[p_ : 0.75]="関数の定義"
があるのですが、0.75は何を意味するのですか？
引数は可変なのでこの0.75は書かなくても良いのですか？
0175１３２人目の素数さん2010/12/11(土) 17:53:18
>>174
0.75はpのデフォルト値です。
func[p_:0.75] := f[p]
func[pp]　-> f[pp]
func[] -> f[0.75]
0176１３２人目の素数さん2010/12/12(日) 01:26:39
Home Editionは具体的にどの機能が制限されているんですか？
0177１３２人目の素数さん2010/12/12(日) 03:21:48
>>176
機能制限というか、日本ではHome Edition単体の販売はなく、
プレミア版のおまけのうえ、日本版はプレミア期間タイマー
が作動します。
またVer.8宣伝の機能の中には、Wolfram|Alphaとの接続が
必要のようですね。
0178１３２人目の素数さん2010/12/12(日) 09:02:15
>>177
ありがとうございます
でも、ごめんなさいよく分からないです・・・・
とにかく日本で販売はしてないのですね
0179１３２人目の素数さん2010/12/13(月) 13:13:13
>>176
機能制限はないはず。個人的使用制限があって、３２ビット版らしいが。
しかし日本での販売は無いってさ、今時ダウンロード販売なんて簡単な事なのにね。
0180１３２人目の素数さん2010/12/14(火) 02:25:16
>今時ダウンロード販売なんて簡単な事なのにね。

それぢゃ〜
日本国代理店様があま〜い汁を掠めとれないじゃ
ないですかｗ

しかし、以前は西欧にはMathematicaのバンドル
PCがごろごろしてた様ですが、いまこの国では
Home Editionも本来の形では販売されません。

つか、ほんまダウンロード販売か直販しろ(泣


0181１３２人目の素数さん2010/12/14(火) 09:20:54
日本では利口離れが進んでいるせいか、Mathematicaみたいなソフトのユーザーが少ないのかな？
ユーザーが少ないのをいいことに、代理店は舐めてんのか？

腹が立つから公正取引委員会あたりにちくったろかな。
0182１３２人目の素数さん2010/12/14(火) 11:16:51
でもこのスレ見てるやつは、mathematicaもってるんじゃないの？
0183１３２人目の素数さん2010/12/14(火) 16:17:27
Ver.7のアップグレードは金を振り込んだら
ダウンロードだった
ので販売は可能なはず
0184１３２人目の素数さん2010/12/14(火) 17:58:50
勿論ダウンロード販売なんて可能だよ。
大体、使用期間限定版はフルスペック（セーブできないが）でダウンロードだし。
あきらかに意図的に邪魔をしている奴がいる。
ちくれば、独占禁止法違反でたたけるに違いない。
0185１３２人目の素数さん2010/12/14(火) 19:22:44
studentからproにアップグレードしたんだが、これってもしかしてver8にするときも金かかるの？
0186１３２人目の素数さん2010/12/14(火) 19:28:13
メジャーバージョンアップは有料
プレミアサービスに加入していると無料
0187１３２人目の素数さん2010/12/14(火) 19:41:57
>>186
まじか・・・
もし、studentの時ver7でproにアップグレードする際に8が出てたらver8にアップグレードできたの？
0188１３２人目の素数さん2010/12/14(火) 22:31:33
プレミアに入っているときに新バーションがリリースされれば
無料だったっけ
0189１３２人目の素数さん2010/12/15(水) 05:50:52
今日中にプレミア更新すれば8が貰えるらしい。
http://www.rsi.co.jp/kagaku/ip/Mathematica/index.html
0190１３２人目の素数さん2010/12/15(水) 12:23:56
いま、student使ってる人はproにするのに2万かかってさらに、プレミア加入で9万とられちゃうの？
0191１３２人目の素数さん2010/12/15(水) 16:04:21
RandomRealで作った5つの乱数{ 0.6 , 0.2 , 0.4 , 0.8 , 0.1}の2番目の要素を指定することはできますか？
0192１３２人目の素数さん2010/12/15(水) 16:38:50
mathematicaってフリーソフトだろ？
0193１３２人目の素数さん2010/12/15(水) 16:58:44
マセマティカは係数比較ができるの？
0194１３２人目の素数さん2010/12/15(水) 18:17:33
>>190

0195１３２人目の素数さん2010/12/15(水) 18:18:14
>>190
>student使ってる人はproにするのに2万かかって

２万円でProにできるんか
えらい安いな
0196１３２人目の素数さん2010/12/15(水) 22:36:30
>>191
無理、それができたら、もはや乱数でない。
４つ発生させて、２番目に指定値をいれる。
0197１３２人目の素数さん2010/12/15(水) 22:42:54
>>192
割れ使いですか？
0198１３２人目の素数さん2010/12/16(木) 00:12:34
さて、今日８がリリースと予想してみる。
0199１３２人目の素数さん2010/12/16(木) 00:49:35
英版がでて一ヶ月…英版の販売対応が峠を越していれば
発表の可能性はありますが、これ以上ずれ込めば発送が
正月に重なるので難しいところですね。
0200１３２人目の素数さん2010/12/16(木) 01:07:02
>>195
いくらだっけ？
0201１３２人目の素数さん2010/12/16(木) 01:52:00
一般のプロフェッショナルのアップグレード価格の７５％だからそれぐらいじゃない？
0202１３２人目の素数さん2010/12/16(木) 05:23:29
Wolfram User Portal にはさっきまでは無かったMathematica8へのリンクが
来てるね。でもパーミッションが無いとかのエラーが出る。多分今日の日中に
これが解除されるのだろう。

あと、先月プレミア更新したのだが、Expireが15-DEC-2011になってる。
更新日からじゃなくて新リリースから1年有効なのか。
0203１３２人目の素数さん2010/12/16(木) 05:33:16
いい加減
宣伝業者ウザイ
0204１３２人目の素数さん2010/12/16(木) 05:35:28
お、今日来るのか。楽しみだあ
0205１３２人目の素数さん2010/12/16(木) 10:28:01
個人輸入でhome edition買う事できないのかな？
例えば、
http://www.spearnet-us.com/move/?gclid=CNqAvevO76UCFcSGpAodgniEog
0206１３２人目の素数さん2010/12/16(木) 16:59:30
n ≦ 100 で、 2~n ± 1 で表すことのできる素数を全て求めたいのですが、
どのようにすればよいでしょうか？
0207１３２人目の素数さん2010/12/16(木) 19:00:23
>>201
ソースも無いのに嘘つくなよ
0208１３２人目の素数さん2010/12/16(木) 19:44:53
つ http://www.wolfram.com/faculty/benefits.ja.html
0209１３２人目の素数さん2010/12/17(金) 02:54:26
値段は書いてなくね？
0210１３２人目の素数さん2010/12/19(日) 14:50:15
う〜
0211１３２人目の素数さん2010/12/20(月) 23:04:51
>>206
GatherBy[#, PrimeQ] &@Join[# + 1, # - 1] &[2^#] &@Range@100 // First // Union
0212１３２人目の素数さん2010/12/20(月) 23:07:15
2^Range@100で良かったな
0213１３２人目の素数さん2010/12/20(月) 23:31:40
いまstudent版の人いいなー
2万でver８にアップグレードできて
0214１３２人目の素数さん2010/12/20(月) 23:39:39

すまんGatherを使うべきではなかった
Select[#, PrimeQ] &@Union@Join[# + 1, # - 1] &[2^Range@100]
0215１３２人目の素数さん2010/12/21(火) 16:24:15
ベクトルと行列の方程式を解く方法はないのでしょうか
例えば
solve(A.x=b,x)
から
x=invert(A).b
が帰ってくるような方法はないのでしょうか
0216１３２人目の素数さん2010/12/21(火) 16:30:12
Ｃのコードを生成できるそうですが
どんな感じのコードを生成してくれるのかサンプルがどこかにないでしょうか
0217１３２人目の素数さん2010/12/22(水) 16:25:03
maximaを数式処理と数値計算の複合処理で使ってるんですが
遅くでしょうがないです

mathematicaにすると高速化できますか？
特にＣのコード生成でどのくらい高速化できるのか気になります
0218１３２人目の素数さん2010/12/22(水) 17:23:38
オレのレベルだと、Wolfram Alphaで十分だったわ
http://www.wolframalpha.com/
0219１３２人目の素数さん2010/12/22(水) 17:25:17
俺のレベルだと電卓で十分だ
0220１３２人目の素数さん2010/12/22(水) 19:59:39
>>217
>maximaを数式処理と数値計算の複合処理で使ってるんですが
>遅くでしょうがないです

そんなあなたには
Maple+Matlab
がおすすめ
0221１３２人目の素数さん2010/12/22(水) 22:09:18
sageはどう？
0222１３２人目の素数さん2010/12/22(水) 23:39:56
某代理店からのメール…
Wolfram社の新たなライセンス管理形態として、
ユーザーポータルの運用が開始されました。
ご登録されているメールアドレスで登録し、ログインしますと、
ご利用のライセンス情報の確認や、Ver8のダウンロードができます。 ご登録頂かないとVer8を入手することが出来ませんので、
是非ご登録をお願い致します。
(ウルフラムへのリンク)
ご登録頂かないとVer8を入手することが出来ませんので、
是非ご登録をお願い致します。

ほぉこうくるか…代理店の意味ないじゃん
0223１３２人目の素数さん2010/12/23(木) 09:53:45
423500円は今のレートで5 067.601ドル！！！
アメリカじゃ３０００ドル行かないだろ？そもそも２９５ドルのHome Edition売ってるし。
ボッタクリだぜ！
0224１３２人目の素数さん2010/12/23(木) 10:00:25
不買運動で抗議しよう
0225１３２人目の素数さん2010/12/23(木) 10:22:15
不買運動って、、、そもそも買えるか！
0226１３２人目の素数さん2010/12/23(木) 11:55:35
http://products.wolframalpha.com/holidayspikey/gallery/view.jsp?id=351
商品のMathematica が欲しいので、投票してください。お願いします。
現在113位
0227１３２人目の素数さん2010/12/23(木) 11:58:26
「Cコード生成」ってことは、Cでプログラムを書いた方が処理速度は速いってことだよな
0228１３２人目の素数さん2010/12/23(木) 13:50:27
みんなマセマティカは高いというが・・・
個人として購入しようとしたら確かに高い。
でもみんなどこかの組織に所属してるだろ？大学とか会社とか。
自分の所属してる組織での購入はそう難しい話ではないはず。
俺も個人では絶対に買う気にはなれないが、会社で購入した。
0229１３２人目の素数さん2010/12/23(木) 14:07:02
そりゃ稟議が通ればそれでいいけどさ。
0230１３２人目の素数さん2010/12/23(木) 14:15:53
どんな理由で却下されるん？
0231１３２人目の素数さん2010/12/23(木) 14:29:19
食品会社だもん
0232１３２人目の素数さん2010/12/23(木) 17:19:08
数式処理なんてオープンにみんなが使えるのが望ましい。
MATHEMATICAは教育上よくない。
0233１３２人目の素数さん2010/12/23(木) 18:22:09
>>231
ということは業務で使うことはないってことね
だったら高い金はらって個人で買う必要がある
0234１３２人目の素数さん2010/12/23(木) 18:24:39
nihongo ban mada desuka
0235１３２人目の素数さん2010/12/23(木) 19:53:46
>>227
数式処理した結果をＣに変換してくれるならな
0236１３２人目の素数さん2010/12/23(木) 21:47:09
＞２３４
昨日、日本語版が出た。プレミア期間中ならHPからダウンロード可。
CDメディア請求もWebから出来たはず。

Ver8単体での販売はまだかも。
0237１３２人目の素数さん2010/12/23(木) 22:35:29
http://www.wolfram.com/
Mathematica 8日本語版，12月20日リリース
Wolfram|Alphaの統合と500個を超える新関数の導入»


時差かんがえてもおととい（２１日）じゃない？
0238１３２人目の素数さん2010/12/23(木) 23:59:07
500個の新関数より5回アンドゥ出来る方がありがたい
0239１３２人目の素数さん2010/12/24(金) 08:10:46
500個の新関数より、500個減らしても良いから、買える価格にしてほしい。
0240１３２人目の素数さん2010/12/25(土) 00:08:16
おまえらがMathematica使う理由って趣味なの？
0241１３２人目の素数さん2010/12/25(土) 00:17:47
まあね
0242１３２人目の素数さん2010/12/25(土) 00:45:38
趣味でとなると、当然ながら線形やら微積やらをやってるわけじゃないよな？
フラクタル画像を作ったりして観賞してるのか？
0243１３２人目の素数さん2010/12/25(土) 00:53:16
適当に関数を積分しておおーすげーってやってるだけ
0244１３２人目の素数さん2010/12/25(土) 04:32:07
仲間がいてよかったw
0245１３２人目の素数さん2010/12/25(土) 07:23:11
新しいコンピュータを導入したら
こいつでベンチマークでつ
0246１３２人目の素数さん2010/12/25(土) 12:44:01
>>236
生協にfor student版頼んでみたんだけれどダメだった．
「普通は２〜３ヶ月前には情報が入るけれど，それすらまだ無い」だってさ．
箱付きの話ね．ダウンロード版じゃなく．
0247１３２人目の素数さん2010/12/25(土) 17:37:40
びっくりするやんけスパイキー！
0248１３２人目の素数さん2010/12/27(月) 15:20:34
韓国とか中国とか近場に旅行してホームエディション買ってこれないものか
0249１３２人目の素数さん2010/12/27(月) 18:03:16
手に入れても
登録できなくて
使えないのでは?
0250１３２人目の素数さん2010/12/27(月) 19:01:35
これって空間図形の体積とか計算したりできるの？
0251１３２人目の素数さん2010/12/27(月) 19:04:08
あたりまえだろ
なんでも計算できるよ
0252１３２人目の素数さん2010/12/27(月) 20:22:23
>>249
ダウンロード版はそうかもしらんが、パッケージ版（あるのか？）なら
パスワード入ってるだろうからだいじょうぶじゃないの？
■ このスレッドは過去ログ倉庫に格納されています