約 2,105,496 件
https://w.atwiki.jp/trpg_summary/pages/3268.html
KP スイ PL＆PC 高生紳士：嘉恕地図 藍月すりっぷ：嘉恕彙王 配信 2023/01/27 20 00- 【高生卓】欠落者のレゾンデートル【PL：藍月すりっぷ、高生紳士】 ハッシュタグ #藍黄色のレゾンデートル イラスト 黒田じっこ：@kurodajikko ツイート 告知 配信告知 スイ / 高生紳士 / 黒田じっこ キャラクター紹介 (四宮伊織 (高生紳士 1 / 2)) 感想 スイ / 高生紳士 / きのこ 立ち絵・イラスト 嘉恕地図 / 嘉恕彙王 ラフ / https //twitter.com/moe_sui/status/1619003718539841536?s=20&t=YINvLxIZJaIGQ6SOYMhwIA
https://w.atwiki.jp/ce00582/pages/224.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim avgtmtime(1900 To 2100) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(2000 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next z2 = 0 For car = 1 To 24 z2 = z2 + car * mis(byear, 64, car) + car * mos(byear, 64, car) Next avgtmtime(byear) = z2 / z1 Debug.Print byear, avgtmtime(byear) Next Open "c /stream/gdata/男子通算平均加入年数1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgtmtime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1458.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim avgftime(1900 To 2100) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(2000 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next z2 = 0 For car = 25 To 49 z2 = z2 + car * mis(byear, 64, car) + car * mos(byear, 64, car) Next avgftime(byear) = z2 / z1 Debug.Print byear, avgftime(byear) Next Open "c /kirakira/gdata/女子平均加入年数1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgftime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/195.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim avgmtime(1900 To 2100) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(2000 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next z2 = 0 For car = 25 To 49 z2 = z2 + car * mis(byear, 64, car) + car * mos(byear, 64, car) Next avgmtime(byear) = z2 / z1 Debug.Print byear, avgmtime(byear) Next Open "c /stream/gdata/男子平均加入年数1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgmtime(byear) Next Close #4 End Sub
https://w.atwiki.jp/monosepia/pages/9574.html
音楽 ーーー BABYMETAL / Gothic Metal / Symphonic Metal / BLACKMETAL + ﾆｭｰｽｻｰﾁ〔ヘビーメタル〕 【新刊発売・刊行記念イベント】10年間のプロレスラー人生を終え ... - valuepress（バリュープレス） バレンシアガのランウェイショーを全て手がける音楽家、BFRNDが語る楽曲制作の舞台裏 - GQ JAPAN 【DDT】大仁田厚の“化身”グレート・ニタがDDT初降臨で狂乱勝利し ... - Yahoo!ニュース 964型「ポルシェ911」のプロフェッショナル集団！ シンガー・ビークル・デザインの仕事を知る - webCG abort.、「PAST」を配信開始 - THE MAGAZINE ANKH、「BIRTH」を配信開始 - THE MAGAZINE 個性的な“スクエア型ダイバーズウォッチ”は「海洋科学探査船」の活動へ ... - VAGUE 【DDT】平田一喜がMIKAMIを「DDT雑学王デスマッチ」で破り ... - Yahoo!ニュース 【DDT】秋山＆ディーノ＆大石がイラプションが返上したKO-D6人 ... - Yahoo!ニュース プレミアリーグでNo.1の働き者とは？ 走行距離ランキングトップ10 ... - Yahoo!ニュース トヨタ カムリ 新型にスポーティハイブリッド「XSE」を設定…ロサンゼルス ... - レスポンス クレイマー、『ヒストリック・コレクション』第1弾メイド・イン・ジャパンの ... - BARKS 青山蜂、28周年を祝うアニバーサリー企画を開催！6日間9公演＆ ... - clubberia ReoNa、8thシングル「R.I.P.」アニソンルーツへの回帰と「怒り」への寄り添い - Musicman | 音楽業界総合情報サイト 緑黄色社会「花になって」インタビュー｜アニメ「薬屋の ... - 音楽ナタリー Knosis、2nd EPリリース 自分自身の中にある“奈落”を直接的攻撃性をもって表現 - Real Sound DDTアイアンマン王座、高橋ヒロムから“IWGPジュニアのベルト ... - Yahoo!ニュース 【DDT】元WWEの黒潮TOKYOジャパンが正田壮史に出直しの勝利 ... - Yahoo!ニュース 【DDT】MAOがマット・カルドナとの大乱戦を制しUNIVERSAL ... - Yahoo!ニュース 【DDT】‟世界のスーパースター“クリス・ジェリコが竹下幸之介と ... - Yahoo!ニュース 【DDT】赤井沙希が両国のリングで美しいまま散った！「本当に夢 ... - Yahoo!ニュース 「THE FIRST SLAM DUNK」主題歌で注目の10-FEET、結成26年目 ... - Yahoo!ニュース 斬新すぎるコラボ！ エアロスミスたい焼き「りんご飴味」を食べ ... - ガジェット通信 【DDT】上野勇希がクリス・ブルックスからKO-D無差別級王座を ... - Yahoo!ニュース 「新日本プロレスの日本人選手」人気ランキングTOP31！ 第1位は「内藤哲也」【2023年最新投票結果】（1/6） | エンタメ ねとらぼ調査隊 - ねとらぼ 武藤敬司ら名レスラーの“入場テーマ”生み出したギタリスト、副業の ... - Yahoo!ニュース 【REPORT】韓国の実力派アーティストが揃い踏み！日本での活躍 ... - Yahoo!ニュース 祝28周年、「青山蜂」がアニバーサリーパーティーを開催 - Time Out Tokyo 【DDT】高橋ヒロムを平田一喜が急襲もアイアンマン王座奪還なら ... - Yahoo!ニュース 《2023年》全部わかるサワラ釣り！プロに教わる基本からロッドや ... - ルアマガ＋ 【新日本】ヒロムに挑戦の石森太二 Jr.王座奪回後のプラン披露 ... - Yahoo!ニュース 鼻をピーピー鳴らしたら「落ち着かない」のサイン しぐさから ... - ガジェット通信 J.I.M.（ジャパニーズ・イロモノ・メタル）バンド、HELL DUMPの ... - Yahoo!ニュース JILUKA、「VENΦM」を配信開始 - THE MAGAZINE 【新日本】アイアンマンのベルトに同胞とヤングライオン奇襲「陽太様までなの？」高橋ヒロム動揺 - ニッカンスポーツ クロップ監督の「ヘビーメタル」に呼応する鬼っ子の激情 アン ... - スポーツナビ 村上晴彦のメタルジグ「ネコメタル」に2024年、新タイプとなる ... - ルアーニュースR 【DDT】WWEを離れた元黒潮“イケメン”二郎が11・12両国に参戦し ... - Yahoo!ニュース 【DDT】クリス・ブルックスが上野勇希とのKO-D無差別級王座の ... - Yahoo!ニュース 【DDT】納谷幸男が斉藤ブラザーズの襲撃を受け激怒！「11・12 ... - Yahoo!ニュース 【DDT】高橋ヒロムがアイアンマン王座を奪取し、11・12両国での ... - Yahoo!ニュース ジャニーズＮＧリスト会見になぜがヘビーメタル界騒然 松本アナは ... - ガジェット通信 遠藤航、ヘビーメタル・フットボールの洗礼 レギュラー獲得へ ... - スポーツナビ 「今日のために俺結構ダンス練習したから」土井成樹が華麗な ... - Yahoo!ニュース blue edge emotion、「21.262g」を配信開始 - THE MAGAZINE 【ＤＤＴ】土井成樹にアイアンマン王者の〝呪縛〟 奈良凱旋前に鹿をも ... - 東スポWEB まさに天才的発想！小松菜にヘヴィメタルを浴びせて育てた ... - @DIME 心斎橋BAHAMA周年ライブにEARTHSHAKER、44MAGNUM、MARINO、Gargoyleら - 音楽ナタリー イケメン俳優、声優も推しの「メタル界の高田純次」と「和製 ... - ガジェット通信 独メタルフェス「来場しないで」 大雨で例年以上にドロドロに - AFPBB News 名前を取り戻す闘いの始まり ビジュアル系バンドは法廷に向かった ... - 朝日新聞デジタル デスボイスとクリーンボイス ４人組ガールズバンド「花冷え。」８月から欧米 ... - ニッカンスポーツ 『重戦機エルガイム』よりエルガイムが千値練「RIOBOT」シリーズに登場 ... - 電撃ホビーウェブ 千値練が「RIOBOT」シリーズの新作を予告！最新弾はあのA級ヘビー ... - 電撃ホビーウェブ 『#2 KIBA～36年間活動中のヘビーメタルバンド～』～女子プロレス ... - Yahoo!ニュース 特集：JAPANESE HARD ROCK / HEAVY METAL IN THE 80 S ... - TOWER RECORDS ONLINE ＡＯＲの代表格ＴＯＴＯ 「アフリカ」「ロザーナ」 親しみやすさと超絶技巧 ... - 山陰中央新報社 ハード・ロック/ヘヴィ・メタル界で先陣を切った9組の女性たち - https //www.udiscovermusic.com/ メタリカのワールドツアー中継上映会場で「ヘドバン」解禁に - Time Out Tokyo ソラミミスト安齋肇さんのザ・ベスト「僕の管理人だった彼女」の ... - 朝日新聞デジタル Metallica、10年ぶりの来日公演は実現するのか？ メタルバンド来日ラッシュの背景にある世界的なツアー状況の変化 - Real Sound ライブハウス「目黒鹿鳴館」、2024年１月にビル退去でも「必ず ... - ツギノジダイ 北欧発の「ヘヴィメタル編み物世界選手権」って知ってる？借金を ... - FASHIONSNAP.COM 谷原章介、早口で『メタリカ』熱弁し出演者が”絶句”…「オタク特有 ... - 中日新聞 世界初のヘビメタバレエ「ブラック・サバス」 英バーミンガム - AFPBB News Black Sabbath（ブラック・サバス）｜メタル史にその名を刻む傑作 ... - TOWER RECORDS ONLINE パーキンソン病と闘う74歳のオジー・オズボーンが語る、胸に秘め ... - VOGUE JAPAN BABYMETAL、DETHKLOKと北米を巡るコーヘッドラインツアー決定 - OTOTOY ヘヴィ・メタルがこれほどまでに熱心なファンを生んでいる理由 - https //www.udiscovermusic.com/ LOVEBITESのギタリスト miyako、ピアニストとしてソロ ... - 激ロック ニュース ヘビーメタルバンド「ジェノサイド ニッポン」結成40年で初の海外ライブへ ... - 福井新聞 竜巻が“ヘビメタ”コンサート会場を直撃 29人死傷 米イリノイ州[2023 ... - テレビ朝日 伊藤政則の『HEAVY METAL SOUNDHOUSE』が初の夏期開催！ 7 ... - BURRN! ONLINE SEX MACHINEGUNS｜ニューアルバム『地獄の暴走列車』4月12日 ... - TOWER RECORDS ONLINE 『Rolling Stone』誌、史上最高のヘヴィ・メタル・ソング・ランキングを発表 - BARKS 新ユニット「ルームメイツ」の化学反応を聴け 坂本英三とＭＡＤ大 ... - ZAKZAK Ｗ杯でバズった「SHONO」も登場！ いま、この「メタル美女」が熱 ... - 週プレNEWS 「Call of Duty Mobile」，“シーズン2：ヘビーメタル”を2月23日より ... - 4Gamer.net 認知症予防にヘビメタを習う高齢者が急増！？おじいとメタルで ... - アットプレス（プレスリリース） 焦点：悲観論広がる中国Ｚ世代、「コロナ後」の習近平政権に難題 - ロイター (Reuters Japan) スウェーデンのヘビーメタルバンドが、優れた教育者として表彰された理由 ... - IDEAS FOR GOOD ドキュメンタリー映画「紫 MURASAKI 〜伝説のロック・スピリッツ ... - 東京新聞 高校生で脱毛症に 帽子を脱いだ日「世界はなにも変わらなかった ... - 朝日新聞デジタル 2023年3月に限定復活開催される『LOUD PARK』のヘッドライナー ... - BURRN! ONLINE Metallica（メタリカ）｜世界最強のヘヴィメタル・バンド、6年4 ... - TOWER RECORDS ONLINE ショアジギで青物乱打！ 秘密兵器となり得るメタルジグ「クロ ... - ルアーニュースR アートホテル大阪ベイタワー“ヘヴィメタル”テーマの過激な ... - Fashion Press 【ショアジギングにヘビメタ！】メジャークラフトからショアジギ ... - ルアーニュースR 略すなら「ヘビメタ」よりも「メタル」がいい だけど好きなら ... - nhk.or.jp ヘヴィ・メタルの芸術性：独自に進化し続けたビジュアル・スタイル - https //www.udiscovermusic.com/ 現代ヘヴィ・メタル・シーンの旗手 TRIVIUM――攻撃的でありながらメロ ... - 激ロック ニュース ヘヴィ・メタルを代表するモンスター・バンドが放つ 戦術 ――過去最大級 ... - 激ロック ニュース ハードロックやヘヴィメタルを聴くと不健康になるとの研究結果が ... - HYPEBEAST 歴代最高のメタルアルバム100選 - http //rollingstonejapan.com/ 【西山瞳の鋼鉄のジャズ女】第27回 ヘヴィメタルの歴史的に絶対聴いてお ... - Mikiki 「これは……A級ヘビーメタルのバッシュ！……カッコいい！」、HI ... - GAME Watch ヘビーメタル×オーケストラ？クロップ・リバプール進化の過程 - footballista - footballista 頭が良くなる音楽はモーツァルトではなく「ヘヴィメタル」だった！？ 脳科学 ... - Study Hacker へヴィ・メタル・サンダー - ”へヴィ・メタル”の誕生を追う - https //www.udiscovermusic.com/ ヘヴィメタル10種類のサブジャンルをドラムの演奏で再現 - GIZMODO JAPAN ● ヘビーメタル〔ﾉｲｽﾞﾚｽｻｰﾁ〕 ● ヘビーメタル〔blog Google検索〕 + ﾆｭｰｽｻｰﾁ〔Heavy Metal〕 NGT takes up suo motu case on presence of heavy metals in vegetables - Deccan Herald The blues bands that originally inspired Black Sabbath - Far Out Magazine Heavy Metal & Burgers My Honest Review on Kuma s Corner - The Elgin Observer Geraldo Rivera O jornalista sensacionalista que tentou acabar com ... - RockBizz Με... heavy metal ναυτικοί προσπαθούν να αποτρέψουν επιθέσεις από όρκες στην Ισπανία - Δείτε βίντεο - Πρώτο Θέμα Tatort Borowski und das unschuldige Kind von Wacken - NDR.de Rob Halford Talks Dolly Parton Duet And Rescuing Kittens - Woman s World Illegal Mining GWCL s inability to filter heavy metals from drinking ... - Myjoyonline Stadtkapelle Donaueschingen Von Blasmusik bis Heavy Metal ... - Schwarzwälder Bote 26 discos que cambiaron el rumbo del metal para siempre - The Metal Circus Specialutgåvor för Metallicas turné 2024 - Tidningen PROFFS Et hat større enn Beatles? - Heavymetal.no I m not so lonely now, there are other girls to talk with and exchange ... - Louder Metallica Kirk Hammett stürzt beim Konzert in Detroit auf der Bühne - metal-hammer.de Kritik zu High Spirits SAFE ON THE OTHER SIDE - metal-hammer.de METAL HAMMER Paradise 4.000 Besucher feiern die zehnte ... - metal-hammer.de Iveco teams up with heavy metal band Metallica to launch special ... - Commercial Motor Katil balina saldırılarına karşı yeni savunma yöntemi Heavy metal - TRT Haber Sailors Turn to Heavy Metal to Fend Off Rowdy Orcas - The Maritime Executive 9-year-old girl killed when school’s metal gate falls on her, Arizona cops say - Yahoo News Heavy metal -legenda Judas Priest suosittelee somessa hieman ... - V2.fi Luke O Neill Heavy metal music might reduce climate change - Newstalk Heavy Metal ... des Lied ich sing - nd - Journalismus von links Simultaneous quantification of lead, cadmium and zinc in superficial ... - Nature Journal Vosges. Saint-Dié du heavy metal au musée Pierre-Noël pour ... - Vosges Matin Black Pantera lança Griô e quer ser exemplo para músicos negros no metal - UOL Singer Shanul Sharma swapped heavy metal for opera and has never looked back - ABC News God is heavy the rise of Christian metal - Boston - WECB Canada s LANCASTER Is Dropping A Payload Of Heavy Metal With ... - Metal-Rules.com HEAVY METAL Steel installed on thruway overpass - Niagara Frontier Publications Segunda onda do heavy metal britânico - Rádio Câmara - Portal da Câmara dos Deputados Cosmic Forges Exploring a Heavy-Metal Factory 900 Million Light ... - SciTechDaily Bill Bailey says he s well up for making another heavy metal album - NME Heavy Song of the Week Ihsahn’s Pilgrimage to Oblivion - Consequence Heavy-Metal-Dinosaurier kommen 2024 nach Leibertingen ... - schwaebische.de Lady Gaga s fans make up lies about lyrics to get more streams - Insider Pioneira do heavy metal, banda Saxon toca em Brasília neste sábado - Correio Braziliense Dave Grohl L’heavy metal non sarebbe esistito senza i Led Zeppelin e se fosse esistito avrebbe fatto schifo - Virgin Radio November rain brings a cold shock and heavy metal nostalgia - The Irish Times Heavy Metal lanzará una canción a favor de la protección de los ... - Revista Inversiones y Negocios Panamá Heavy on metal - Bangalore Mirror „Răscoala orcilor” în largul coastelor Spaniei și Portugaliei. Marinarii încearcă să le sperie cu muzică... - Digi24 Spotify-Playlist mit Heavy-Metal-Songs soll Orcas abwehren - Business Insider Deutschland Bullet, terapia de choque de heavy metal - Metal Journal Il motore Iveco gira a ritmo heavy Metal - Uomini e Trasporti Christmas ads countdown John Lewis is king, heavy metal fans love ... - Prolific North Grande nome do heavy metal, Angra se apresenta em Porto Alegre ... - Super Transado PANTERA The Anthems Of Aggression And Power That Etched The ... - Sonic Perspectives Judas Priest to bring heavy metal to Empower FCU Amphitheater in Syracuse - syracuse.com La Nueva Ola del Heavy Metal Británico sus eslabones perdidos - Futuro Chile 11 legendary heavy metal bands with only one original member left - Yahoo Entertainment Boiler Room Draws Inspiration From Heavy Metal, Motocross For ... - Complex Jay Weinberg breaks silence after split from heavy metal band Slipknot - MorungExpress World s most popular heavy metal Christmas rock band is back in Colorado - 9News Super, sensational Ryan Searle! | Heavy Metal lights up Grand ... - Sky Sports 【『JAPAN HEAVYMETAL FANTASY 2023【BAHAMA STILLALIVE ... - OKMusic Heavy Metal guitarist Nita Strauss on her career and latest album - KHOU Heavy metal icons Pantera stopping in Baltimore on tour - CBS News Heavy metal The Junkers armored patrol plane — General Aviation ... - General Aviation News The 10 greatest solo albums in heavy metal history - Louder Queensrche to perform at Empire Live - NEWS10 ABC The Grammys are still failing heavy metal – with so many new bands ... - Louder Features | Columnus Metallicus | Columnus Metallicus Heavy Metal ... - The Quietus Heavy metal pole strikes restaurant patron on the head - Massachusetts Lawyers Weekly Heavy metal legends - Topeka & Shawnee County Public Library NEXUSレーベル配信企画 第2弾！ HEAVY METAL ARMY ... - BURRN! ONLINE Researchers Heal Heavy Metal Poisoning from Implants - UConn ... - University of Connecticut Bruce Dickinson, jedan od najvećih i najosebujnijih heavy metal ... - Novi list Heavy Metal im Weltraum - Helmholtz Home - helmholtz.de Man, 41, Goes Overboard During Heavy Metal Cruise to the Bahamas - PEOPLE Heavy Metal - Kirchenglocken in einer säkularen Gesellschaft | NDR ... - NDR.de Taking the hard road Saudi music company pushes heavy metal ... - Arab News Heavy metal Linux 6.6 has arrived - ZDNet Bowdens Silver mine will shut down if heavy metal dust found in NSW community, inquiry hears - ABC News Bright flash leads astronomers to a heavy-metal factory 900 million ... - Massachusetts Institute of Technology Consumer Reports casts shadow on chocolate s heavy metal content - AGDAILY The 10 worst creative decisions in heavy metal history - Louder 10 heavy metal cover songs more popular than the originals ... - Louder Falleció Ricardo Iorio la leyenda del heavy metal argentino ... - Municipalidad de Coronel Suárez Murió Ricardo Iorio, ícono del heavy metal argentino - Página/12 Research flags heavy metal contamination in vegetables across Bengaluru - Deccan Herald Unaccounted for Heavy-metal drummer Yotam Haim, from Kfar Aza - The Times of Israel Wacken Metal Academy So geht Heavy Metal - NDR.de HEAVY METAL SOUNDHOUSE 2023が12月に開催、ゲストDJに ... - Young Guitar HEAVY METAL／HARD ROCK系アーティスト最新・人気・定番 ... - MUSIC LIFE CLUB HM/HR系のグッズが大集合するポップアップストア『PGS METAL ... - BURRN! ONLINE 『JAPAN HEAVY METAL FANTASY 2023』にPRESENCEの電撃追加 ... - OKMusic 大阪で3年ぶり開催！ 過去最大級！ HEAVY METAL/HARD ROCK系 ... - ドリームニュース BAHAMA開業60年周年を記念し、関西HR/HMシーンのレジェンドによる ... - OKMusic 特集：JAPANESE HARD ROCK / HEAVY METAL IN THE 80 S ... - TOWER RECORDS ONLINE ハード・ロック/ヘヴィ・メタル界で先陣を切った9組の女性たち - https //www.udiscovermusic.com/ ヘヴィ・メタルがこれほどまでに熱心なファンを生んでいる理由 - https //www.udiscovermusic.com/ 伊藤政則の『HEAVY METAL SOUNDHOUSE』が初の夏期開催！ 7 ... - BURRN! ONLINE ● Heavy Metal〔ﾉｲｽﾞﾚｽｻｰﾁ〕 ● Heavy Metal〔blog Google検索〕 + heavy metal プレイリスト ミックスリスト - ヘヴィメタル〔Youtube〕 ヘヴィメタルがヘヴィメタルであったのは、79年から85年まで（実質84年まで）。そのあたりに名曲やギターの名演奏があるのでね 80年代でもまあせいぜい88年のザック・ワイルドが出たくらいまでなんだ ハードロックは68年から70年代いっぱいね — Vox Populi (@bruisu_ncnudl) May 1, 2023 ■ シンフォニックメタル系Youtube Mix playlist ■ Top Metal 2020 - Ultimate Hard Rock Heavy Metal #RedMusic Biggest Songs ■ 【天才】トップ5%の頭いい人たちが好む音楽とは メンタリスト DaiGo 2019/09/28に公開済み ■ 頭が良くなる音楽はモーツァルトではなく「ヘヴィメタル」だった！？ 脳科学からいえるこれだけの理由 「STUDY HACKER（2019-04-25）」より / 「クラシックを聴くと頭が良くなる」。そんな意見を聞いたことがある人も多いのではないでしょうか。しかし、脳科学者の中野信子さんは、一般的にマイナスのイメージを持たれる「ヘヴィメタル」（以下、メタル）を聴くほうが、むしろ頭は良くなる可能性があると大胆な推察をしています。 そこで今回は、長年にわたるメタルファンで、2019年1月にメタルが脳に及ぼすポジティブな影響を考察した『メタル脳 天才は残酷な音楽を好む』（KADOKAWA）を上梓した同氏に、メタルを聴くと本当に「頭が良くなるのか」を聞いてきました。 構成／岩川悟（slipstream） 取材・文／辻本圭介 写真／櫻井健司 「モーツァルトを聴くと頭が良くなる」って本当？ 「クラシックは良い音楽だ」「心にも頭にも良い影響がある」。そんな「クラシック信仰」とでもいうべき見方が、世の中には根強く存在します。たとえば、モーツァルトを聴くと頭が良くなるという、いわゆる「モーツァルト効果」を頭から信じ込んでいる人もいまだに多いようです。 わたしは、こうしたことをかなり問題がある行動だと感じています。もちろん、クラシックが良くないといっているのではありません。クラシックを聴くと具体的にどんな効果が見込めるのか、身体のどのような機能に対して良いのかを理解して人にすすめるならいいと思います。でも、「なんとなく頭に良さそうだから」と思ってステレオタイプな見方で聴いたり、人に押しつけたりするのは、疑問を抱かざるを得ないのです。 「モーツァルト効果」は、1993年に『Nature』に掲載された「モーツァルトを聴かせたら大学生の認知力テストの成績が上がった」とする研究報告によるもので、発表されるとまたたく間に全世界に広まりました。しかし、その6年後、心理学の専門誌『Psychological Science』に掲載された論文で、3人の研究者がその研究結果に再現性がないとして否定したのです(※1)。その論文により、「モーツァルト効果」が、「アーティファクト（人工的に出てきた結果）」であることがあきらかになりました。 「モーツァルト効果」 は数々の研究で否定されている 「アーティファクト」といっても、けっして悪意のある捏造などではなく、研究者がまちがって発見してしまっただけです。おそらく最初の研究者は、「モーツァルトを聴くと頭が良くなるはずだ」と思い込んで研究したのでしょう。そして、一般的な科学の実験でも起こることなのですが、真実の効果ではなく「研究者が見たいと思う効果」が見えてしまったにちがいありません。 （※mono....中略） / 成績優秀者に限ると、「メタルを聴くほうが頭が良くなる」可能性が高い じつは、わたしはいまだ音楽産業や教育産業のPR・マーケティングとして使われ続けている「モーツァルト効果」よりも、むしろ「メタル効果を期待したほうが良いのでは？」と考えています。これはあくまでわたしの推論ですが、語学や資格取得のための勉強をするとき、成績優秀者に限っていうと、メタルを聴いている人のほうがより「頭が良くなる」と考えられるからです。 というのも、成績が良い人というのは不安傾向が高いことが多く、心のバランスを取る役割を持つホルモンであるセロトニンがあまり出なかったり、うまく使いこなせなかったりする脳の持ち主だといえるからです。要は、ちょっとした出来事でも「もっと悪いことが起こるのではないか？」と不安に感じてしまうような人たちです。 そんな人は、勉強においても「ここが悪かった」「だから次は良くしよう」というように、自分に対してネガティブなフィードバックをする傾向にあります。まさに、それゆえに成績が良くなる面があるのですが、この高すぎる不安傾向をメタルという音楽がうまく埋めてくれることで実力を発揮しやすくなり、パフォーマンスが向上したという報告もあります。 （※mono....略） / メタルは、ストレスやプレッシャーから人間を守るのに役に立つ音楽 メタルに関するちょっとユニークな調査結果もあります。イギリスのウォーリック大学の研究チームが成績の優秀な学生を選んでメタルに関する調査を実施したところ、メタルはストレス発散や欲求不満の解消に役立つ効果が認められたのです（※3）。 成績優秀であることは、同時に大きなプレッシャーを抱えることにもつながります。たとえば、自分自身の期待に加え、まわりから過度な期待があると、それがプレッシャーへと変わる場合があります。しかし、研究に参加したスチュワート・キャドワルダー氏は、「メタルを聴くことでそんなプレッシャーを一時的に忘れ去ることができるのかもしれない」とコメントを残しています。つまり、一時的にストレス耐性を上げるわけですね。 このようなことからも、「メタルなんか聴くと頭に良くない！」といった意見が、いかにステレオタイプで短絡的な見方であるかがおわかりになるはずです。 別に成績優秀者に限らず、社会人なら多かれ少なかれストレスを感じて生きています。少なくとも自分自身を不安傾向から守り、「ここぞ！」というときに力を発揮できるようにするためには、「メタルも役に立つかもしれないな」という認識を新たに持っていただけると良いと思いますね。 ■ ヘヴィメタルは「不安解消」に効く！ 手術中の外科医も好んで聴く “残酷な音楽” の力 「STUDY HACKER（2019-04-26）」より （※mono....こちらの記事も必読！！） ■ 「頭のいい人たちがもっとも好む音楽はレディオヘッド」、米研究結果で 「rockin'on .com（2014.10.23 23 08）」より / ヴァージル・グリフィスというソフトウェア・アプリケーション・ライターがここ数年に亙り、主な米大学ごとのSAT（大学進学適性試験）の平均得点と、その大学に通う学生の音楽の好みを照らし合わせてきたところによると、レディオヘッドこそ頭のいい人たちが聴く音楽であるという結論に達したという。 これにはたとえば、カリフォルニア工科大学に通う学生の大学進学適性試験得点が1520点と高く、さらに同大学の学生のフェイスブック上で最も人気のバンド（あるいは、最も「いいね！」がクリックされているバンド）がレディオヘッドだった、というような結果が反映されている。 （※mono....以下略） .
https://w.atwiki.jp/ce00582/pages/1596.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1900 To 2100, 14 To 69, 1 To 49) As Single Dim mos(1900 To 2100, 14 To 69, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1900 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1900 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1900 To 2100, 0 To 99) As Single Dim minx(14 To 75, 0 To 50) As Single Dim mout(14 To 75, 0 To 50) As Single Dim mnew(1900 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /eli/gdata/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3 age = a1 car = a2 minx(age, car) = a3 Loop Close #6 Open "c /eli/gdata/女子待期者.txt " For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3 age = a1 car = a2 mout(age, car) = a3 Loop Close #7 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1944 To 1989 ageage = 2008 - byear age = ageage For car = 1 To 49 a1 = minx(age, car) a2 = mout(age, car) mis(byear, age, car) = a1 mos(byear, age, car) = a2 Next age = ageage + 1 mis(byear, age, 1) = f2by(byear, age) For age = ageage + 1 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next age = 64 z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, age, car) + mos(byear, age, car) z2 = z2 + car * (mis(byear, age, car) + mos(byear, age, car)) Next mnew(byear) = z2 / z1 Debug.Print byear, mnew(byear) Next mnew(1943) = mnew(1944) Open "c /eli/gdata/女子通算平均加入年数2.txt " For Output As #4 For byear = 1943 To 1989 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/gtavi_gta6/pages/248.html
父と子 （Father/Son） 父と子 （Father/Son）概要 ミッション内容 ゴールドメダル取得条件 余談 ミッション終了後の任意の電話 動画 概要 フランクリンとの交流を深めるため、バーへ誘うマイケル。しかしその時、息子のジミーから助けを求める電話が。 かくして息子と船を取り戻すため、走りだす二人であった。 ミッション内容 マイケルかフランクリンでマイケルの自宅へ行くとミッション開始。 マイケルにスイッチされる。フランクリンと一緒に出かけようとするが、ジミーから船（Marquis）を盗まれたと電話が入り、アマンダの車（Sentinel）で奪い返す事になる。 ナビ通り進むと船を積んだ車に遭遇。高速道路で追跡しながら船を積んだ車に接近し、フランクリンを船に乗せる。 途中でフランクリンが強盗（マラブンタ・グランデ）に攻撃されるので、ドライブバイで強盗を倒す。 しばらくするとジミーが船の帆に振り出されて宙ぶらりんになる。ジミーの下に車を合わせてキャッチする。 船の後部に車を寄せてフランクリンをキャッチ。 車がエンジンブローし、追跡を諦める事になる。ロスサントスカスタムに向かい車を修理する(無料)。 マイケル自宅へ行くとミッション完了。 ゴールドメダル取得条件 スピード・レスキュー10秒以内にジミーを救出しろ クレーンに捕まっているジミーを救出するだけ、モタモタしなければすぐに救出できる。リプレイ時はアマンダの車を改造しておけばさらにやり易くなる。慌ててジミーな下に寄せようとするとトレーラーも逃げてしまう上に一般車と接触しやすいので、黄色のマーカーが出てからスピードを上げるのが好ましい。 傷ひとつなしアマンダの車をダメージなしで届けろ 修理して自宅まで安全運転でいけば達成可能。ちょっとコスる程度なら大丈夫。なお車の修理は最初の一回のみ無料で、修理以外だとしっかり金を取られる。 余談 このミッションでフラットベッドが車を載せて走っている。このミッション以外では、フラットベッドが車を載せて走っていないため、この一回でしかお目にかかれない。ちなみに、乗っている車は、ガントレッド。 マイケルが乗って帰るタクシーは、一応レア車両。ミッション終了直後にスイッチし、追いかければ奪える。レアと言っても上の行灯（飾り）がない程度だが。 このミッションは「GTASA」の最終ミッション「end of the line」のオマージュと思われる。暇なときに見比べてみよう。 この時ファントムが引っ張っているトレーラーはこのミッションにしか出現しない。また、このファントムは一切の攻撃を受け付けない完全無敵となっている。また、トレーラーの付近には透明かつ無敵の2台のファントムがあり、透明でないファントムと一緒に動いている。透明ファントムは2台とも別視点用に使われる。船を積んだファントムと一緒にスポーンし、フランクリンを船からキャッチして衝撃の演出が始まった瞬間にゲーム内から消える。透明のファントムは人や車両や普通のオブジェクトに対する当たり判定はないが、銃弾と投射物オブジェクト（ロケットランチャーの弾や投擲物など）に対する当たり判定はあり、火炎瓶による発火（ダメージは受けない）や粘着爆弾の貼り付けが可能となっている。ただし、高速走行かつ透明状態を解除しないと予測できないような動きをしている関係で、狙って当てるのは通り道を覚えない限り難しい。ちなみに、MODで透明ファントムを破壊するとファントムが破壊された場所の視点に固定され、透明ファントムが消えると別視点が使えなくなる。参考として、PC版でScriptHookVDotNetのコンソールで以下のC#コードを入力すると透明ファントムの透明状態を解除できる。BashのようにCtrl+Pや上矢印キーで1つ前に入力したコマンドに戻れるので覚えておくといいかもしれない。 foreach (var veh in World.GetAllVehicles(VehicleHash.Phantom)) { veh.IsVisible = true; } ミッションスクリプト(family1.ysc)によると、ジミーのHPは1000に設定されている(100未満で死亡する仕様上(*1)、実質HPは900)。 + 透明ファントムについてのスクリーンショット。ほとんどは透明化解除したもの。 ミッション終了後の任意の電話 フランクリンはジミーに任意で電話をかけることができる。フランクリンはマイケルを「成果を手にしてきた男」と評価し、そこへの憧れをジミーに対し伝える。 動画
https://w.atwiki.jp/aether2/
ようこそ Aether IIとは？ Aether IIは、MojangのMinecraftのModの一つ。 5人の著名なMOD製作者が合同で合作した超大型MOD「Aether Collaboration Mod｣を新しくしたもので、 「天界」をモチーフにした、「Aether Dimension」を追加します。 Minecraftに存在するNetherとは真逆の雰囲気の、空中に浮かぶ大小様々な島で構成された明るく神秘的なDimensionですが、 出現する敵モブにはえげつない能力持ちのが多く、難易度やボリュームはネザーよりも上になっています。 ※このWikiはまだまだ情報と人手が足りません。更新はみなでやっていきましょう。 ウィキはみんなで気軽にホームページ編集できるツールです。 このページは自由に編集することができます。 メールで送られてきたパスワードを用いてログインすることで、各種変更（サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等）することができます まずはこちらをご覧ください。 @wikiの基本操作 用途別のオススメ機能紹介 @wikiの設定/管理 分からないことは？ @wiki ご利用ガイド よくある質問 無料で会員登録できるSNS内の@wiki助け合いコミュニティ @wiki更新情報 @wikiへのお問合せフォーム 等をご活用ください @wiki助け合いコミュニティの掲示板スレッド一覧 #atfb_bbs_list その他お勧めサービスについて 大容量１Ｇ、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES 無料ブログ作成は@WORDをご利用ください 2ch型の無料掲示板は@chsをご利用ください フォーラム型の無料掲示板は@bbをご利用ください お絵かき掲示板は@paintをご利用ください その他の無料掲示板は@bbsをご利用ください 無料ソーシャルプロフィールサービス @flabo(アットフラボ) おすすめ機能 気になるニュースをチェック 関連するブログ一覧を表示 その他にもいろいろな機能満載！！ @wikiプラグイン @wiki便利ツール @wiki構文 @wikiプラグイン一覧 まとめサイト作成支援ツール バグ・不具合を見つけたら？ 要望がある場合は？ お手数ですが、お問合せフォームからご連絡ください。
https://w.atwiki.jp/javadsge/pages/698.html
package delta; public class pro { int[] m=new int[4]; int[][] dis=new int[4][4]; double theta,alpha,beta; double[][] point=new double[4][4]; double[] d=new double[4]; double[][] y=new double[4][4]; public static void main(String[] args) { pro te=new pro(); } pro(){ d[1]=50; d[2]=40; d[3]=30; m[1]=10; m[2]=7; m[3]=4; dis[1][1]=1; dis[1][2]=2; dis[1][3]=3; dis[2][1]=2; dis[2][2]=1; dis[2][3]=3; dis[3][1]=3; dis[3][2]=2; dis[3][3]=1; theta=0.4; alpha=1; beta=-2; int s,sx; for(s=1;s 4;s++){ for(sx=1;sx 4;sx++){ point[s][sx]=theta+alpha*m[s]+beta*dis[s][sx]; }} double p1; for(s=1;s 4;s++){ p1=0; for(sx=1;sx 4;sx++){ p1=p1+point[sx][s]; } for(sx=1;sx 4;sx++){ y[s][sx]=d[sx]*point[s][sx]/p1; } } } }
https://w.atwiki.jp/roichimakoa/pages/71.html
weight=60 height=1.65 BMI= weight/(height^2) ideal_weight=(height*100-100)*.9 print "Body Mass Index" BMI 20 and BMI 22 print BMI print "理想体重は？♪";ideal_weight;"kg" aisatsu$ = "おはよう" namae$ = "Mr. 山田" print aisatsu$ ; ;;; ; namae$ print aisatsu$ ; namae$ rem 数の糸 0.9 = .9 という入力でも意味をなす。 mod = のこぎり波の生成に使える。テレビのブラウン管でも使用されている。 risouTaiju Tを大文字にすることで見やすい変数定義がされている。アンダースコア「 _ 」を使わないで、二単語の変数定義をするのが最近の流行り。（オブジェクト指向のプログラミングにて） ○○○$ ← 文字列の定義 rem BASIC only の定義 + ←文字列をつなぐ ; ←半角スペース付きの+ rem 配列 ばらばらに動かすときに使える。 seiseki(1) =2 seiseki(2) =5 print seiseki(1) print seiseki(2) 配列変数の書き込み（代入） n( 0 ) =1000 n( 1 ) =1100 n( 2 ) =1200 n( 3 ) =1300 配列変数の読み出し（出力） print "n( 3 ) =";n( 3 ) print "n( 2 ) =";n( 2 ) print "n( 1 ) =";n( 1 ) print "n( 0 ) =";n( 0 ) 配列変数の書き込み（代入） melo$( 0 ) ="o4C" melo$( 1 ) ="E" melo$( 2 ) ="G" melo$( 3 ) ="o5C" 配列変数の読み出し（出力） rem *repeat rem for i=0 to 4 rem play melo$(i) rem next i rem sleep 3000 rem goto *repeat for i = 50 to 650 step 50 circle (i, 400), 10, 7,,,,f 半径10ドットの円をかく sleep 100 100ミリ秒休む next i ループの先頭に戻る 文字列のインプット input "お名前をどうぞ ",yourname$ print "ようこそ"+yourname$+"さん" 数字型のデータインプット input "年齢をどうぞ ",age print "８０年生きれるとして、残りの余命は" print 80-age;"っすね" if age 30 then print "若いですね!" else print "若くもないけど,,,," print "頑張ってください!!" if age = 15 then gosub *veryYoung if (age = 30 and age 15) then gosub *wakai if age 30 then gosub *nagaiki goto *ganbare *veryYoung print "すっごい若いですね" *wakai print "若いですね" *nagaiki print "長生きですね" *ganbare print "頑張ってください" gosub はサブルーチンを使って、作業の流れがはっきりしているところがgoto文より優れている。 input "くどいのは好き？ yes [3] no [1]",jump for i=1 to age step age/jump print "何年も、";; i play melo$( i mod 4) next i print "生きてきたのですね" サンプルプログラム 配列変数でdata読込------------ for i=0 to 12 read x(i),y(i),c(i) x(i)=x(i)+100 y(i)=y(i)+100 next i for i=0 to 11 if c(i)=-1 then *next_loop line (x(i),y(i))-(x(i+1),y(i+1)),c(i) *next_loop sleep 100 next i 外側の線 data 32,0,6,67,0,6,100,100,6,70,100,6,64,80,6,35,80,6,29,100,6,0,100,6,32,0,-1 内側の線 data 50,25,6,60,60,6,40,60,6,50,25,6 sleep 5000 *hajime cls 3 print date$ ; time$ sleep 1000 goto *hajime Pset(320,240),7 Pset(321,240),7 Pset(322,240),7 Pset(323,240),7 Pset(324,240),7 Pset(325,240),7 Pset(326,240),7 Pset(327,240),7 Pset(328,240),7 Pset(329,240),7 Pset(330,240),7 Pset(331,240),7 Pset(332,240),7 for i=1 to 5 Pset (332+i,240),7 x=rnd()*100+300 y=rnd()*100+240 c=rnd()*8 Pset (x,y),c sleep 100 next i circle(320,260),10,7 circle(340,260),10,7 circle(360,260),10,7 line (100, 100) -(200, 200) , 7 line (120, 120) -(220, 220) , 7,b line (100, 100) -(300, 100+5) , 7,bf line (100, 100) -(100+10, 300) , 0,bf line (110, 100) -(110+10, 300) , 1,bf line (120, 100) -(120+10, 300) , 2,bf line (130, 100) -(130+10, 300) , 3,bf line (140, 100) -(140+10, 300) , 4,bf line (150, 100) -(150+10, 300) , 5,bf line (160, 100) -(160+10, 300) , 6,bf line (170, 100) -(170+10, 300) , 7,bf for i=1 to 8 x=10*i c=i-1 line (180+x, 100) -(180+x+10, 300) , c,bf next i [] は省略可能を意味する。 for i=1 to 5 x=rnd()*100+300 y=rnd()*100+400 c=rnd()*8 circle (x,y),100*rnd(),c,,,,F sleep 100 next i sleep 2000 cls 3 circle(20,40),10,7 circle(30,40),10,7,,,,F for i=1 to 100 x=rnd()*500 y=rnd()*500 c=rnd()*8 circle(x,y),10,c,,,,F sleep 50 next i sleep 2000 for i=1 to 100 x=rnd()*500 y=rnd()*500 c=rnd()*8 line (250,250)-(x,y),c sleep 50 next i cls 3 for i=1 to 100 x=500- (i*10 mod 500) y=4*x mod 500 c=rnd()*8 line (250,250)-(x,y),c sleep 50 next i for i=1 to 4 b=0.5+(i-1)*0.25 circle(150,150),100,7,,,b next i circle(350,150),100,7,,,0.5 circle(350,150),100,7,,,0.25 circle(350,150),100,7,,,2 circle(350,150),100,7,,,4 circle(150,300),100,7,,,0.5,f circle(150,300),50,0,,,2,f sleep 2000 cls 3 circle(290,380),50,7,-1,-6 circle(290,380),50,6,-2,-5 For x=0 to 15 step 0.02 y=sin(x) gy=50*y+200 gx=50*x+50 pset (gx,gy) next i For x=0 to 20 step 0.005 y=sin(x) gy=50*y+200 gx=50*x+50 circle (gx,gy),5,7,,,,f next i For x=0 to 300 step 0.02 y=sin(x) gy = y*50+200 gx = x*30 pset(gx,gy) next x pai = 3.14159 n=32 for rd = 0 to 2*pai+.1 step 2*pai/n +.1は計算誤差解消 x = 320+100*sin(rd) 320,240は中心座標。100は直径(ドット) y = 240-100*cos(rd)+30*rnd() if flag=1 then *connect pset (x,y),7 *connect line -(x,y),7 flag = 1 next rd For theta=0 to 6.28 step 0.02 r=rnd() x=cos(theta) y=sin(theta) gy = r*y*50+75 gx = r*x*50+75 pset(gx,gy) next theta For theta=0 to 6.28 step 0.02 r=cos(theta-3.14/4)*(theta-3.14/4) x=sin(theta) y=cos(theta) gy = r*y*50+75 gx = r*x*50+150 pset(gx,gy) next theta sleep 10000 cls 3 For xshift=50 to 450 step 10 for y=0 to 15 step 0.02 x=sin(y+xshift/50) gx = x*20+xshift gy = y*50 pset(gx,gy) next y next xshift For xshift=490 to 600 step 10 for y=0 to 15 step 0.02 x=sin(y-xshift/50+9) gx = x*20+xshift gy = y*50 pset(gx,gy) next y next xshift line (100, 100) -(100+10, 300) , rgb(255,0,0),bf line (110, 100) -(110+10, 300) , rgb(0,255,0),bf line (120, 100) -(120+10, 300) , rgb(0,0,255),bf line (130, 100) -(130+10, 300) , rgb(255,255,0),bf line (140, 100) -(140+10, 300) , rgb(255,0,255),bf line (150, 100) -(150+10, 300) , rgb(0,255,255),bf line (160, 100) -(160+10, 300) , rgb(224,238,238),bf line (170, 100) -(170+10, 300) , rgb(143,188,143),bf for i=1 to 8 x=10*i c=i-1 line (180+x, 100) -(180+x+10, 300) , c,bf next i [] は省略可能を意味する。 for i=1 to 5 x=rnd()*100+300 y=rnd()*100+400 c=rnd()*8 circle (x,y),100*rnd(),c,,,,F sleep 100 next i for t=1 to 1080 step 0.02 r=t/10 theta=t x=r*sin(theta)+500 y=r*cos(theta)+200 Pset (x,y),7 next t cls 3 for j=1 to 3 for i = 50 to 700 step 50 x=i y=-0.001*(i-400)^2+400 line (400, 100)-(400+(x-400)*0.98, 100+(y-100)*0.98) , rgb(143,188,143) circle( x , y ),10,7,,,,f sleep 100 cls 3 next i for i = 700 to 50 step -50 x=i y=-0.001*(i-400)^2+400 line (400, 100)-(400+(x-400)*0.98, 100+(y-100)*0.98) , rgb(143,188,143) circle( x , y ),10,7,,,,f sleep 100 cls 3 next i next j 昔はi と書くと、暗黙のうちに整数(integer)型と考えられた cls 3 for i = 50 to 650 step 5 circle(i,160),30,rgb(139,69,0),,,,f next i for i = 50 to 650 step 50 circle(i,200),10,rgb(238,0,0),,,,f next i for i = 50 to 650 step 50 circle(i,240),20,rgb(139,69,19),,,,f next i for i = 50 to 650 step 100 circle(i,280),10,rgb(118,238,0),,,,f next i for i = 50 to 650 step 5 circle(i,320),30,rgb(139,69,0),,,,f next i sleep 2000 cls 3 for x=0 to 400 step 25 for y=0 to 400 step 25 circle(x+200,y+50),10,7,,,,f sleep 100 next y next x cls 3 *start cls 3 for i=1 to 12 circle(rnd()*700,rnd()*480),10,7,,,,f next i sleep 2000 goto *start Randomize 今日の日付、時間を元に、ランダムな数列を作る ShowWnd OwnerWnd(), SW_MAXIMIZE ShowWnd OwnerWnd(), SW_MAXIMIZE for t =1 to 100 step 0.01 circle (400,400),30,5,,,,f r=150 x=2*r*sin(2*t) y=1*r*cos(2*t) ry=-1/1.414*x +1/1.414*y+400 rx=1/1.414*x +1/1.414*y+400 circle (rx,ry),10,2,,,,f r=100 x=2*r*sin(t) y=r*cos(t) ry=-1/1.414*x +1/1.414*y+400 rx=1/1.414*x +1/1.414*y+400 circle (rx,ry),10,7,,,,f r2=30 r2x= r2*sin(10*t)+rx r2y= r2*cos(10*t)+ry circle (r2x,r2y),5,6,,,,f sleep 5 cls 3 next t 2009/7/23 *Randomize ShowWnd OwnerWnd(), SW_MAXIMIZE circle(i,200),10,7,,,,f 空 for i=0 to 300 line (0,18) - (1024,18+i),rgb(191,239,255),bf next i 浜と海 for i=0 to 500 浜 line (0,300+i)-(300+0.6*i,300+i),rgb(240,230,140),bf 海 line (1024,300+i)-(300+0.6*i+1,300+i),rgb(0,0,128),bf next i 浜のアクセント 1 for i=1 to 100 circle (rnd()*300,300+rnd()*(860-300)),2,rgb(139,71,38),,,,f next i 浜のアクセント 2 for i=1 to 40 t=(860-300)*rnd() y= 300+t x= 300+t*0.6*rnd() circle (x,y),2,rgb(139,71,38),,,,f next i (300+0.6*i+1,300+i for s=0 to 100 for i=0 to 500 circle (300+0.6*i+3+100-s,300+i),1,rgb(224,238,238),,,,f circle (300+0.6*i+3+100+1-s,300+i),1,rgb(0,0,128),,,,f x=rnd()*20 x500[i]=x Pset (300+0.6*i+3+100-s+x500[i],300+i),rgb(224,238,238) Pset (300+0.6*i+3+100+1-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+2-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+3-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+4-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+5-s+x500[i],300+i),rgb(0,0,128) next i sleep 5 line (300+0.6*i+100-s+10,300)-(300+0.6*i+100-s+10+300,860),rgb(0,0,128),bf next s 2009/8/14 ShowWnd OwnerWnd(), SW_MAXIMIZE *Randomize 空 for i=0 to 300 line (0,18) - (1024,i),rgb(191,239,255),bf next i 浜と海 ただし、左上から右下へ、斜めに浜のラインを引く。そのため、lineコマンドでｘ座標がｙ座標(300+i)に比例して増えるようにしている。 ウィンドウマックスのサイズを1024*860と仮定しておく。 for i=0 to 500 浜 line (0,300+i)-(300+0.6*i,300+i),rgb(240,230,140),bf 海 line (1024,300+i)-(300+0.6*i+1,300+i),rgb(0,0,128),bf next i 浜のアクセント 1 for i=1 to 100 circle (rnd()*300,300+rnd()*(720-300)),2,rgb(139,71,38),,,,f next i 浜のアクセント 2 for i=1 to 40 t=(720-300)*rnd() y= 300+t x= 300+t*0.6*rnd() circle (x,y),2,rgb(139,71,38),,,,f next i for d=1 to 3 if d=2 then goto *yuugata else if d=3 then goto *yozora else *soraend *yuugata 夕空 for i=0 to 300 line (0,18) - (1024,i),rgb(255,153,0),bf next i goto *soraend *yozora for i=0 to 300 line (0,18) - (1024,i),rgb(0,0,0),bf next i goto *soraend *soraend 波 iが増える→ｙ座標の増加に伴い、ｘ座標をランダムに変化させる sが増える→白い波が岸による for s=0 to 380 step 10 for i=0 to 500 if s=0 then goto *cl else goto *ncl *cl line (300-0.05*i+380-s+60,300)-(300-0.05*i+380-s+560*0.6+60,860),rgb(0,0,128) goto *ncl *ncl circle (300+0.6*i+3+100-s,300+i),1,rgb(224,238,238),,,,f circle (300+0.6*i+3+100+1-s,300+i),1,rgb(0,0,128),,,,f x=rnd()*20 x500[i]=x Pset (300+0.6*i+3+380-s+x500[i],300+i),rgb(224,238,238) Pset (300+0.6*i+3+380+1-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+2-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+3-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+4-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+5-s+x500[i],300+i),rgb(0,0,128) line (300-0.02*i+380-s+35,300)-(300-0.02*i+380-s+560*0.6+35,860),rgb(0,0,128) next i sleep 5 花火 if d=3 then goto *firework else *notfirework *firework if s 160 then goto *up else *open *up line (650,300-s)- (655,300-s-10),rgb(255,255,0),bf line (650,300-s)- (655,300-s+10),0,bf if s=10 then goto *bl else *fini *bl line (650,300)- (655,300-s),0,bf goto *fini *open if s 300 then goto *fini line (650,150)- (655,150-10),0,bf line (650,150)-(650+100*cos(pre),150+100*sin(pre)),0 theta = 2*3.1415*rnd() pre =theta c=rnd()*8 line (650,150)-(650+100*cos(theta),150+100*sin(theta)),c *fini line (650,150)-(650+100*cos(pre),150+100*sin(pre)),0 sleep 100 goto *notfirework *notfirework next s 波2 iが増える→ｙ座標の増加に伴い、ｘ座標も比例して増やすが、±20だけランダムに変化させる sが増える→白い波が岸から離れる for s=0 to 400 step 20 for i=0 to 500 circle (300+0.6*i+3+100-s,300+i),1,rgb(224,238,238),,,,f circle (300+0.6*i+3+100+1-s,300+i),1,rgb(0,0,128),,,,f x=rnd()*20 x500[i]=x Pset (300+0.6*i+3+s+x500[i],300+i),rgb(224,238,238) Pset (300+0.6*i+3+1+s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+2-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+3-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+4-s+x500[i],300+i),rgb(0,0,128) Pset (300+0.6*i+3+100+5-s+x500[i],300+i),rgb(0,0,128) if s =0 then goto *left else goto *right *left line (300+s-0.04*i,300)-(300+s-0.04*i+560*0.6,860),rgb(0,0,128) goto *tugi *right if s=20 then goto *hama else goto *tuduki *hama line (300-s+0.04*i,300)-(300-s+0.04*i+560*0.6,860),rgb(240,230,140) line (300+s+0.04*i-20,300)-(300+s+0.04*i-20+560*0.6,860),rgb(0,0,128) goto *tuduki *tuduki line (300+s+0.04*i-20,300)-(300+s+0.04*i-20+560*0.6,860),rgb(0,0,128) y=rnd()*20 y500[i]=y Pset (300+0.6*i+560-(s-260)+y500[i],300+i),rgb(224,238,238) Pset (300+0.6*i+1+560-(s-260)+y500[i],300+i),rgb(0,0,128) line (300-(s-260)-0.04*i+560+40,300)-(300-(s-260)-0.04*i+560+560*0.6+40,860),rgb(0,0,128) goto *tugi line (300+s+1,300)-(300+s+560*0.6+1,860),rgb(0,0,128) line (300+s+2,300)-(300+s+560*0.6+2,860),rgb(0,0,128) line (300+s+3,300)-(300+s+560*0.6+3,860),rgb(0,0,128) line (300+s+4,300)-(300+s+560*0.6+4,860),rgb(0,0,128) line (300+s+5,300)-(300+s+560*0.6+5,860),rgb(0,0,128) line (300+s+6,300)-(300+s+560*0.6+6,860),rgb(0,0,128) line (300+s+7,300)-(300+s+560*0.6+7,860),rgb(0,0,128) line (300+s+8,300)-(300+s+560*0.6+8,860),rgb(0,0,128) line (300+s+9,300)-(300+s+560*0.6+9,860),rgb(0,0,128) *tugi next i next s next d