検索結果

FORTRAN77で地震動応答解析を行なっています。 弾塑性応答解析なのですが、このプログラムだとコンパイルエラーが発生してしまいます。 文番号124、125、126のSA(I)にassignment between arrays of differing rankというエラーメッセージが出てきます。 どこを改善すればよいでしょうか。 OSはWINDOWS XPです。宜しくお願いします。 SUBROUTINE SOSEI(W,H,NN,AMAX,SD,QB,E,VE,VD,ED,WH,QY,DT) ! DIMENSION IM(10),IQ(10) DIMENSION QB(10000),SA(50000),SV(10000),SD(10000) DIMENSION FB(2000),FC(2000),FX(2000) ! REAL SA,SV,SD,QB,K1,K2,E,VE,VD,ED,QY ! ! X12=4. X34=3. SD1=X12 SD2=X34 SD3=SD1+SD2 XBE=3. !降伏変位 SDM=XBE K1=W*W K2=K1/10 SSA=K1*980 SSV=SSA/W SSD=SSV/W ! ! ! DO 30 I=1,NN DO 20 IL=1,NN IF(SSV.LT.0.AND.ABS(SSD-SD3).GT.SDM) GOTO 110 !SD3=SD1+SD2=X1,2正+X3,4負　塑性変形量 SDM=Xbe　弾性限変形 IF(ABS(SSD).GT.SDM.AND.SSV.GT.0.) GOTO 111 IF(ABS(SSD-SD1).LT.SDM) GOTO 112 !IQは変数 IF(ABS(SSD-SD3).LT.SDM) GOTO 113 ! ! ! ! IM(IL)=0 !弾性 GOTO 114 ! 110 IM(IL)=-1 !弾性～塑性（－） IQ(IL)=-1 !位置 GOTO 117 ! 111 IM(IL)=1 !弾性～塑性（＋） IQ(IL)=1 GOTO 115 ! 112 IM(IL)=2 !塑性～弾性（＋） IQ(IL)=2 GOTO 116 ! 113 IM(IL)=-2 !塑性～弾性（－） IQ(IL)=-2 GOTO 118 ! ! ! ! 114 QB(IL)=K1*SSD !０～１ ! 115 QB(IL)=(K1-K2)*SDM+K2*SSD !１～２ ! 116 QB(IL)=-(K1-K2)*SD1+K1*SSD !２～３ ! 117 QB(IL)=-(K1-K2)*SDM+K2*SSD !３～４ ! 118 QB(IL)=-(K1-K2)*SDM+K1*SSD !４～５ ! ! ! 20 CONTINUE ! 30 CONTINUE ! ! M=1. WE=SQRT(K1/M) WP=SQRT(K2/M) W2E=WE*WE !弾性 W2P=WP*WP !塑性 HWE=H*WE SA(1)=0. SV(1)=0. SD(1)=0. ! ! ! 121 FB=-(W2E-W2P)*SD1 !弾性 ! 122 FC=(W2E-W2P)*SDM !塑性 （SV>0） ! 123 FX=-(W2E-W2P)*SDM !塑性 (SV<0) ! ! DO 300 I=2,NN ! IF(IM(IL).EQ.0) GOTO 124 IF(IM(IL).EQ.1.AND.IQ(IL).EQ.1) GOTO 125 IF(IM(IL).EQ.-1.AND.IQ(IL).EQ.-1) GOTO 126 IF(IM(IL).EQ.2.AND.IQ(IL).EQ.2) GOTO 125 IF(IM(IL).EQ.-2.AND.IQ(IL).EQ.-2) GOTO 126 ! 124 A1=1+(HWE*DT)+((DT**2)/6)*W2E !弾性 A2=(HWE*DT)+((DT**2)/3)*W2E A3=(2*HWE)+(DT*W2E) SA(I)=(-1./A1)*(AMAX+A2*SA(I-1)+A3*SV(I-1)+W2E*SD(I-1)+FB) SV(I)=SV(I-1)+(DT/2)*SA(I-1)+(DT/2)*SA(I) SD(I)=SD(I-1)+DT*SD(I-1)+((DT**2)/3)*SA(I-1)+((DT**2)/6)*SA(I) GOTO 127 ! 125 A1=1+(HWE*DT)+((DT**2)/6)*W2P !塑性 (SV>0) A2=(HWE*DT)+((DT**2)/3)*W2P A3=(2*HWE)+(DT*W2P) SA(I)=(-1./A1)*(AMAX+A2*SA(I-1)+A3*SV(I-1)+W2E*SD(I-1)+FC) SV(I)=SV(I-1)+(DT/2)*SA(I-1)+(DT/2)*SA(I) SD(I)=SD(I-1)+DT*SD(I-1)+((DT**2)/3)*SA(I-1)+((DT**2)/6.)*SA(I) GOTO 127 ! 126 A1=1+(HWE*DT)+((DT**2)/6)*W2P !塑性 (SV<0) A2=(HWE*DT)+((DT**2)/3)*W2P A3=(2*HWE)+(DT*W2P) SA(I)=(-1./A1)*(AMAX+A2*SA(I-1)+A3*SV(I-1)+W2E*SD(I-1)+FX) SV(I)=SV(I-1)+(DT/2)*SA(I-1)+(DT/2)*SA(I) SD(I)=SD(I-1)+DT*SD(I-1)+((DT**2)/3)*SA(I-1)+((DT**2)/6)*SA(I) GOTO 127 ! ! ! 127 E=SD(I)*AMAX VE=SQRT(2.*E) VD=VE/(1.+(3.*H)+(1.2*SQRT(H))) ED=(VD**2)/2. WH=E-ED QY=W*VD ! ! 300 CONTINUE RETURN END

日本で、1854年12月23日に大地震が起きました（東海地震 Ｍ 8．4）。引き続き翌日の1854年12月24日にも大地震が起きました（南海地震 Ｍ 8．4）。 この地震があった日の西暦（前記）は分かるのですが和暦が分かりません。教えて下さい。例えば、昭和30年1月15日と16日、というように。 お願いします。

こんにちは。 自分自身はボランティアのことをよく知らなくて、ご存知の方がおりましたら、ご意見をお聞きしたいのですが。。 ある外国人の方のケースです。 パキスタンの地震への、寄付金を集める仕事を手伝う仕事が決まったそうです。。。かれは素直に喜んでいます。 彼の仕事は、日本語を通訳して他の外国人をまとめる仕事だそうです。 この間、そのボス（パキスタン人と日本人）と話し合った結果 ・給料は週６勤務、月１５～２０万で、住む場所も提供する ・パキスタンに確かに寄付金は送金する とのことでした。 いい条件だなと思ったんですが、一つ引っかかるところがあるんです、 ボランティアで、そんな良い条件で雇うのでしょうか。最近は、ニセ寄付金もある。。。ということを耳にしたので、変な会社かも知れない。。。 だまされて、変なことに巻き込まれなければと、素人考えですが、やや疑問がわきました。 （それまでの彼の仕事は、いわゆる、肉体労働だったのですが。。。急に条件のいい仕事が見つかり逆に不安です。） 何も知らないので詳しい方にご意見聞かせていただけたら幸いです。

グッジラートに友人がいます 情報がいただければ嬉しいです。 宜しくお願いします。

新潟中越地震っていつ起きたのでしょうか？ 調べても結果が得られません。 ご教授ください！

江戸川区へ引越しを考えている者です。 先日、不動産屋へ行き、いい条件の物件があったので、賃貸契約を結ぼうかと考えていますが、木造なのです。江戸川区というのも不安ですが、場所はそこでなくてはならないのです。 詳細を下記に載せますので、皆さんの意見を聞かせてください。江戸川区で木造ってやっぱ危険ですよね？ 最寄総武線小岩駅 木造モルタル 築十数年 二階建の一階部分(一階も二階も空いているが、一階の方が格段に家賃が安いので、一階を検討)

インターネット接続して出た画面が上下に揺れ続けることがあります。パソコンを再起動すれば、直ったりすることもあるのですが、原因と簡単の修復方法を教えてください。

今回の地震で、特に新潟県の方が大変な被害にあわれたかと思います。 冬を前にして、気候も寒くなっている状態だと思います。 本来、何もなければ現地に行って何かしたいと思うのですが、自分の結婚式を控えている為、現地に行く事が出来ません。遠くにいても、何か出来る事ってありますでしょうか？ ネットの仲間が新潟にいて、何とか無事なんですが、今どうなっているのかわかりません。きっと、大変な思いをしているんだと思います。自分は結婚式で幸せの時を迎えようとしている中で、大変な思いをしている人がいると思うと、何もせずにはいられなくなりました。 何か出来る事があれば、何でもいいので教えて下さい。お願いします。

こんにちは。 5年前に、防災用品を扱っているお店に「地震ガラス飛散防止フィルム」施工工事の見積りを出してもらいましたが、その時は、作業時間に応じた作業費の請求項目はありませんでした。 (このときは、施工工事の申し込みはしませんでした。) 今年に入って、工務店に同じ依頼をしたところ、作業時間費が入っており全体の費用が5年前のほぼ倍額になっておりました。 (5年前38万円だった見積り額(防災用品店)が、74万円(工務店)になっております。) ここまでのところで、2点ほど質問があります。 ① ガラス飛散防止フィルム施工工事は、工務店以外に頼めば作業時間費の請求はなくなりますか。 ② 工務店の見積り金額が、防災用品店(5年前)よりもほぼ倍額になっているのですが考えられる原因を教えてください。 また、今回の工務店は悪質という可能性についても教えてください。 ご回答、よろしくお願いいたします。

昔あった地震です。

アメリカ在住です。　ほんのわずかな金額ですが、気持ちだけでも被災地の方に届けたいと思っています。テレビジャパン（ＴＶ　Ｊａｐａｎ、アメリカでの日本語放送）でニューヨークの赤十字が新潟地震義援金を受け付けていると言っていましたが、早すぎて書き取れませんでした。　どなたかビデオにとるか、書き取るかした人がいたら教えて下さい。　　後日領収書(米国での税務申告などのための）も送られると言っていました。　　

会社のネットワーク環境及びサーバの管理、運用しているものです。 とはいっても新米もので初心者といっても過言ではありません。 小さい会社だからこそ、私が担当しているという感じです。 プロバイダ：Yahoo BB SOHO（通常タイプ） モデム：トリムモデム3-G この度の地震もしくは計画停電の影響か、インターネットへの 接続が不安定（たびたび切れる）という問題が出てきました。 モデムを確認すると『電源』『パソコン』が点灯し、「データ」が点滅 という状態で、とりあえず再起動をしましたが接続できずモデムの 故障かな？と思いプロバイダに問い合わせたところ 「現状のモデムの状態からモデムの故障とは断言できません。御社地域の回線状況を調べたところ、接続状況が不安定になっています。大変申し訳ありませんが、私共もこのような状況（計画停電）は初めてなもので、明確な対処方法というものがありません。とりあえず、モデムの故障ではなく回線の接続状態の問題だと思うので、電源を入れたまま様子を見て頂けませんか？」 と返答がありその日はネットに接続できず、返答通り モデムの電源を入れたまま次の日を迎えると モデムは正常に動作し、ネットにも繋がりました。 もう大丈夫かな？と思っていたら午後になっていきなり ネットに繋がらなくなりモデムを確認すると同じ状況。 やっぱりモデムが壊れているのか？と思い、 もう一度プロバイダに問い合わせたところ3/16から NTT回線のメンテナンスを行っているらしく、 終了の目途も立っていないとのこと。 とりあえず前回同様そのままにしたところ2時間ぐらい たってモデムが元に戻り、ネットに繋がりました。 今のところ同じ問題は起きていませんが、 管理している側としてはいきなり繋がらなくなる というのはたまったものじゃありません。 長くなりましたが、このような問題があった以上 管理側としては問題の原因とその対処方法を 報告しなくてはいけません。 そこで質問ですが他のプロバイダ（ＯＣＮとか） はこういった問題は特になかったのでしょうか？ 各企業で同じように管理している方、もしくは 個人の御自宅の通信状況に関してもかまいません。 今回の地震、及び計画停電の影響で通信環境に 何かしらの問題があったという方、どの様な問題が 起きて、どの様に解決したか教えてください。 同じプロバイダを使用している人も同じような 問題があったというのであれば、その状況も お聞きしたいです。 プロバイダを変えれば問題は解決するとは 思ってはいませんが、最悪それも視野に入れて 現在調査及び検討中です。 様々なご意見お聞かせ願いたいと思います。 ご返答宜しくお願いします。

311の地震前に激太りしませんでしたか？ 私は１ヶ月前から4キロ位体重増加し、311を境に4キロ痩せて元に戻りました。 原因不明に体重増加したので不思議でブログにぼやきのコメントをしてました。 そしてまた、この数週間で体重が５キロも増加しているのでびびってます。 ただの偶然でしょうか。地震の前に体調の変化や体重増加に気づかれた方いたら教えて下さい。

アンティークショップで７年ほど前に買った、イタリア　Diamantini Domeniconi社のホールクロック（グランドファーザークロック）です。 先日の震災の際に前のめりに転倒し、時計部や正面扉などが破損しました。 惚れ込んで、三ヶ月ほど迷った挙句購入に踏み切った、思い入れのある品なので、できれば修理をして、また使いたいのです。 千葉市近辺で、この手の時計を修理できるところをご存知でしたら、教えていただけませんか？ よろしくお願いいたします。

2011年３月某日に東京都23区外で結婚式を予定していた者です。 地震によって式を決行かキャンセルかどうしようかと考えていた矢先、 式場の方から安定したサービスが提供できないということで延期を考えるよう勧められ こちらも総合的に考え延期を決断いたしました。 その後、式場より日程変更の電話がありました。 私達は遠方のゲストのことを考え午後の式を予定していました。 式場によると、年内は午前午後とも全て一杯であるということでだめ、 来年の３～５月も人気である午後はほぼだめで仏滅が２日程空きあり、午前は先負けと仏滅などで数日空きありとのこと。 全ての準備が整っている状態で一年後というのもライフプランが変わってきてしまうし、 何よりも式場が良い日取りを出し惜しみして教えてくれていないとしか考えられません。 １年先でもトップシーズンは仏滅しか空いていないというのは、信じがたく私達に不誠実で不信すら感じます。素人考えですが、嘘をついているのだと思います。 ガーデンでデザートビュッフェが素敵な式場なので、 真夏や真冬でははなから契約していなかったのでその時期を勧められても行いたくありません。 あとは式の日を待つだけのところまできているので、 日柄は悪くても式場に疑問はありつつも一年後に今の式場で行うのか？ ものすごく大変な思いをして作り上げたけども、いっそ思い切って新しい式場で１から作り直して行うのか？ 結婚式自体をやめてしまうか？ とても悩んでいてて何が正しいのか、何がしたいのかわからなくなっています。 どうぞどなたかアドバイスがありましたら、どんなことでも結構ですのでよろしくお願いします。

高校１年のものです。 被災された地域に千羽鶴を折って送ろうと考えていたのですが、よく考えるとごみになると思いました。 しかしまだ高校生なので募金できるような金額もほんの少ししかありません。 私自身阪神大震災を経験しているので、何か手助けしたいと考えています。 運送会社各社は個人の物資は受け付けてないということはわかっています。ですから、落ち着いてから募金とともに千羽鶴を送るのって向こうの方々にとっては迷惑な物になるのでしょうか。 自己満だと思いますが、どうしても助けてやりたいんです。 ご回答お待ちしています。

みなさん、お疲れ様です。 地震大丈夫でしたか？ 本題なのですが、 進学の関係があって、3/27、おそくても3月中に仙台に行きたいのです。 (入学式は一か月ずれたのですが、諸事情により) 新幹線は復旧のメドはまだですし、 高速バスも、東北自動車道等の通行止めで使えません。 よって、質問なのですが、 地方路線の乗継等あってもよいのですが、 出来れば公共機関で、なければ車で、 八戸-仙台を移動できる交通手段を教えてくださるとうれしいです。 よろしくお願いします。

ご教示お願い致します。 今回の東北地震で円高に触れる要因が理解出来ません。 地震により製造工場等の打撃に伴い、日本経済を危惧して円を売って円安に転じるものと理解しているので前述の要因が解かりかねます。 宜しくお願い致します。

　私は現代の若者のとげとげしさについていけず、宗教を見学しに行く事がよくありました。 　創価学会・エホバの証人が近所だったんで行ったことがあり、おおまかな宗教の内容を勉強させてもらいました。 　そして 　ものすごい不謹慎な質問になっちゃうんですけど 　今回の震災で沢山の方が亡くなられましたが、その中に創価学会・エホバの証人の信仰をしていた 人はまったくいないんでしょうか？ 　 　逆に亡くなった方が信仰を一生懸命していたら、震災をまともに受けた地域に住んでいても助かったと宗教では解釈できるんでしょうか？ 　 　

[東日本大地震 ] 日本への礼儀 (韓国詩人 ) - Pray for Japan / Help Japan http://j.mp/grJyOk 日本への礼儀 - 詩人 : 高銀(コ•ウン) どうやってあのような粗暴な災難に 口を開け、 虚ろな声を出すというのか どうやってあの目前の真っ暗な破局に 口を閉ざし 頭を巡らせるというのか どうもこうも出来ないお手上げ状態で生中継の画面を見る 幾千か、 幾万か知れない日常の善良な命達 もう生き返る事は出来ない 母親も 赤ん坊も おじいさんも呑み込まれた 父親も 姉も友達もあの泥濘の山に埋もれた そしてつつましいあなたの家 すべて呑み込まれた 船が陸に上がりひっくり返り 車がおもちゃのごとく流された 牛乳も水もない 人間の安楽とはどんなに不運なのか 人間の文明とはどんなに無明なのか 人間の場所とはどんなに空しいのか あの唐山あのインドネシア あのハイチ あのニュージーランド 今日また日本の事変で 人類は人類の不幸で自らを悟る しかし日本はやはり美しい 決してこの不幸の奈落に墜ちることなく 犯罪も 買い占めも 混乱も無しに 私があなたに あなたが私にして この極限の状況を乗りきり、打ち勝つ 今日の日本は 再び明日の日本だ 私の隣人日本の苦痛よ苦痛のまた次よ 今日の日本へと 以後の日本必ず立ち上がる 日本を愛する韓国で