検索結果

エクセルのVBAを使って添付画像のようなグラフを作成しようと考えています。 以下の計算で作成できそうなのですが、⊿tを10-5より小さく設定し、1000sec～の濃度変化が知りたいため表計算ではなくVBAを使ってみました。 表計算では、 t=0のときx0=C0(飽和濃度)、x>x0でC=0とし(初期条件) x0では、 C(j+1,i) = C(j,i) +D * ( C(j,i-1) - C(j,i) ) / dx / dx * dt x >x0では、 C(j+1,i) = C(j,i) +D * ( C(j,i-1) - 2 * C(j,i) + C(j,i+1) ) / dx / dx * dt の計算を行い、セル表記が以下のようになりました。どの時間も物質量は一定です。(たぶん・・・) 　　t0、t1、t2、t3t、・・・ x1,60、58.8、57.6・・・ x2, 0、 1.2、2.38・・・ x3, 0、 0、0.02・・・ 上の計算をVBAで以下のように書いてみました。 Sub diffusion_dry_up2() Dim n As Integer, nt As Integer Dim i As Integer, j As Integer Dim b As Double, te As Double, dt As Double Dim c0 As Double, cs As Double, d As Double Dim x As Double, dx As Double, t As Double Dim a As Double, cjp As Double, cj0 As Double Dim cjm As Double b = InputBox("配管の長さb(m)") n = InputBox("配管の長さの方向分割数n") te = InputBox("計算する時間長t(sec)") dt = InputBox("時間増分dt(m)") c0 = InputBox("配管底部の濃度c0(vol.%)") cs = InputBox("時刻t=0の時の配管内の濃度cs(vol.%)") d = InputBox("拡散係数d(m^2/sec)") Sheet1.Cells(1, 2) = "配管の長さb(m)" Sheet1.Cells(2, 2) = "配管の長さの方向分割数n" Sheet1.Cells(3, 2) = "計算する時間長t(sec)" Sheet1.Cells(4, 2) = "時間増分dt(sec)" Sheet1.Cells(5, 2) = "配管底部の濃度c0(vol.%)" Sheet1.Cells(6, 2) = "時刻t=0の時の配管内の濃度cs(vol.%)" Sheet1.Cells(7, 2) = "拡散係数(m^2/sec)" Sheet1.Cells(1, 3) = b Sheet1.Cells(2, 3) = n Sheet1.Cells(3, 3) = t Sheet1.Cells(4, 3) = dt Sheet1.Cells(5, 3) = c0 Sheet1.Cells(6, 3) = cs Sheet1.Cells(7, 3) = d nt = te / dt dx = b / n Sheet1.Cells(1, 1) = nt t = 0 a = d * dt / dx ^ 2 Sheet1.Cells(1, 5) = t Sheet1.Cells(1 + 1, 4) = -dx Sheet1.Cells(1 + 2, 5) = c0 Sheet1.Cells(1 + n + 2, 4) = b + dx Sheet1.Cells(1 + n + 3, 5) = cs Sheet1.Cells(3, 5 + i) = a * (-cj0 + cjp) + cj0 For i = 1 To nt t = t + dt Sheet1.Cells(1, 5 + i) = t Sheet1.Cells(1 + n + 3, 5 + i) = a * (cjp - 2 * cjo + cjm) + cj0 For j = 2 To n + 2 cjp = Sheet1.Cells(1 + j + 1, 5 + i - 1) cj0 = Sheet1.Cells(1 + j + 0, 5 + i - 1) cjm = Sheet1.Cells(1 + j - 1, 5 + i - 1) Next j Next i linegraph 2, 4, 4 + n, nt + 2 End Sub Sub linegraph(sr As Integer, sc As Integer, lr As Integer, lc As Integer) ActiveSheet.ChartObjects.Add(200, 10, 240, 200).Select ActiveChart.ChartWizard _ Source:=Range(Cells(sr, sc), Cells(lr, lc)), _ gallery:=xlXYScatter, _ Format:=3, _ PlotBy:=xlColumns, _ categoryLabels:=1, _ SeriesLabels:=0, _ HasLegend:="false", _ Title:="ex2", _ categoryTitle:="t", _ ValueTitle:="y", _ ExtraTitle:="" End Sub しかしまったく表計算のようになりませんでした。 a = d * dt / dx^2以降の書き込みが変だと思うのですが、どのようにすればよいのでしょうか。 また、上のような表記ではtを大きくdtを小さくするとエラーになってしまいます。 質問項目が多いですが、よろしくお願いします。

文系から理系に進学します。 課題が解けないので、詳しい回答をお願いします。 問題1 100[MHz]のFM周波数の電波の波長は3[m]である。 電波の速度を求めよ。 問題2 y(x,t)=5sin2π(0.5x-50t) で与えられる波がある。 xは座標で、tは時間を表す。 振幅は[cm]の単位で測られているとする。 (1)波長はいくらか？ (2)振動数はいくらか？ (3)振幅はいくらか？ (4)周期はいくらか？ (5)波の速度はいくらか？ 問題3 人間の耳には、20[Hz]から20[kHz]くらいの音が聞こえる。 波長に直すとどの範囲か答えよ。 ただし、音速は340[m/s]とする。 問題4 クラリネットの長さは66[cm](=0.66[m])で、管内の音速はおよそ350[m/s]である。 クラリネットで一番低い音の周波数はいくらか？ 問題5 ガラス管の一方が閉じられていて、スピーカーの前に置かれている。 スピーカーから周波数425[Hz]と1275[Hz]の音を出した時にガラス管に共鳴が起こった。 音速を340[m/s]としてガラス管の長さを求めなさい。 問題6 ピアノの調律師が鍵盤をたたき440[Hz]の音叉を鳴らしたところ、2[Hz]のうなりが聞こえた。 このため、ピアノの鍵盤の弦をゆるめて再び鳴らしたところ、 うなりはやはり、2[Hz]となった。 現在のピアノの音の周波数を求めよ。 よろしくお願いします。

ちょこちょこ馬券を買ってはいるものの、まだ理解していません。 当たったとかはずれたとかがわかるくらいです。 １月２１日の中山での１１Ｒで馬単を 「１１－７」１００円 「１１－３」２００円 「２－３」を１００円購入しました。 はずれたと思うのに、９００円入金されてました。 初心者にも理解できるように教えていただけないでしょうか？

時間に関してですが、例えばフォーム上に label1(秒):label2(分):label3(時):label4(日):label5(月) とあり、全てに「1:1:1:1:1:1」とさせて、Timer1で1000ms毎に+1を乗算させる前に IFでラベル1の値が60を超える超えないを判定して、超えた(True)の場合ラベル2に +1を乗算させる。というオリジナル時計を作っているのですが。。。 頻繁にIFとTimerで処理し放置した場合、物凄く重くなりメモリの食いも半端じゃありません。 もっと簡単な時間処理方法はありませんか？ (※リアルタイムの値ではなく、オリジナルで時間を計算させたい。ゲーム等とか)

仮に、 毎年１回、１０万円、連続１０年支払します。 ３９年後、２８７万円が貰えます。 ３９年間中、生存給付は一切もらわないとします。 では、この年金の利回りはどのぐらいでしょうか。 どうやって計算するのでしょうか。 よろしくお願いします。

図のような配管抵抗を求める場合の考え方が 合っているのか悩んでいます。 配管は一度立ち上がって、またもとの位置で放水されます。 液体を上に上げる力は当然必要ですが 上まで行くとあとは落差があるので、 立ち上がりのH（ｍ）と落差のH（ｍ）が相殺されるため 摩擦抵抗と継手類の抵抗を考慮するだけでいいのでは と思いつつも、落差による力は引っ張りなので全てには 当てはまらないのではとも思います。 このような場合、どう考えればいいのでしょうか。 ご存じの方、教えて下さい。

エクセルで差額割り勘計算をしたいのですが、 エクセルの技術というより、計算式がわかりません(汗) 差額を設けて割り勘するにはどのような計算になるでしょうか。 例えば □支払い総額・・・10,000円 □人数・・・・・・・・・４人 ●支払い(高)・・・１人 ↑ 500円差額 ↓ ●支払い(中)・・・１人 ↑ 500円差額 ↓ ●支払い(低)・・・２人 このような条件の時(100円単位) 支払い(高)・・・3,200円 支払い(中)・・・2,700円 支払い(低)・・・2,200円 余り・・・300円 となるらしいですが、計算方法を教えてください。 よろしくお願いします。

ボイラー効率の計算方法についてです。 ボイラー効率＝実際蒸発量[kg/h]×（発生蒸気の比エンタルピ[kJ/kg]-給水の比エンタルピ[kJ/kg]）/燃料消費量[kg/h]×燃料低発熱量[kJ/kg] で求めることはわかったのですが、以下の点について教えて下さい。 (1)実際蒸発量とは給水量からブロー量を差し引いたもので良いのか？ また、給水量の単位は１L=1kgで良いのか？　温度によって比重は変化する？ (2)蒸気の比エンタルピと給水の比エンタルピの求め方。 (3)燃料消費量kgはL×比重で良いのか？ また、燃料の温度によって比重は変化する？ ご回答よろしくお願いします。

７万平米の土地を、反1万2千円で買うとしたら、反１万２千円→平米12円×７万平米 で計算あってますでしょうか?? 土地の計算難しいくてわかりません。

源泉徴収額の計算を教えてください。 総支給が仮に\285,000とし、この場合健康保険料\14,168厚生年金が\22,977そして、雇用保険が仮に\1,400とします。 差引\246,455が手取り額になるかと思います。 家族構成は妻と、５歳と９か月の子供がいる場合、源泉徴収額はいくらになるのでしょうか。よろしくお願いいたします。

計算を教えてください!! 質問(1)dN=Cｂexp{(-βmV^2/2)}V^2dV とします。このdNをすべてのV[0→∞]について積分したものがNになるようにCの値を決めなければなりません。計算すると画像の下線部にあるように dN=4πN(mβ/2π)^(3/2)exp{(-βmV^2/2)}V^2dV になるそうです。 しかし、できませんでした。途中式を含めて教えてくれませんか。 質問(2) E=4πN(mβ/2π)^(3/2)∫[0→∞](1/2)mV^2exp{(-βmV^2/2)V^2dV =(3/2β)N となるのはどうしてですか？途中計算を教えてください。

|-----[3]------[j4]-----| |-----[4]------[j3]-----| |-------[ac100v]-------| 質問させてください。 上記の絵？は　交流100Ｖに、並列で3Ωの抵抗+4Ωのインダクタンス と、4Ωの抵抗+3Ωのインダクタンスと見てください。 分流するまえの電流値を求める計算は (100/3+j4)+(100/4+j3) でいいのでしょうか？（40Aになりました。） それともインピーダンスの合成抵抗を求めて計算するのが正しいのでしょうか？ 合成 =1/((1/(3+j4))+(1/(4+j3))) =1/((7-j7)/25) =(175+j175)/98 分流するまえの電流値 =100/((175+j175)/98) =(9800(175-j175))/61250 =39.5979・・・・A という計算になりました。 どちらが正解でしょうか？ また、合成インピーダンスで求めるほうが正解の場合 この式（といいますか、計算方法）で合っているでしょうか？ 長くなりましたがよろしくお願いします。

maximaで integrate(R*exp(-(5/(10^(-9)))*(R^2)-(1/2)*R), R, 0, inf); を実行したのですが、ずっと処理中のままです。 どこかまちがっていますか？ それとも、この積分は解けないのでしょうか？ ちなみに画像の上の式を計算しているつもりです。

こんばんわ　 問題集で勉強しているときに 計算でわからないところが あったので質問させてください 一つのベクトルを係数比較をして一次独立を使って表す 典型的な問題での、計算なのですが 1-s＝tm/m+1 sm/n+1＝1-t これより s＝n＋１/ｍ+ｎ+１ t＝m+1/m+n+1 という計算の途中式が自分で作れません s.tどちらかを消去して代入しても 途中で頭がぐちゃぐちゃになってしまいます 途中式と、このような 文字が多い わずらわしい計算を正確にする際の 注意点を教えて下さい。 宜しくお願いします

ダイエットでカロリーを 気にした方がいいという 話と気にしすぎると逆に 脳によくないという話を 聞きますが本当はどちらが ダイエットにいいのですか？

次の問題の答えの解き方を求めています。 自然の重力が働く水平な地平において、 高さ１５メートルのところから、角度３０度、速度２０km/hのボールを投げた場合、 １．最初に着地する飛距離は何メートルか ２．着地までにかかる時間は何秒か です。 宜しくお願いします。

こんばんは。 私の上司は海外を飛び回っているため、海外から電話会議に参加することが多いです。 たとえば、１８日夜（日本時間）に電話会議をするときに、上司はワシントンDCにいたりしますが 参加可能か？と聞かたとき、混乱してきてしまいます。 すばやく、時差を計算して、今何日の、何時かわかる方法はありますでしょうか？ わかりやすい計算の仕方がありましたら是非教えてください。 エキスパートな方、どうかお力を貸してください。

定積分のこんな問題です。 定積分　∫(-2 1) 2x/(x+3) dx の値を求めよ。 　　　　　　　上記の（-2　1）　とは　2x/(x+3)　を -2 から 1 まで積分するということです。 解答は 　6-12 log 2 となっていますが、どのように計算するのか分りません。 初心者なので、少し詳しくお教えてください。よろしくお願いします。

エクセルで勤続年数を管理したいのですが。。 入社日から、今日までの勤続年数計算で、 それに、休職期間を控除した計算式を作りたいのですが、 どういうふうにすればいいのでしょうか？ わかる方、教えてください。 例えば、 　　　　　1　　　　　　　　２　　　　　　　　　３　　　　　　4　　　　　　　5　　　　　　　 Ａ　　入社日　　　休職開始日　　休職終了日　　　今日　　　勤続年数 Ｂ　　Ｈ10.4.1　　　　Ｈ12.5.10　　　　Ｈ13.8.1　　　　　　　　　　○年△ヶ月 で勤続年数がでればと思いまして。

n次の正方行列で、行数をi、列数をjとしたとき、 i=jのときの要素がaで、それ以外の要素が1の行列Aの 行列式が求められなくて困っています。 三角行列式に変換しようとしてもうまくいきません。 どういった方法で求めるのが良いでしょうか？