約 1,636,987 件
https://w.atwiki.jp/vbnsrchelp/pages/25.html
Setコマンド 書式1 Set variable [[operator] value] 書式2 variable = value 書式3 variable assignoperator value 書式4 Incr variable [value] variable 変数名 operator 演算子。指定しない場合はvalueも省略できる。対応しているのは、+,-,*,/,\,^, assignoperator 代入演算子。対応しているのは、+=,-=,*=,/=,\=,^=, = value 変数に代入する値。書式1か4で省略した場合は「1」 解説 変数variableの値を変更します。この時variableが未作成であればステージ変数?として作成します。 operatorを省略もしくは書式2の場合は、値valueをそのまま変数に代入します。 書式4はvariableの値にvalueを加算します それ以外の場合は、変数の値にvalueを演算した結果を設定します 書式間の対応関係は以下の表のようになります。 (どの書式でも結果は同じですが、書式2の場合はわずかに実行速度で劣ります) 書式1 書式2 書式3 書式4 Set 変数名 + 1 変数名 = 変数名 + 1 変数名 += 1 Incr 変数名 Set 変数名 + 値 変数名 = 変数名 + 値 変数名 += 値 Incr 変数名 値 Set 変数名 - 値 変数名 = 変数名 - 値 変数名 -= 値 Set 変数名 * 値 変数名 = 変数名 * 値 変数名 *= 値 Set 変数名 / 値 変数名 = 変数名 / 値 変数名 /= 値 Set 変数名 \ 値 変数名 = 変数名 \ 値 変数名 \= 値 Set 変数名 ^ 値 変数名 = 変数名 ^ 値 変数名 ^= 値 Set 変数名 値 変数名 = 変数名 値 変数名 = 値 使用例 Incr Set イベントコマンド 使用例なしのコマンド 変数操作
https://w.atwiki.jp/hmiku/pages/17991.html
【登録タグ R 享年16 曲 猫村いろは】 作詞:享年16 作曲:享年16 編曲:享年16 唄:猫村いろは 歌詞 (ピアプロより転載) rise and set/ break on through-on the other side/ no one ain't defeat/let me rise and set/ can u see rising light?/ thaz looks like from of our lifes/ they come again late/ i hope ur/i wish ur crack up/ for all ur human life/ turn on prime light / term limits goes on/ rise and set/ コメント 名前 コメント
https://w.atwiki.jp/sakots/pages/188.html
【がくっぽいど】 Set Up Hurry (オリジナル) 【がくぽ】 曲名:Set Up Hurry 作詞:サ骨 作曲:ふぇん 編曲:ふぇん 唄:神威がくぽ 歌詞: 血眼でさがしていた 古ぼけたロケット 沈み行く街の中 沈み行く沈み行く Set up hurry Don t you go ? ガス欠のクルマ Set up hurry Don t you go ? エンジンふかして Set up hurry Don t you go ? 青く錆びついた Set up hurry Don t you go ? 追い越せ あかりの向こう側から呼ぶ声 加速しその先まで追い越せ 薄っぺらな歌詞カードで 折り上げる飛行機 溶けていく街の中 溶けていく溶けていく Set up hurry Don t you go ? 月は出ているか Set up hurry Don t you go ? タイヤのないクルマ Set up hurry Don t you go ? エンジンふかして Set up hurry Don t you go ? 飛び出せ 懐かしい音を鳴らし 月夜に 四角い目をした夢醒まして ああ 緑の空 月はゆがみ 灯りのない街角燃える だから あかりの向こう側から呼ぶ声 加速しその先まで追い越せ そんな夢を見ていた
https://w.atwiki.jp/kojiro/pages/66.html
SET.NAME
https://w.atwiki.jp/kodan/pages/114.html
使用方法・登録 Set set = new HashSet(); set.add("hello."); 中身確認 //反復子iteratorによる取得 Iterator ite = set.iterator(); while(ite.hasNext()) { Object obj = ite.next(); if (obj instanceof String) { //String型の場合 System.out.println((String)obj); } else if (obj instanceof Integer) { //Integer型の場合 System.out.println(((Integer)obj).intValue()); } } 中身確認 //配列による取得 Object []objs = set.toArray(); for (Object obj objs) { if (obj instanceof String) { //String型の場合 System.out.println((String)obj); } else if (obj instanceof Integer) { //Integer型の場合 System.out.println(((Integer)obj).intValue()); } } ※重複した登録はできない。
https://w.atwiki.jp/tomarigi_server/pages/114.html
imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 GM鎧同様にDrop時はトレード出来るアイテムでDropします。 Wクリックで各防具を入手出来ますが入手した防具はトレード出来ません バニラ キャンディー SP ラビット リング レモン キャンディー SP ラビット グローブ ストロベーリ キャンディー SP ラビット ブーツ ピンクドラゴンフルーツ キャンディー SP ラビット フード imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 SP ラビット グローブ リダク+5・経験値獲得量上昇+10% SP ラビット フード リダク+20・経験値獲得量上昇+20% SP ラビット ブーツ リダク+10・経験値獲得量上昇+5%・常時ヘイスト SP ラビット リング SP+5・経験値獲得量上昇+3% Setボーナス HPR+500 SPラビットリング2個でなくても1個でもSetボーナスが付きます。
https://w.atwiki.jp/feenal/pages/83.html
Tempest of Set Tempest of Set Lightning TreeTier1Arcing Charged Blast 5/5 Tier2Improved Lightning Strike 5/5 Grounding Charge 5/5 Spell - Rousing Shock 1/1 Tier3Pillar Lightning 3/3 Faithful of Set 3/3 Static Charge 5/5 Tier4Brutal Lightning Strike 5/5 Spell - Inner Charge 1/1 Ether Absorption 5/5 Spell - Blood Mana 1/1 Coalesce Ether 3/3 Tier5Spell - Elemental Fury 1/1 Spell - The Building Storm 1/1 Tier6Fury of the Storm 5/5 Spell - Column Lightning 1/1 Lightning Arc 3/3 Set's Storm 2/2 Set's Brutality 3/3 Tier7Visions of Hatred 5/5 Titanic Storm 2/2 Spell - Cyclone of Set 5/5 Tier8Cyclonic Storms of Set 5/5 Spell - Brain Spasms 5/5 Tier9Storms of Set 1/1 Spell - Puppets of Set 1/1 ThunderGrowing Storm 5/5 Spell - Storm Crown 3/3 Piercing Storm Crown 3/3 Storm Throne 3/3 Spell - Power of the Serpent Ring 3/3 Empowered Cobra Stare 3/3 Storm Regalia 3/3 Wrath of the Serpent Ring 5/5 Static Blood 5/5 Spell - Idol of Set 3/3 Idol of Set's Power 2/2 Spell - Set's Life Spark 1/1 Empowered Life of Set 1/1 Symbiotic Idol of Set 5/5 Idol of Set's Supremacy 1/1 Spell - Lightning Cast 3/3 Spell - Thundering Command 1/1 Spell - Divide and Conquer 1/1 Shock and Awe 5/5 Improved Overcharge 5/5 Spell - Storm Blood 1/1 Spell - Vital Shock 5/5 Improved Call Lightning 5/5 Staggering Voice 1/1 Triumphant Life of Set 5/5 Spell - Summon Aura of Nebthu 1/1 Lightning Tree Tier1 Arcing Charged Blast 5/5 Charged Blastに、対象の周囲にSplashダメージを与える効果を付与する。 Tier2 Improved Lightning Strike 5/5 Lightning Strikeのダメージを上昇させる。 Grounding Charge 5/5 Charged Blastに対象を短時間Rootする効果を付与する。 Spell - Rousing Shock 1/1 素早く詠唱できる魔術で、チームメイト全員のスタン効果を取り除く。 Tier3 Pillar Lightning 3/3 Lightning Strikeの範囲を広げる。 Faithful of Set 3/3 Lightning Strike、Charged Bolt、Storm Fieldを使用後、次に使用するLife of Setが強化される。 この効果は5回までスタックする。Featsポイントを追加すると、効果量が強化される。 Static Charge 5/5 Electricalダメージが強化される。(一定量を加算) Tier4 Brutal Lightning Strike 5/5 Lightning Strikeのクリティカル率が上昇する。 Spell - Inner Charge 1/1 次に使用するLightning Strikeがクリティカルになる。 Ether Absorption 5/5 Tempestの魔法攻撃によって、Manaが回復する。(5/5でダメージの9%を回復) Spell - Blood Mana 1/1 Tempestの、魔法ダメージをマナに変換する能力を強化する。 Coalesce Ether 3/3 Tempestとそのチームメンバーが魔法攻撃を受けた際、その1/2/4%をManaとして得る。 また、Tempsetとそのチームメンバーが物理攻撃をした場合、TempestがManaを得ることがある。 Tier5 Spell - Elemental Fury 1/1 Tempestの周囲を雷の嵐で攻撃する。 Spell - The Building Storm 1/1 対象の攻撃力を増加させるChannelingを行う。 対象がキャスターだった場合、TempestのManaが回復していく。 Channeling終了後、短時間TempestのHP回復量が増加し、更にほぼ全ての魔法をマナコスト無しで使用できる。 Tier6 Fury of the Storm 5/5 Lightning Strikeのクリティカルダメージを増加させる。 Spell - Column Lightning 1/1 対象に柱状の雷を放出し、対象とその周囲にほぼ同じElectricalダメージを与える。 Lightning Arc 3/3 Column Lightningを受けた相手に、持続的にElectricalダメージを与えるパルスを与える(DoT追加)。 Set s Storm 2/2 Storm Fieldの詠唱時間と再使用時間が短縮される。 Set s Brutality 3/3 蛇の神が、素晴らしく強力な力をPriestに与える。Storm Fieldのクリティカル率が増加する。 Tier7 Visions of Hatred 5/5 Priestの幻影を作り、敵をそちらに引き付ける魔法を得る。 Titanic Storm 2/2 Storm Fieldの効果範囲が広がる。 Spell - Cyclone of Set 5/5 サイクロンを呼び出し、周囲の敵を攻撃させる。 追加のFeat Pointを振る事でダメージが上昇する。 Tier8 Cyclonic Storms of Set 5/5 Cyclone of Setを使用した時に、追加で更にもう1体のサイクロンを呼び出す。 追加のFeat Pointを振る事でこの追加されたサイクロンによるダメージが上昇する。 Spell - Brain Spasms 5/5 非常に高い確率でStun Fear Charmを即座に解消する。 追加のFeat Pointを振ることで確率が上昇する。 Tier9 Storms of Set 1/1 Cyclone of Setを使用した時に、更に3体目のサイクロンを召喚する。 Spell - Puppets of Set 1/1 範囲内にいる敵を混乱させ、同士討ちさせる。 Thunder Growing Storm 5/5 Lightning Strike、Charged Bolt、Storm Fieldを使用した時、Life of Setの消費コストが減少する。 この効果は4回まで適用される。 Spell - Storm Crown 3/3 周囲に雷雲を作り出し、数秒毎に周囲にElectricalダメージを与える。 Piercing Storm Crown 3/3 Storm Crownのクリティカル率を上昇させる。 Storm Throne 3/3 Storm Crownのダメージと攻撃対象数を増加させ、更に命中させた時にマナが回復するようになる。 そして、チームメンバーにも弱いStorm Crownを発現させられるようになる。 Spell - Power of the Serpent Ring 3/3 一定時間、魔法に対する耐性が大きく上昇する。Feat Pointを追加することで上昇量が増加する。 Empowered Cobra Stare 3/3 Cobra Stareの効果を増強する。ダメージにより解けてしまう確率を減少させる。 Storm Regalia 3/3 チームメンバーのElectrical系攻撃力を増加させ、更に彼らの攻撃時に一定確率でチームのマナが回復するようになり、 追加のElectricalダメージを与えられるようにもなる。 そしてこのFeatはStorm Throneのダメージと攻撃対象数も増加させる。 Wrath of the Serpent Ring 5/5 Power of the Serpent Ringに、Tempest of Setの攻撃力を増加させる効果を持たせる。 Feat Pointを追加することで、この効果は増強される。 Static Blood 5/5 Electricalダメージに対する耐性が上昇し、更に被Melee、被Range、被Magicダメージも減少させる。 Spell - Idol of Set 3/3 定期的に付近の対象一人を雷で攻撃する石像を召喚する。 更に、近くにいるPriestやMageのマナも回復させる。 Idol of Set s Power 2/2 Idol of Setが2体の敵に攻撃できるようになり、更にチームメンバーの攻撃に一定確率でElectricalダメージを追加するようになる。 Spell - Set s Life Spark 1/1 Empowered Life of Set 1/1 Symbiotic Idol of Set 5/5 Idol of Set s Supremacy 1/1 Spell - Lightning Cast 3/3 Spell - Thundering Command 1/1 Spell - Divide and Conquer 1/1 Shock and Awe 5/5 Improved Overcharge 5/5 Spell - Storm Blood 1/1 Spell - Vital Shock 5/5 Improved Call Lightning 5/5 Staggering Voice 1/1 Triumphant Life of Set 5/5 Spell - Summon Aura of Nebthu 1/1
https://w.atwiki.jp/ce00582/pages/898.html
Function mfselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(0, m2, n1) my = y1(0) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 0 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(1, m2, n2) my = y1(1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 1 If u1 maxu Then maxu = u1 Next mfselect = maxm End Function Function meselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(9, m2, n1) my = y1(9) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 9 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(10, m2, n2) my = y1(10) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 10 If u1 maxu Then maxu = u1 Next meselect = maxm End Function Function feselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(9, m2, n1) my = y1(9) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(10, m2, n2) my = y1(10) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next feselect = maxm End Function Function ffselect(s1 As Single, s2 As Single, th1, th2, n1 As Single, n2 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(0, m2, n1) my = y1(0) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(1, m2, n2) my = y1(1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next ffselect = maxm End Function Function u(s1 As Single, s2 As Single, th1, th2, cp As Single, yp1 As Single, yp2 As Single) As Single Dim lx As Single Dim cx As Single Dim px As Single l1 = yp1 / th1(s1) l2 = yp2 / th2(s2) cx = cp px = 0 If cx 0.01 Then px = 1 If l1 0.99 Then px = 1 If l2 0.99 Then px = 1 If l1 0 Then px = 1 If l2 0 Then px = 1 If px = 1 Then cx = 0.5 If px = 1 Then l1 = 0.5 If px = 1 Then l2 = 0.5 ux = Log(cx) + Log(1 - l1) + Log(1 - l2) If px = 1 Then ux = -999 u = ux End Function Function fprefer(s1 As Single, s2 As Single, th1, th2, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single maxu = -999 For m1 = 0 To 10 For m2 = 0 To 10 c1 = c(m1, m2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next Next fprefer = maxm End Function Function fselect(s1 As Single, s2 As Single, th1, th2, m1 As Single, n1 As Single, n2 As Single, n3 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(m1 - 1, m2, n1) my = y1(m1 - 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n3) my = y1(m1 + 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 If u1 maxu Then maxu = u1 Next fselect = maxm End Function Function mselect(s1 As Single, s2 As Single, th1, th2, m1 As Single, n1 As Single, n2 As Single, n3 As Single, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single Dim i As Single Dim j As Single maxu = -999 For m2 = 0 To 10 c1 = c(m1 - 1, m2, n1) my = y1(m1 - 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 - 1 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m2 = 0 To 10 c1 = c(m1, m2, n3) my = y1(m1 + 1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 + 1 If u1 maxu Then maxu = u1 Next mselect = maxm End Function Function mprefer(s1 As Single, s2 As Single, th1, th2, c, y1, y2) As Single Dim m As Single Dim maxu As Single Dim maxm As Single Dim u1 As Single Dim c1 As Single Dim my As Single Dim fy As Single maxu = -999 For m1 = 0 To 10 For m2 = 0 To 10 c1 = c(m1, m2) my = y1(m1) fy = y2(m2) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next Next mprefer = maxm End Function Private Sub Command1_Click() Dim m1 As Single Dim m2 As Single Dim s1 As Single Dim s2 As Single Dim cp1 As Single Dim yp1 As Single Dim yp2 As Single Dim c(0 To 10, 0 To 10, -1 To 1) As Single Dim cs(0 To 10, 0 To 10) As Single Dim th1(1 To 10) As Single Dim th2(1 To 10) As Single Dim y1(0 To 10) As Single Dim y2(0 To 10) As Single Dim mgr(1 To 10, 1 To 10) As Single Dim fgr(1 To 10, 1 To 10) As Single Dim gu(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim gb(1 To 9, -1 To 1, -1 To 1, -1 To 1) As Single Dim endu(-1 To 1, -1 To 1) As Single Dim fastb(-1 To 1, -1 To 1) As Single Dim endb(-1 To 1, -1 To 1) As Single Dim fastu(-1 To 1, -1 To 1) As Single Dim mgroup(0 To 10, 1 To 100) As Single Dim fgroup(0 To 10, 1 To 100) As Single Dim ngroup(0 To 10) As Single Dim v(0 To 9, -1 To 1, -1 To 1, -50 To 50) As Single Dim goton(0 To 9, -1 To 1, -1 To 1, -50 To 50) As Single Dim gotoq(0 To 9, -1 To 1, -1 To 1, -50 To 50) As Single Dim endv(-1 To 1, -1 To 1, -50 To 50) As Single Dim endq(-1 To 1, -1 To 1, -50 To 50) As Single Dim op(0 To 10) As Single Dim oq(0 To 10) As Single Dim i As Single Dim j As Single Dim h As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Open "c /lupin.txt" For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3 m1 = a1 m2 = a2 cs(m1, m2) = a3 Loop Close #2 For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next For m = 0 To 10 y1(m) = 0.105 * m y2(m) = 0.05 * m Next h = 0.001 t1 = 0 Do Until t1 100 For m2 = 0 To 10 For s1 = 1 To 10 For s2 = 1 To 10 mgr(s1, s2) = mprefer(s1, s2, th1, th2, cs, y1, y2) fgr(s1, s2) = fprefer(s1, s2, th1, th2, cs, y1, y2) Next Next Next For m1 = 0 To 10 n = 0 For s1 = 1 To 10 For s2 = 1 To 10 If mgr(s1, s2) = m1 Then n = n + 1 If mgr(s1, s2) = m1 Then mgroup(m1, n) = s1 If mgr(s1, s2) = m1 Then fgroup(m1, n) = s2 Next Next ngroup(m1) = n Next For m1 = 0 To 10 For m2 = 0 To 10 For n = -1 To 1 c(m1, m2, n) = cs(m1, m2) + n * h Next Next Next For m1 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 nu = ngroup(m1) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(m1, s) s2 = fgroup(m1, s) i = mselect(s1, s2, th1, th2, m1, n1, n2, n3, c, y1, y2) j = fselect(s1, s2, th1, th2, m1, n1, n2, n3, c, y1, y2) nx = n2 If i = m1 - 1 Then nx = n1 If i = m1 + 1 Then nx = n3 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next gu(m1, n1, n2, n3) = us gb(m1, n1, n2, n3) = bs Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 nu = ngroup(0) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(0, s) s2 = fgroup(0, s) i = mfselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = ffselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n1 If i = 1 Then nx = n2 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next fastu(n1, n2) = us fastb(n1, n2) = bs Next Next For n1 = -1 To 1 For n2 = -1 To 1 nu = ngroup(10) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(10, s) s2 = fgroup(10, s) i = meselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = feselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n2 If i = 9 Then nx = n1 cp1 = c(i, j, nx) yp1 = y1(i) yp2 = y2(j) u1 = u(s1, s2, th1, th2, cp1, yp1, yp2) us = us + u1 bs = bs + yp1 + yp2 - cp1 Next endu(n1, n2) = us endb(n1, n2) = bs Next Next For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 v(0, n1, n2, q) = -999 Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 q0 = fastb(0, 0) q1 = fastb(n1, n2) q = Int((q1 - q0) / h) pp = 0 If q 50 Then pp = 1 If q -50 Then pp = 1 If pp = 1 Then q = 0 v(0, n1, n2, q) = fastu(n1, n2) If pp = 1 Then v(0, n1, n2, q) = -999 Next Next For m1 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 vs = -999 For nx = -1 To 1 u1 = gu(m1, nx, n1, n2) q0 = gb(m1, 0, 0, 0) q1 = gb(m1, nx, n1, n2) qq = Int((q1 - q0) / h) qx = q - qq pp = 0 If qx 50 Then pp = 1 If qx -50 Then pp = 1 If pp = 1 Then qx = 0 v1 = u1 + v(m1 - 1, nx, n1, qx) If pp = 1 Then v1 = -999 If v1 vs Then nxs = nx If v1 vs Then qxs = qx If v1 vs Then vs = v1 Next v(m1, n1, n2, q) = vs goton(m1, n1, n2, q) = nxs gotoq(m1, n1, n2, q) = qxs Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For q = -50 To 50 u1 = endu(n1, n2) q0 = endb(0, 0) q1 = endb(n1, n2) qq = Int((q1 - q0) / h) qx = q - qq pp = 0 If qx 50 Then pp = 1 If qx -50 Then pp = 1 If pp = 1 Then qx = 0 v1 = u1 + v(9, n1, n2, qx) If pp = 1 Then v1 = -999 endv(n1, n2, q) = v1 endq(n1, n2, q) = qx Next Next Next maxv = -999 For n1 = -1 To 1 For n2 = -1 To 1 For q = 0 To 50 If endv(n1, n2, q) maxv Then nx1 = n1 If endv(n1, n2, q) maxv Then nx2 = n2 If endv(n1, n2, q) maxv Then qx = q If endv(n1, n2, q) maxv Then maxv = endv(n1, n2, q) Next Next Next op(9) = nx1 op(10) = nx2 oq(10) = qx oq(9) = endq(op(9), op(10), oq(10)) For j = 1 To 9 m1 = 9 - j op(m1) = goton(m1 + 1, op(m1 + 1), op(m1 + 2), oq(m1 + 1)) oq(m1) = gotoq(m1 + 1, op(m1 + 1), op(m1 + 2), oq(m1 + 1)) Next For m1 = 0 To 10 For m2 = 0 To 10 cs(m1, m2) = c(m1, m2, op(m1)) Next Next e = 0 For m1 = 0 To 9 e = e + op(m1) ^ 2 Next If e 2 Then h = h / 2 If h 10 ^ (-5) Then t1 = 1000 Debug.Print t1, e, maxv t1 = t1 + 1 Loop End Sub
https://w.atwiki.jp/dmt2_jp/pages/26.html
Club Mixing - Remixound Set Hard Performance 隠しコース(10,000MAX) Point Music BPM Pattern Lv 1 Desperado (Nu skool Mix) 135 HD 6 2 MASAI (Electro House Mix) 128 HD 6 3 Nova (Mr.Funky Remix) 136 HD 6 4 Zet (Mr.Funky Remix) 128 HD 7 5 OUT LAW - Reborn 130 HD 7 6 SuperSonic (Mr.Funky Remix) 130 HD 7 4曲目 Total point Music BPM Pattern Lv ~11 Luv Flow (Funky House Mix) 127 MX 7 12~ Enemy Storm (Dark Jungle Mix) 170 HD 8 +上位曲を出すための選曲 Desperado,OUT LAW,Supersonic MASAI,OUT LAW,Supersonic Nova,Zet,Supersonic Nova,OUT LAW,Supersonic Nova,Zet,OUT LAW Zet,OUT LAW,Supersonic コメント 名前 コメント
https://w.atwiki.jp/vipdeyoyo/pages/633.html
Jet-Set EC メーカー sOMEThING ベアリングサイズ ジャム大径 レスポンス シリコンパッド ボディ・リム材質 デルリン 重さ 74.8g 直径 75.80mm 厚さ 56.06mm ギャップ幅 mm(固定) JET-SETよりこっちのほうが好きって人いると思います。扱いやすくて良いです。 -- 名無しさん (2012-10-21 23 07 26) いろいろなストリングで使ってみたけど、Kストノーマルとかだとワインダーでスカりやすい、サムストだと逆にかむときがある、YYRストファットだとすごく使いやすかった。 -- 名無しさん (2014-02-07 18 31 04) 名前 コメント