mathematicaによるシミュレーション教えてください
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠１周年
NGNG求めたのですが，この関数の例えば0.1秒刻みの値を
出力させるにはどうしたらよいのでしょうか？
できれば，Exelに出力させたいのですが。
ご存知の方，教えていただけませんか。
0002めるとも
NGNG『マセマティカによる数値計算』という本が出てました。
ところでマセマティカでグラフが容易に書けるのに、
またはプログラミングが容易にできるのに、わざわざ
プログラミング言語でルンゲクッタのプログラムを書いて
微分方程式のパスを求めたりする必要があるのでしょうか？
（無いのではないでしょうか？）
また、シミュレーションの雑誌に書いてあることは、
より早く計算できるプログラムについてだと勝手に想像
しているのですが（読んでないから）、遅くてもいいや
と思う人にとって、早く走るプログラムを勉強することは
無駄だと思うのですが、いかがなものでしょうか？
誰か質問に答えていただけないですか？
0003名無しさん＠１周年
NGNG自分で色々修正できるし，後々便利だよ．
やっぱり元が全部分かってるのが一番安心できます．
0004とくめー
NGNG以前、モンテカルロ法を使ってシミュレーションするのにmathematicaと
Cの２通りで実験してみたのですが、mathematicaの場合はどんなに工夫しても
Cよりは実行時間がかかるようです。
0005名無しさん＠１周年
NGNG0006名無しさん＠１周年
NGNG00075
NGNGフリーじゃないのは知っています。
で，どこのサイトからダウンロードできるのでしょうか？
0008名無しさん＠１周年
NGNGネタかと思ってた、、、
www.wolfram.comへどうぞ。ダウンロードは
サポートしてないと思うけど、、、
00095
NGNGwww.wolfram.com も知っています。
もう一度だけ伺います。どこのサイトからダウンロードできるのでしょうか？
0010とくめー
NGNGstudentバージョンなら確か2万円くらいで売っていたような
気がするけど.
00115
NGNG私は普通の会社員です。最も安くmathematicaを購入した場合
価格はいくらぐらいになるのでしょうか？
学割を利用するなら放送大学に入学するという技も知っています。
この場合は入学金に18,000円かかりますが、授業を１つもとらなければ
それ以上の費用はかかりません。
OSはwindows2000 or linux（redhat6.1）です。linux版なら安そうですね。
0012M
NGNG大学の生協で売ってますけど、放送大学の場合は？
それ以外だと、代金１０万以上すると思う。
何故mathematicaにこだわるの？
0013とくめー
NGNG絶対早い。グラフィックスはきれいだけどね。
0014名無しさん＠１周年
NGNG0015実習生さん
NGNGそれができればマトラブ、それができればC等
マセマティカは計算速度が遅いらしい。
これも言語だから習熟するのが大変のようだ。
ちょっとしたことなのにプログラムを組まなくちゃいけない。
単純なことで使いたいなら別のソフトを探したほうがいい。
0016実習生さん
NGNG使うにはどういう本を勉強すれば言いのでしょうか？
0017実習生さん
NGNGはマセマティカのコマンドでやっていること
（ブラックボックス）の中身を説明しています
マセマティカを使ったシュミレーションの本ではなかったと思います
0018名無しさん＠１周年
NGNGあれはヘルプと同じなのでしょうか？
ビニールがかぶっているので立ち読みできず、困っています。
ヘルプと同じなら買う必要もないだろうしなぁ・・・
0019名無しさん＠１周年
NGNG日本語、また日本語訳のマセマティカブックがついてきます。
日本語追加キット（名前忘れ）を英語バージョンマセマティカ
に入れると、ヘルプが日本語になります。また日本語訳の
マセマティカブックがついてきます。
オンラインヘルプにはマセマティカブックが入っています。
しかしヘルプは他のものも入っています。
勉強するのに、オンラインヘルプだと使いにくいです。
その１部（か１章）は必読ということになっています。
損はないので、日本語訳を買いましょう
0020便乗して、誰か教えて
NGNGどうすれば、よいのでしょうか?
たとえば、x>0, y>0, y<-0.5x+1, y<-2x-2
とかっていうのを書きたいと思っているのですが、
ご存知の方、宜しくお願い致します。
0021実習生さん
NGNG0022名無しさん＠１周年
NGNG0023実習生さん
NGNG0024名無しさん＠実習生
NGNGまずは、語学からやるべし！
simulation
シュミレーション ×
シミュレーション ○
恥っ、ミャー
0025実習生さん
NGNG0026実習生さん
NGNGなにが語学からだ。恥じなのは、これくらいのことを自分で考え
ようとしないヘタレ根性ではないか！！ちなみに、20であげている
例は良くないですね。最後のところはContourPlotでなくてDensityPlotでも行けます
やっとできたフゥ。ポイントはいくつかの条件をIfを使って、
すべての条件を満たすときのみ、１、どれかを満たさないとき０と
いう指示関数を作ったことです*)
If[x <= 0, 0,
If[y <= 0, 0,
If[y >= -0.5x + 1, 0,
If[y >= -2x - 2, 1,
0
]
]
]
];
ContourPlot[f[x, y], {x, -1, 1}, {y, -1, 1}, PlotPoints -> 100]
0027実習生さん
NGNG0028実習生さん
NGNG、前に考えて勉強になったので、どうぞ質問してくださいな
0029実習生さん
NGNGmathematicaユーザー会のメーリングリストです。
0030実習生さん
NGNGニューラルネットワークのプログラムを教えてください。
とくに、競合学習における、サモンマップの導出など
わかりません。よろしくお願いいたします。
0031あぼーん
NGNG0032実習生さん
NGNGMathematica数値数式プログラミング 上坂著
を読んで、今は
例題で学ぶMathematica[基礎プログラム編]
のプログラミング例を読んでいる。
Wolframの本は第２章の途中まで読んでいる。
関数よりも、プログラミングのアルゴリズム
を理解することのほうがより大切だと気づきました。
0033実習生さん
NGNGMaple/Mathematicaによるシュミレーション工学とか
を読んでみる予定。
ところで、マセマティカのプログラミングに役立つ本を
教えていただけませんか？（いちおうニューメリカルレシピインＣ
は買って持ってますが）
0034名無しさん＠１周年
NGNG『Mathematica ニューラルネットワークと最適化』玄光男・井田憲一（共立出版）
というのはどうですか
0035名無しさん＠１周年
NGNGその本、Mathematicaとあんまり関係ないです。
0036
NGNGフルタイムスチューデント（学業専念型で本業を持たない
こと）対象だったと思うので、
社会人学生などは除外されていると思ったが。
0037名無しさん＠１周年
NGNGどのようにやればいいのか教えて下さい。お願いします。
0038名無しさん＠１周年
NGNG0039恵子
NGNGComplexExpand[1/(a+b*I)]をすると，
a/Abs[a+bI]^2-Ib/Abs[a+bI]^2になってしまうんだけど，
Abs[a+bI]^2をa^2+b^2にしたい。
フェラでも何でもするから，どなたか教えてください。
0040名無しさん＠１周年
NGNGaまたはbが複素数の可能性があるから、
それ以上は展開できないと思う。
a^2+b^2とできるのはa,bが実数とした場合だから。
0041恵子
NGNGaやｂを実数とするにはどうすればよろしいですか？
ComplexExpandはI以外すべて実数と見なして展開
するとしてありました..
早く成果ださないと教授と寝なきゃいけない、とほほ・・・
お願い助けてください。
0042恵子
NGNGフェラがほしかったら，もっと早くおしえてくださることねぇ
それではごきげんよう
0043名無しさん＠１周年
NGNGしないのかな。
TargetFunctionsを適当に変えてやるとイケる。
0044恵子
NGNGまあ、ありがとう、さきっぽだけよ
0045名無しさん＠１周年
NGNG0046名無しさん＠１周年
NGNGどうか教えてください。
mathematicaで原始太陽系のシミュレーションしようと思ってるんですが
わからないことがあります。
NDSolveで得られた解を一定の時間間隔ごとにグラフに表示したいんですが
InterpolatingFunctionということなので、できないです。なにか方法はないでしょうか？
0047あぼーん
NGNG0048Mathematica愛好家
NGNGInterpolatingした関数でも
Table[{t,f[t]},{t,1,10,1}]
f[t]:Interpolateした関数
{t,1,10,1}:１から１０まで１きざみでTable作る。
とし、ListPlotすればいいです。
0049名無しさん＠１周年
NGNGのようなリストからf[[1]]から一つを取り出し、f[[2]]から一つを取り出し、
f[[3]]から一つを取り出し、f[[4]]から一つを取り出すことを考えるとき
のすべての組み合わせを出すにはどうすればよいですか？
教えてください！！
0050あぼーん
NGNG0051Mathematica愛好家
NGNGProduct[Length[f[[i]]],{i,1,Length[f]}]
とすればいいのでは？
だめ？意味が違う？
質問の答えが１２でよいのなら、僕のやりかたででます。
005249
NGNGありがとうございます。
すべての組み合わせの個数を出すのではなく、すべての組み合わせを表示させたいのです。
どうすればよいですか？
{{1,1,1,1},{1,1,1,2},{1,1,2,1},{1,1,2,2},{1,2,1,1},{1,2,1,2},
{1,2,2,1},{1,2,2,2},{1,3,1,1},{1,3,1,2},{1,3,2,1},{1,3,2,2}]
のような解がほしいのです。
よろしくおねがいします
0053名無しさん＠１周年
NGNG005449
NGNGありがとうございます
それだと、n番目の要素がi個の場合だとできませんよね
{{1}, {1, 2}, {1, 2, 3}, {1, 2}}
の最初と最後の{をとるひつようがありますよね
わからないんですよ。そこが。
教えていただけませんでしょうか。
よろしくおねがいします
0055あぼーん
NGNG0056Mathematica愛好家
NGNGIn:=
f = {{1}, {1, 2}, {1, 2, 3}, {1, 2}};
myOuter[l_, {s__}] := Outer[l, s];
myOuter[List, f]
Out:=
{{{{{1, 1, 1, 1}, {1, 1, 1, 2}}, {{1, 1, 2, 1}, {1, 1, 2, 2}}, {{1, 1, 3,
1}, {1, 1, 3, 2}}}, {{{1, 2, 1, 1}, {1, 2, 1, 2}}, {{1, 2, 2,
1}, {1, 2, 2, 2}}, {{1, 2, 3, 1}, {1, 2, 3, 2}}}}}
これででます。Mathematicaのユーザー会のメーリングリスト参照
005749
NGNGありがとうございます。
さんこうになりました。
mathematicaユーザーの会のメーリングリストは調べてみたんですけど、
有料なんですよね？
たまにしか使わないので・・・。
f={{{a, b}}, {{a, b}, {a, c}}, {{a, d}, {a, e}}, {{e, f}}};
のとき、
out:={{{a,b},{a,b},{a,d},{e,f}},{{a,b},{a,b},{a,e},{e,f}},
{{a,b},{a,c},{a,d},{e,f}},{{a,b},{a,c},{a,e},{e,f}}}
のような結果を得るのはどのようにすればいいのでしょうか？
>>56さんの示していただいた例でやってみましたがすべての深さまでの外積
をとってしまいますよね。むずかしいです・・・。
どうすればいいでしょうか？
005849
NGNGよくメーリングリストの入会案内を見たら無料でした。
すいません。
で、早速登録しました。
過去のメールは参照できるのでしょうか？
0059名無しさん＠１周年
NGNGsiki=i〜nまでの四則演算
で式からi〜nの文字を読み出して、下の式に代入して
それぞれの文字についてテーブルを作るとかできませんか？
Table[siki,{i,10},{j,100},,,{n,5}]
よろしくお願いします。どなたか教えてください
0060Mathematica愛好家
NGNG[email protected]
にタイトルなしで、本文に
get (番号)
をいれると過去の記事がみれます。
本文には英語と数字しか入れてはいけません。
本文に
summary
といれて送ると過去の記事の番号の表が送られてきます。
記事の内容と番号を照らし併せてget文でメールすれば過去の記事が手に入ります。
ちなみに
get 1082-1088
を本文に入れてメールを送れば49さんの質問の内容がのっています。
0061Mathematica愛好家
NGNGIn:=
g = {{{a, b}}, {{a, b}, {a, c}}, {{a, d}, {a, e}}, {{e, f}}};
Outer[List, Apply[Sequence, g], 1]
Out:=
{{{{{{a, b}, {a, b}, {a, d}, {e, f}}}, {{{a, b}, {a, b}, {a, e}, {e, f}}}},
{{{{a, b}, {a, c}, {a, d}, {e, f}}}, {{{a, b}, {a, c}, {a, e}, {e, f}}}}}}
になります。Outerの深さを引数として指定すればよいのです。
0062Mathematica愛好家
NGNGsiki=i~nまでの四則計算ってのは具体的にどういった計算ですか？
よくわからなくて.......
+,-,*,/がランダムなのですか？
0063名無しさん＠１周年
NGNGとすると
{{1, 3, 4}, {2, 2}}と出るので、あとはOuterでリストは
作れるでしょう
0064名無しさん＠１周年
NGNGついていないのでしょうか？
006549
NGNGありがとうございます。こうすればよいんですね。
今月このプログラムに苦しんでいたんですよ。
006659
NGNGでsiki[[1]]からsikiの長さまで
それぞれの変数(siki[[1]]ならa,b,c)についてその変数をさがして
a,b,cそれぞれについて1からnまで代入したすべての組み合わせを出したいのです。
すなわちn=3としてsiki[[1]]は
{1*1*1,1*1*2,1*1*3,1,2*1,1*2*2,1*2*3,1*3*1,,,3*3*2,3*3*3}={1,2,3,2,,18,27}
のような結果を得たいのです
よろしくお願いします
0067mathematica愛好家
NGNGよかったです。
0068mathematica愛好家
NGNG仕事の合間に少しずつ考えてるんですけど、スマートな方法が思いつきません。
もうちょっと、考えてみます。
0069mathematica愛好家
NGNGMathematicaで関数すくって、Exelで図にしたいのですか？
それだったら、たとえば任意の関数f[x]に対して、
xが0から10まで0.1きざみで図を書きたい場合、
list=Table[{x,f[x]},{x,0,10,0.1}];
Export["/(好きなDirectory)/aaa.txt", list, "Table"];
でasciiテキストにしてExelで読み込めばいいです。
Directoryの階層についてはsystemによって違うのでhelpでみてください。
0070名無しさん＠１周年
NGNGエクセルでテキストボックスを作ると自由にレイアウトができます
同じようにマセマティカで文章を書いてレイアウトをうまくやるには
どうすればいいかという質問です。
0071mathematica愛好家
NGNGテキストボックスはMathematicaにはありません。
ただ、Mathematicaでは座標の位置やフォント情報を指定すれば、graph上
で軸に名前を付けて表示したりできますが難しくて結構、ストレスがたまります。
私は、Mathematicaで関数など処理したデータをきれいに印刷したりレイアウトを行う際は、
テキストとして出力してExcel,kaleida graph等で改めてプロットし直しています。
テキストでx,yカラムで出力する方法は69でかきましたが、この方法が一番きれいにプロット
できるとおもいます。
お役に立てずにすみません。
0072mathematica愛好家
NGNGあっ、図のレイアウトじゃなくて文章のレイアウトですか？
ワープロソフトではないのでテキストボックスのようにレイアウトするのは
かなり困難でしょう。
様々な人が.nbのNote Bookを公開してますがレイアウトのきれいさはあれくらい
が限界でしょう。
Mathematicaにはいろいろテンプレートとしてスタイルシートがあります。
フォントも変えたりしてレイアウトできますがテキストボックスのような
便利なものはありません。多分。
0073あぼーん
NGNG0074名無しさん＠１周年
NGNGウルフラムサイトでarXivの形式で文章を作るスタイルシートや
サンプルがダウンロードできます。サンプルをみると数式が
traditionalよりも数式らしく書かれています。4.1じゃないと
完全対応じゃないみたいですが。
4.1になって、4.0とレイアウトがより高度になったのですか？
0075mathematica愛好家
NGNG先ほどwolframのホームページをチェックしてみました。
arXivは論文投稿用のstyle sheetなのかな？
Publiconも投稿用のものですが使ったことがありません。
私はMacOSXを使用してますがOS9でしかうごかないのでまだ試してませんが、デモをみると確かにふつうのスタイルシートより”論文らしさ”がましているような気がします。
ただ、数式のパレットとスタイルシートを組み合わせれば同程度のものはできるとおもいます。
この数式パレットは4.0でも4.1でもあるのでかなりふつうの数式として出力できるので試してみてください。
確かに4.0より4.1のほうがレイアウトがきれいになり、より見やすくなりました。
74さんはMathematicaのノートブックそのままで論文投稿するような仕事をしている人ですか？
私は、学会発表などでもPowerPointに出力（グラフなど）を貼り付けてやっているのであまりスタイルシートも活用していません。
参考にならなくてごめんなさい。
007659
NGNG引数として[siki,n]としたいのです。
教えていただけないでしょうか？
どんな方法を使ってもかまいません。
よろしくお願いいたします
0077名無しさん＠１周年
NGNGわからないよ。>>76
0078あぼーん
NGNG0079名無しさん＠１周年
NGNGＶＣ＋＋でMathematicaを使うことはできますか？
できればプロットした絵なんかを表示したいんですが。
0080あぼーん
NGNG0081名無しさん＠１周年
NGNG0082mathematica愛好家
NGNGあんまり期待した答えかもしれないけどかいときます。
In[ ]:=
n = 3;
data = Table[i, {i, 1, n}];
list1 = Partition[Flatten[Outer[List, data, data, data]], 3];
list2 = Partition[Flatten[Outer[List, data, data, data, data]], 4];
list3 = Partition[Flatten[Outer[List, data, data, data]], 3];
Clear[a, b, c, d, e, f, g, s, t, u];
Flatten[Table[{siki[[1]] //. {a -> list1[[i, 1]], b -> list1[[i, 2]],
c -> list1[[i, 3]]}}, {i, 1, Length[list]}]]
Flatten[Table[{siki[[2]] //. {d -> list2[[i, 1]], e -> list2[[i, 2]],
f -> list2[[i, 3]], g -> list2[[i, 4]]}}, {i, 1, Length[list]}]]
Flatten[Table[{siki[[3]] //. {s -> list3[[i, 1]], t -> list3[[i, 2]],
u -> list3[[i, 3]]}}, {i, 1, Length[list]}]]
Out[ ]:=
{1., 2., 3., 2., 4., 6., 3., 6., 9., 2., 4., 6., 4., 8., 12., 6., 12., 18., \
3., 6., 9., 6., 12., 18., 9., 18., 27.}
{1., 0., -1., 2., 1., 0., 3., 2., 1., 0.5, -0.5, -1.5, 1.5, 0.5, -0.5, 2.5, \
1.5, 0.5, 0.333333, -0.666667, -1.66667, 1.33333, 0.333333, -0.666667, \
2.33333, 1.33333, 0.333333}
{1., 0.5, 0.333333, 2., 1., 0.666667, 3., 1.5, 1., 2., 1., 0.666667, 4., 2., \
1.33333, 6., 3., 2., 3., 1.5, 1., 6., 3., 2., 9., 4.5, 3.}
です。nを変えれば、3だけではなく4でも5でもいいです。
でも、list1,2,3は変数の数によるので注意が必要です。
ちなみに、//Nはレスを書き込む際にコピーペーストがうまくいかないので
小数ででるようにするために入れたものです。実際に計算するときははずすと分数表示になってみやすいです。
時間がだいぶかかってごめんなさいね。
0083mathematica愛好家
NGNGMathematicaの上でC++を使いたいのですか？
それとも、C++の上でMathematicaを使いたいのですか？
MatheLinkとかlibraryをつかえばC++の上でlibararyとしてMathematicaの組み込み関数などをつかえますよ。
0084mathematica愛好家
NGNGMathematicaを学ぶ方法としてもっとも適していると思うことは、
自分がしたい計算（たとえば微分積分など）についてMathematica Book
（アプリケーションの中にもあるし、製本したものもある、高いけど）
を丁寧によんでいろいろ試してみることだと思います。
いろいろな人がMathematicaの本を書いてるけど、基礎ができてからでないと挫折してしまうおそれがあります。
Mathematica Bookが一番のテキストだと思います。目次をみておもしろそうなのを自分で実行してみて勉強してみましょう！
008559
NGNGありがとうございます
いまから、試してみます
この計算結果がどうしても学会に使いたいのです
008681
NGNG親切にありがとうございます。
自分が使っているのはstudent版だからMathematica Bookの本は持ってないので
アプリケーションの中にあるのでコツコツやっていこうと思います。
0087あぼーん
NGNG0088mathematica愛好家
NGNGよかったです。お役にたてて。
学会頑張ってください！
0089mathematica愛好家
NGNGMathematicaいいやつなんで、頑張ってみてください。
ある程度わかってきたら各分野でMathematicaの本が出版されているので
専門書でさらに磨きをかけたり、Mailing Listに登録して（無料）
みんなにいろいろ質問してみてください。
もちろんこのスレでみんなに質問することもいいことだと思いますよ。
009059
NGNGやっと、さきほど自分の研究用のものに教えていただいたプログラムを
改良することができました。
結果は学会の要旨に載せられそうです。
Flatten[Table[{siki[[1]] //. {a -> list1[[i, 1]], b -> list1[[i, 2]],
c -> list1[[i, 3]]}}, {i, 1, Length[list1]}]]
こうすれば、よかったのですね
siki[[i]]の変数がn個の時にも使用できるようにがんばって改良してみます。
0091Mathematica愛好家
NGNGLength[list]って以前は書いてしまったけどどこにもlistは作ってませんでしたね。
うっかりレスを書いているときにまちがえてしまいました。
Length[list1]等にしないといけませんね。間違いに気付いてくれて良かったです。
要素がn個の時はなんだかややこしそうですね。
要旨がんばってください！
ちなみに、
In[]:=
Clear[list1, list2, list3, siki];
siki = {e1[[1]]*e1[[2]]*e1[[3]], e2[[1]]/e2[[2]] + e2[[3]] - e2[[4]], e3[[1]]*e3[[2]]/e3[[3]]};
siki[[1]]
siki[[2]]
siki[[3]]
sub1 = Table[e1[[j]] -> list1[[i, j]], {j, 1, 3}];
sub2 = Table[e2[[j]] -> list2[[i, j]], {j, 1, 4}];
sub3 = Table[e3[[j]] -> list3[[i, j]], {j, 1, 3}];
n = 3;
data = Table[i, {i, 1, n}];
list1 = Partition[Flatten[Outer[List, data, data, data]], 3];
list2 = Partition[Flatten[Outer[List, data, data, data, data]], 4];
list3 = Partition[Flatten[Outer[List, data, data, data]], 3];
Flatten[Table[{siki[[1]] //. sub1}, {i, 1, Length[list1]}]]
Flatten[Table[{siki[[2]] //. sub2}, {i, 1, Length[list2]}]]
Flatten[Table[{siki[[3]] //. sub3}, {i, 1, Length[list3]}]]
として置換リストsub1-3までつくり、要素をe1[[j]]などで一般型でかくといいかもしれません。
結果はsikiが前と同じ定義なので同じ結果が出力されるはずです。
0092あぼーん
NGNG0093あぼーん
NGNG0094Mathematica愛好家
NGNG追加です。
e[[j]]として要素を定義しますが、演算子は
siki={Sum[e[[j]],{j,1,n}],Product[e[[j]],{j,1,n}],...}
等にすればいいのでしょうか？
またうまくいけば教えてください。
009559
NGNGご教授ありがとうございます
式はほかのソフトウエアから取り込みます。
式の要素はn個で、式の数もi個です。
それを区別するには区切り子として*,/,+,-などをとらえる必要があると思っています
もう少し考えて見ます。
0096あぼーん
NGNG0097名無しさん＠１周年
NGNGMathematicaはなぜこんなに閑古鳥が泣いているのだろうか？
0098名無しさん＠１周年
NGNG0099名無しさん＠１周年
NGNGどのくらいかかるものなんでしょう？
最初、注文したときは「一週間くらい」といわれ、２週間たったのに連絡して
こないから聞きにいったら「二、三週間くらい」といわれたのですが、たかが
ソフトの注文にそんなにかかるもんなんでしょうか？
単に生協のおばちゃんが忘れてただけじゃないかと・・・
0100名無しさん＠１周年
NGNG多分、生協のおばちゃんがすぐに卸業者に電話しなかったためでしょう。
ふつう、注文したら一週間ちょっとで、きます。
Mathematica 4.1を注文したときはそれくらいでした。
卸業者の在庫がなくて、という話なら別ですが…
0101名無しさん＠１周年
NGNGhttp://www.geocities.co.jp/WallStreet-Stock/7553/
中国の需要拡大に伴い、世界的な資源危機が発生、
エネルギー資源、希少金属、食糧の国際価格が跳ね上がる。
また、日本は少子高齢化によって若年労働力が激減するため輸出競争力が低下し、
中国の輸出に押される。貿易赤字が急拡大し、2018年には1ドル300円にまで円安が進む。
国内の平均物価は現在の3倍に急騰、消費税は20％に近づく。その上、燃料税も増税されるため
ガソリン市販価格はリッター千円になる。・・・ということらしいのですが。
■ このスレッドは過去ログ倉庫に格納されています