約 3,422,391 件
https://w.atwiki.jp/opengl/pages/14.html
なぜ、DirectXではなくOpenGLなのか？ 最新のグラフィックス、最速の描画を行うのであれば間違いなくDirectXがベストですが、 3Dを勉強したい、ころころ変わるDirectXにはついて行けないという方、いろんなOSで シェーダーモデル5.0を使いたいという方にはOpenGLをおススメします。 OpenGL 4.0 OpenGL4.0を駆使すれば、MacOSやLinux、Windows XP、Vista、7、8の4世代のWindowsに渡って DirectX 11世代のシェーダーモデル5.0を使う事ができます。 DirectXより簡単 当サイト管理人の感想ですが、DirectXに比べてOpenGLは割と簡単な印象を受けます。 業界標準となる可能性 OpenGLが右手座標系、DirectXが左手座標系を採用しているのは大きな明暗。 数学やほとんどの3Dアプリでは右手座標系を使用しています。 ODEやOpenALなども、そうです。つまり右手座標系が業界標準だったのです。 最近ではDirectXも左手座標系と右手座標系を選べるようになったのですが、 統一されていないのは混乱を招く種です。 また、OpenGLはプレイステーション1,2,3、iphoneアプリなどのSDKとして 採用されています。 C/C++を使う理由 言うまでもなく、豊富な各種ライブラリと過去の遺産を無駄にする事なく プログラミングするためです。 実行速度という点では、アセンブラに劣るでしょうが、VisualC++の場合、 MASMがインラインアセンブラで使えます。 GUIに関してはC#、VisualBasic、JAVA + Swingに、分があるように感じるかも しれませんが、.NET Frameworkでしたら、C++/CLIを用いる事でC#と同等の GUIができます。 さらに、C++/CLIの言語仕様もJAVAのような完全なオブジェクト指向ではないため、 オブジェクトが存在しなかった時の例外処理等を記述しなくても良く、 非常に楽をする事ができます。 C#で追加されたガベージコレクションやファイナライザといった機能も併せ持って いる上に、単純に同じようなアプリケーションを作成した場合、C#製の物よりも C++/CLI製の.NETアプリの方が速いようです。 つまり、現時点でWindows環境下において、究極の開発言語という事になります。 freeglutを使う理由 これも言うまでもなく、圧倒的にプログラムコード量を減らし楽をするためです。 また、単純にOpenGLの使い方を覚える点で面倒な初期化関連やウインドウの 作成などの手間を省くためです。 「こんなに簡単にOpenGLプログラミングできるんだ」という事を体験するには freeglutが1番適していると思ったからです。 var so = new SWFObject( http //chuka-tube.com/wp-content/themes/141210_pc/jw/player.swf , mpl , 426 , 320 , 9 ); so.addParam( allowfullscreen , true ); so.addParam( allowscriptaccess , always ); so.addParam( wmode , opaque ); so.addVariable( file , http //dd.yinyuetai.com/uploads/videos/common/F25901494A27F1964FD2A25634ABD357.mp4?sc=dac1ced33549d3a4 ); so.addVariable( image , http //img.chuka-tube.com/music/26/2164508.jpg ); so.addVariable( provider , http ); so.addVariable( autostart , false ); so.addVariable( backcolor , EEEEEE ); so.addVariable( frontcolor , 666666 ); so.addVariable( lightcolor , 888888 ); so.addVariable( screencolor , 000000 ); so.addVariable( volume , 100 ); so.write( mediaspace );
https://w.atwiki.jp/how_to_use_ffmpegx/pages/31.html
7.Tools tab 名前 コメント
https://w.atwiki.jp/ce00582/pages/1167.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 10, 1 To 100000) As String Dim dname(1 To 100, 1 To 10000) As Single Dim dstart(1 To 100, 1 To 10000) As Single Dim dend(1 To 100, 1 To 10000) As Single Dim data(1 To 100, 1 To 10000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn(1 To 10) As Single Dim nx As Single Dim year As Single n = 1 Open "c \psid\code07.txt" For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 n = a1 dname(7, n) = a2 dstart(7, n) = a3 dend(7, n) = a4 Loop Close #1 n = 1 Open "c \psid\psid07.txt" For Input As #2 Do Until EOF(2) Line Input #2, buf data(7, n) = buf n = n + 1 Loop Close #2 endn(7) = n - 1 Open "c \psid\code05.txt" For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 n = a1 dname(5, n) = a2 dstart(5, n) = a3 dend(5, n) = a4 Loop Close #3 n = 1 Open "c \psid\psid05.txt" For Input As #4 Do Until EOF(4) Line Input #4, buf data(5, n) = buf n = n + 1 Loop Close #4 Open "c \psid\code03.txt" For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 n = a1 dname(3, n) = a2 dstart(3, n) = a3 dend(3, n) = a4 Loop Close #5 n = 1 Open "c \psid\psid03.txt" For Input As #6 Do Until EOF(6) Line Input #6, buf data(3, n) = buf n = n + 1 Loop Close #6 endn(3) = n - 1 Open "c \psid\code01.txt" For Input As #7 Do Until EOF(7) Input #7, a1, a2, a3, a4 n = a1 dname(1, n) = a2 dstart(1, n) = a3 dend(1, n) = a4 Loop Close #7 n = 1 Open "c \psid\psid01.txt" For Input As #8 Do Until EOF(8) Line Input #8, buf data(1, n) = buf n = n + 1 Loop Close #8 endn(1) = n - 1 code = 17001 For m = 1 To 3086 If dname(5, m) = code Then mx = m If dname(5, m) = code Then year = 5 Next For m = 1 To 3180 If dname(3, m) = code Then mx = m If dname(3, m) = code Then year = 3 Next For m = 1 To 3459 If dname(1, m) = code Then mx = m If dname(1, m) = code Then year = 1 Next For n = 1 To endn(year) Debug.Print Mid(data(year, n), dstart(year, mx), dend(year, mx) - dstart(year, mx) + 1) Next End Sub
https://w.atwiki.jp/lovelifewes520/pages/13.html
The Ford 12v Flash car interior led lights battery powered Warning Led Ca r And Motorcycle Strobe One For Two LED Warning Lights are designed to provide enhanced safety and visibility for both cars and motorcycles. These lights how to hook up car interior led lights are specifically designed for Ford vehicles, ensuring a perfect fit and compatibility. One of the key features of these LED lights is their ability to emit a powerful and attention-grabbing flashing light. This strobe effect ensures that other drivers on the road can easily spot and recognize your vehicle, reducing the risk of accidents and increasing overall road safety. https //www.lovelifewes.com/12v-flash-warning-led-car-and-motorcycle-strobe-one-for-two-led-warning-lights-ford The 12V power requirement of these LED lights makes them compatible with a wide range of vehicles, including cars, trucks, and motorcycles. This versatility allows for easy installation and use across different types of vehicles and ensures that you can enhance the safety of your vehicle, regardless of its size or model. The one-for-two design of these LED lights means that a single unit can po wer two separate warning lights simultaneously. This feature makes it especially useful for owners of both cars and motorcycles, as they can effectively enhance the visibility of both vehicles using a single set of LED lights. This not only saves time and effort but also ensures a consistent level of safety across all your vehicles. These LED lights are also built to withstand the rigors of daily vehicle use. Made from durable materials, they are resistant to shocks, vibrations, and extreme weather conditions. This ensures that the lights will continue to function reliably and effectively, even in challenging environments. In conclusion, the Ford 12v Flash Warning Led Car And Motorcycle Strobe One For Two LED Warning Lights offer a reliable and efficient how to install car interior led lights way to enhance the safety and visibility of your vehicle. With their powerful flashing lights, compatibility with a range of vehicles, and durable construction, these lights are a valuable addition to any car or motorcycle. Invest in these LED lights and drive with confidence, knowing that you are taking proactive steps to protect yourself and others on the road.
https://w.atwiki.jp/japanesehiphop/pages/1685.html
Format Title Artist Label Model Number Release Press 12 UNSTOPPABLE(white) KING GIDDRA DEFSTAR RECORDS DFJL-6053 2002/02/15 - bf7540a84d1911e3849812006f78d5fc_8.jpg Side Track Title Produce A 1 UNSTOPPABLE DJ OASIS 2 UNSTOPPABLE(Inst) DJ OASIS 3 UNSTOPPABLE(Acap) DJ OASIS B 4 ドライブバイ ZEEBRA 5 ドライブバイ(Inst) ZEEBRA 6 ドライブバイ(Acap) ZEEBRA PERTAIN CD UNSTOPPABLE 最終兵器
https://w.atwiki.jp/akbdata/pages/994.html
所属事務所 https //jpop.co.jp 花島大義 和田春 読み ハナジマ ヒロヨシ ワダ ハル 生年月日 1976年2月29日 出身 宮城県仙台市 Wikipedia 和田春 提供リスト 2016年11月30日 二人セゾン（欅坂46 3rd single） 共作曲 誰よりも高く跳べ！（けやき坂46） 2019年5月29日 Sing Out!（乃木坂46 23rd single） 作曲 編曲 曖昧 2019年7月17日 ドレミソラシド（日向坂46 2nd single） 作曲 編曲 My god J-POP
https://w.atwiki.jp/elvis/pages/4250.html
Where Did My Puppy Really Come from The Dark Shadow of Dog Breeding Authorhouse? Jennifer L. White? Authorhouse? JenniferL.White? Substores-UnknownASINs-35 Subjects-Home&Garden-AnimalCare&Pets-Dogs-General? Subjects-Home&Garden-AnimalCare&Pets-General? Stop Dieting Why People Gain Weight, and How to Lose It Authorhouse? Robert L. Seale C. S. C. S.? Authorhouse? RobertL.SealeC.S.C.S.? Substores-UnknownASINs-35 Subjects-Health,Mind&Body-Diets&WeightLoss-Diets-General? Subjects-Health,Mind&Body-Diets&WeightLoss-Diets-WeightLoss? Subjects-Health,Mind&Body-Diets&WeightLoss-Diets-WeightMaintenance? Educanese Rebuked Helping Eduators, Parents, and Students to Understand How American Education Can Be More Easily Improved Authorhouse? Lowell Schwalbe? Authorhouse? LowellSchwalbe? Substores-UnknownASINs-35 Subjects-Nonfiction-Education-EducationTheory-Administration? Subjects-Professional&Technical-Education-Administration-General? The Middle East - Life in Saudi Arabia Customs, Antics, Traditions, Habits, and Lifestyles of the People That Live, Work, and Play There- A Westerner's Perspective Authorhouse? K. Andrew Pulsifer? Authorhouse? K.AndrewPulsifer? Substores-UnknownASINs-35 Subjects-History-Asia-General? Subjects-History-MiddleEast-General? Subjects-History-MiddleEast-SaudiArabia? IEEE Standard Test Methods for Surge Protectors Used in Low-Voltage Data, Communications and Signaling Circuits (Ieee Std C62.36-1994) Inst of Elect & Electronic? IEEE Power Engineering Society. Surge Protective Devices Committee? InstofElect&Electronic? IEEEPowerEngineeringSociety.SurgeProtectiveDevicesCommittee? Substores-UnknownASINs-35 Subjects-Engineering-PowerSystems? Subjects-Engineering-Electrical&Electronics-Reference? Subjects-Engineering-Energy-Electric-Power? Subjects-Professional&Technical-Engineering-PowerSystems? Subjects-Professional&Technical-Engineering-Electrical&Electronics-Reference? Subjects-Professional&Technical-Engineering-Energy-Electric-Power? Subjects-Science-General Subjects-Science-Technology-Safety&Health? Stella's Statue Authorhouse? Ruth Kohrt? Authorhouse? RuthKohrt? Substores-UnknownASINs-35 Subjects-Literature&Fiction-GenreFiction-Historical? Sights and Sounds of My Yesterworld Authorhouse? Bonnie Blackman Hatchett? Authorhouse? BonnieBlackmanHatchett? Substores-UnknownASINs-35 Subjects-Literature&Fiction-Poetry-Anthologies? Subjects-Literature&Fiction-Poetry-SingleAuthors-UnitedStates? Subjects-Literature&Fiction-Poetry-UnitedStates-General? Subjects-Literature&Fiction-Poetry-UnitedStates-20thCentury? IEEE Trial-Use Standard for Application and Management of the Systems Engineering Process (Ieee Std 1220-1994) Inst of Elect & Electronic? IEEE Computer Society. Software Engineering Standards Committee? InstofElect&Electronic? IEEEComputerSociety.SoftwareEngineeringStandardsCommittee? Substores-UnknownASINs-35 Subjects-Computers&Internet-General? Subjects-Engineering-Industrial,Manufacturing&OperationalSystems-IndustrialDesign? Subjects-Professional&Technical-Engineering-Industrial,Manufacturing&OperationalSystems-IndustrialDesign? Subjects-Science-General The Cathedral of the Damned Authorhouse? Mervin Collier? Authorhouse? MervinCollier? ユーズドブック(洋書)-Mystery&Thrillers? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General? Subjects-Mystery&Thrillers-Thrillers-Psychological&Suspense? The Chains Authorhouse? R. J. Daggett? Authorhouse? R.J.Daggett? Substores-UnknownASINs-35 Subjects-ScienceFiction&Fantasy-Fantasy-General? Atlantean Roots Authorhouse? L. L. Drew? Authorhouse? L.L.Drew? ユーズドブック(洋書)-ScienceFiction&Fantasy? Substores-UnknownASINs-35 Subjects-ScienceFiction&Fantasy-Fantasy-General? IEEE Standard for Medical Device Communications-Transport Profile-Connection Mode (Std 1073.3.1-1994) Inst of Elect & Electronic? Medical Information Bus Committee of the Engineering in Medicine and b? InstofElect&Electronic? MedicalInformationBusCommitteeoftheEngineeringinMedicineandb? Substores-UnknownASINs-35 Subjects-Computers&Internet-General? Subjects-Professional&Technical-Medical-Medicine-Reference-Instruments&Supplies? Subjects-Science-General IEEE Recommended Practice for Instrumentation Specifications for Magnetic Flux Density and Electric Field Strength Meters-10Hz to 3Khz (Ieee Std 1308-1994) Inst of Elect & Electronic? IEEE Power Engineering Society. Transmission and Distribution Committee? InstofElect&Electronic? IEEEPowerEngineeringSociety.TransmissionandDistributionCommittee? Substores-UnknownASINs-35 Subjects-Engineering-SpecialTopics-Measurement? Subjects-Engineering-Telecommunications? Subjects-Engineering-Electrical&Electronics-Measurements? Subjects-Professional&Technical-Engineering-SpecialTopics-Measurement? Subjects-Professional&Technical-Engineering-Telecommunications? Subjects-Professional&Technical-Engineering-Electrical&Electronics-Measurements? Subjects-Science-General Advances in Neural Information Processing Systems Morgan Kaufmann Pub? David S. Touretzky? MorganKaufmannPub? DavidS.Touretzky? Substores-UnknownASINs-35 Subjects-Science-General So Be It Authorhouse? Viola Harvey Smith? Authorhouse? ViolaHarveySmith? Substores-UnknownASINs-35 Subjects-Biographies&Memoirs-General? Subjects-Biographies&Memoirs-SpecificGroups-Women? Subjects-Biographies&Memoirs-Memoirs? Subjects-Nonfiction-SocialSciences-GenderStudies-Women? The Vow Diamond Books? Lindsay Chase? DiamondBooks? LindsayChase? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General-Contemporary? Buidling a Strong Marriage Family With Style and Integrity Authorhouse? W. Blair, Jr. Slaughter? Authorhouse? W.Blair,Jr.Slaughter? Substores-UnknownASINs-35 Subjects-Health,Mind&Body-Relationships-Marriage? Over the Bay in Chittagong Authorhouse? S. I. Farooq? Authorhouse? S.I.Farooq? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General-Contemporary? Subjects-Travel-Asia-Bangladesh? 242-1986, R1991 IEEE Recommended Practice for Protection and Coordination of Industrial and Commercial Power Systems Inst of Elect & Electronic? IEEE? InstofElect&Electronic? IEEE? Substores-UnknownASINs-35 Subjects-Engineering-PowerSystems? Subjects-Professional&Technical-Engineering-PowerSystems? Subjects-Science-General Subjects-Science-Technology-Safety&Health? 802.10H-1997 IEEE Standards for Local and Metropolitan Area Networks Inst of Elect & Electronic? InstofElect&Electronic? Substores-UnknownASINs-35 Subjects-Science-General Subjects-Science-Technology-General&Reference Direct Approach Maya 4.5 Beginning Steps Authorhouse? J. N. Rose? Authorhouse? J.N.Rose? Substores-UnknownASINs-35 Subjects-Computers&Internet-WebDevelopment-HTML,Graphics,&Design-WebGraphics? Subjects-Computers&Internet-GraphicDesign-General? Subjects-Computers&Internet-General? Means of Commitment Authorhouse? Richard W. Ramsey? Authorhouse? RichardW.Ramsey? ユーズドブック(洋書)-Mystery&Thrillers? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General? Subjects-Mystery&Thrillers-Thrillers-Psychological&Suspense? Descent into the Dark Authorhouse? Melyssa G. Sprott? Authorhouse? MelyssaG.Sprott? Substores-UnknownASINs-35 Subjects-Literature&Fiction-Poetry-Anthologies? Subjects-Literature&Fiction-Poetry-SingleAuthors-UnitedStates? Subjects-Literature&Fiction-Poetry-UnitedStates-General? Subjects-Literature&Fiction-Poetry-UnitedStates-20thCentury? Bridges Revisited Authorhouse? K. F. Coffman? Authorhouse? K.F.Coffman? ユーズドブック(洋書)-Romance? Substores-UnknownASINs-35 Subjects-Romance-General? The Galactic Regiment Authorhouse? Corey Clairday? Authorhouse? CoreyClairday? Substores-UnknownASINs-35 Subjects-ScienceFiction&Fantasy-ScienceFiction-General? New York, New York A Poetic Journey Authorhouse? Maria Lapachet? Authorhouse? MariaLapachet? Substores-UnknownASINs-35 Subjects-Literature&Fiction-Poetry-Anthologies? Subjects-Literature&Fiction-Poetry-General? Global Management Blackwell Publishers? Mark Mendenhall? BlackwellPublishers? MarkMendenhall? Substores-UnknownASINs-35 Subjects-Business&Investing-International-General? Subjects-Business&Investing-Management&Leadership-Management? Subjects-Professional&Technical-BusinessManagement-Management&Leadership-Management? Dreams of God and Destiny Authorhouse? Socrits? Authorhouse? Socrits? Substores-UnknownASINs-35 Subjects-Literature&Fiction-Essays-General? Against the World Poetry Redefined (A Book of Thoughts Authorhouse? Victor Imhans? Authorhouse? VictorImhans? Substores-UnknownASINs-35 Subjects-Literature&Fiction-Poetry-Anthologies? Subjects-Literature&Fiction-Poetry-SingleAuthors-UnitedStates? Subjects-Literature&Fiction-Poetry-UnitedStates-General? Subjects-Literature&Fiction-Poetry-UnitedStates-20thCentury? Married but Single Authorhouse? Cassandra Murphy? Authorhouse? CassandraMurphy? Substores-UnknownASINs-35 Subjects-Romance-General? From Riches to Rags Authorhouse? Evelene Steele? Authorhouse? EveleneSteele? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General-Contemporary? The Fallen Authorhouse? Fred Shearer? Authorhouse? FredShearer? ユーズドブック(洋書)-Mystery&Thrillers? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General? Subjects-Mystery&Thrillers-Thrillers-Psychological&Suspense? Hoodwinked Preacher or Imposter Authorhouse? Sidney, II Crudup? Authorhouse? Sidney,IICrudup? Substores-UnknownASINs-35 Subjects-Religion&Spirituality-Bible&OtherSacredTexts-Bible-StudyGuides,History&Reference-Reference-Theology-General? Subjects-Religion&Spirituality-Christianity-Theology-General? Global Management Blackwell,U.S.? Mark Mendenhall? Blackwell,U.S.? MarkMendenhall? undefined undefined Dessert Rose Trilogy 1 Authorhouse? Marc Bloemers? Authorhouse? MarcBloemers? ユーズドブック(洋書)-ScienceFiction&Fantasy? Substores-UnknownASINs-35 Subjects-ScienceFiction&Fantasy-Fantasy-General? Christian Unity A Reality Check on Your Life With Christ Authorhouse? Gary Lewin? Authorhouse? GaryLewin? Substores-UnknownASINs-35 Subjects-Religion&Spirituality-Bible&OtherSacredTexts-Bible-StudyGuides,History&Reference-Reference-Theology-General? Subjects-Religion&Spirituality-Christianity-Theology-General? Gratitude Works Open Your Heart to Love Trafford? Katherine Scherer? Eileen Bodoh? Trafford? KatherineScherer? EileenBodoh? Substores-UnknownASINs-35 Subjects-Health,Mind&Body-Self-Help-General? Subjects-Religion&Spirituality-Christianity-ChristianLiving-Faith? Subjects-Religion&Spirituality-General? Two Scoops, Please Authorhouse? Greg Ray? Authorhouse? GregRay? Substores-UnknownASINs-35 Subjects-Business&Investing-General? Subjects-Business&Investing-Management&Leadership-Management? Subjects-Professional&Technical-BusinessManagement-Management&Leadership-Management? Two Scoops, Please Authorhouse? Greg Ray? Authorhouse? GregRay? Substores-UnknownASINs-35 Subjects-Business&Investing-General? Subjects-Business&Investing-Management&Leadership-Management? Subjects-Professional&Technical-BusinessManagement-Management&Leadership-Management? My Life Through the Fire Learning to Love Me Authorhouse? Alisha Neal-Miller? Authorhouse? AlishaNeal-Miller? Substores-UnknownASINs-35 Subjects-Biographies&Memoirs-SpecificGroups-Women? Subjects-Biographies&Memoirs-Memoirs? Subjects-Nonfiction-SocialSciences-GenderStudies-Women? Treasured Blessings For a Woman's Soul Authorhouse? Robyn McMillan? Authorhouse? RobynMcMillan? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General-Contemporary? Subjects-Literature&Fiction-ShortStories-General? Subjects-Religion&Spirituality-Christianity-Fiction&Poetry-Fiction? Book of Wisdom With Wall Street Prophecies Authorhouse? Eeric White? Authorhouse? EericWhite? Substores-UnknownASINs-35 Subjects-Business&Investing-Investing-Stocks? The Trophy Authorhouse? J. Jo Giles? Authorhouse? J.JoGiles? Substores-UnknownASINs-35 Subjects-Literature&Fiction-General-Contemporary? Inside the United States When Your Guard Is Down Authorhouse? Joel Frizzell? Authorhouse? JoelFrizzell? Substores-UnknownASINs-35 Subjects-Mystery&Thrillers-Thrillers-SpyStories&TalesofIntrigue? Subjects-Nonfiction-Politics-General? Touched by Love Authorhouse? Kathie Allen? Authorhouse? KathieAllen? Substores-UnknownASINs-35 Subjects-Romance-General? Sorcerer Nitakue Beginning of the Gemini Prophecy Authorhouse? N. E. Pettis? Authorhouse? N.E.Pettis? ユーズドブック(洋書)-ScienceFiction&Fantasy? Substores-UnknownASINs-35 Subjects-ScienceFiction&Fantasy-Fantasy-General? Hush Little Babies Authorhouse? Susan B. Haynes? Authorhouse? SusanB.Haynes? Substores-UnknownASINs-35 Subjects-Mystery&Thrillers-General? Subjects-Mystery&Thrillers-Mystery-General? My Child's Health Diary Authorhouse? Belinda Burford Stilwell? Authorhouse? BelindaBurfordStilwell? undefined undefined Links to Murder Authorhouse? W. Brooks Roberts? Authorhouse? W.BrooksRoberts? Substores-UnknownASINs-35 Subjects-Mystery&Thrillers-General? Subjects-Mystery&Thrillers-Mystery-General? Through a Child's Eyes Authorhouse? Dan Lee? Authorhouse? DanLee? Substores-UnknownASINs-35 Subjects-ScienceFiction&Fantasy-Fantasy-General? Substores-UnknownASINs-35 洋書
https://w.atwiki.jp/ce00582/pages/900.html
Function myeselect(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 m1 = 0 To 10 c1 = c(m1, 9, n1) my = y1(m1) fy = y2(9) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 10, n2) my = y1(m1) fy = y2(10) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next myeselect = maxm End Function Function myfselect(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 m1 = 0 To 10 c1 = c(m1, 0, n1) my = y1(m1) fy = y2(0) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 1, n2) my = y1(m1) fy = y2(1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next myfselect = maxm End Function Function fyfselect(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 m1 = 0 To 10 c1 = c(m1, 0, n1) my = y1(m1) fy = y2(0) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 0 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 1, n2) my = y1(m1) fy = y2(1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 1 If u1 maxu Then maxu = u1 Next fyfselect = maxm End Function Function fyeselect(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 m1 = 0 To 10 c1 = c(m1, 9, n1) my = y1(m1) fy = y2(9) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 9 If u1 maxu Then maxu = u1 Next For m1 = 0 To 10 c1 = c(m1, 10, n2) my = y1(m1) fy = y2(10) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = 10 If u1 maxu Then maxu = u1 Next fyeselect = maxm 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 fyselect(s1 As Single, s2 As Single, th1, th2, m2 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 m1 = 0 To 10 c1 = c(m1, m2 - 1, n1) my = y1(m1) fy = y2(m2 - 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 - 1 If u1 maxu Then maxu = u1 Next For m1 = 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 m1 = 0 To 10 c1 = c(m1, m2 + 1, n3) my = y1(m1) fy = y2(m2 + 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m2 + 1 If u1 maxu Then maxu = u1 Next fyselect = maxm End Function Function myselect(s1 As Single, s2 As Single, th1, th2, m2 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 m1 = 0 To 10 c1 = c(m1, m2 - 1, n1) my = y1(m1) fy = y2(m2 - 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next For m1 = 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 m1 = 0 To 10 c1 = c(m1, m2 + 1, n3) my = y1(m1) fy = y2(m2 + 1) u1 = u(s1, s2, th1, th2, c1, my, fy) If u1 maxu Then maxm = m1 If u1 maxu Then maxu = u1 Next myselect = maxm End Function 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 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 t3 = 0 Do Until t3 5 h = 0.001 t1 = 0 Do Until t1 10 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 h = 0.001 t2 = 0 Do Until t2 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 For m2 = 0 To 10 n = 0 For s1 = 1 To 10 For s2 = 1 To 10 If fgr(s1, s2) = m2 Then n = n + 1 If fgr(s1, s2) = m2 Then mgroup(m2, n) = s1 If fgr(s1, s2) = m2 Then fgroup(m2, n) = s2 Next Next ngroup(m2) = 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 m2 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 nu = ngroup(m2) us = 0 bs = 0 For s = 1 To nu s1 = mgroup(m2, s) s2 = fgroup(m2, s) i = myselect(s1, s2, th1, th2, m2, n1, n2, n3, c, y1, y2) j = fyselect(s1, s2, th1, th2, m2, n1, n2, n3, c, y1, y2) nx = n2 If j = m2 - 1 Then nx = n1 If j = m2 + 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(m2, n1, n2, n3) = us gb(m2, 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 = myfselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = fyfselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n1 If j = 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 = myeselect(s1, s2, th1, th2, n1, n2, c, y1, y2) j = fyeselect(s1, s2, th1, th2, n1, n2, c, y1, y2) nx = n2 If j = 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 m2 = 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(m2, nx, n1, n2) q0 = gb(m2, 0, 0, 0) q1 = gb(m2, 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(m2 - 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(m2, n1, n2, q) = vs goton(m2, n1, n2, q) = nxs gotoq(m2, 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 m2 = 9 - j op(m2) = goton(m2 + 1, op(m2 + 1), op(m2 + 2), oq(m2 + 1)) oq(m2) = gotoq(m2 + 1, op(m2 + 1), op(m2 + 2), oq(m2 + 1)) Next For m1 = 0 To 10 For m2 = 0 To 10 cs(m1, m2) = c(m1, m2, op(m2)) Next Next e = 0 For m2 = 0 To 9 e = e + op(m2) ^ 2 Next If e 3 Then h = h / 2 If h 10 ^ (-5) Then t2 = 1000 Debug.Print t2, e, maxv t2 = t2 + 1 Loop t3 = t3 + 1 Loop End Sub
https://w.atwiki.jp/cbna/pages/19.html
L Size Robot Name Size Type Cost Price Slot HP STR TEC WLK FLY TGH CAPA hand1 hand2 Misc Hound Dog L Lnd 630 19800UC 2 385 17 3 18 7 12 630 Single Gun Single Gun (1st Login) Red Squealer L Lnd 750 Reward 0~3 480 20 7 20 9 17 875 - - Shino Exroad L Lnd 775 28000UC 2 445 15 13 22 9 10 820 Single Gun Single Gun Shino Exroad (with HKC) L Lnd 775 Garapon #3 3 445 15 13 22 9 10 820 Single Gun Single Gun BD2 HairKnotCap Shino Exroad ALPHA L Lnd 785 Garapon #3 3 445 14 13 22 9 11 820 Single Gun Single Gun BD3 Domiclown L Lnd 805 24000UC 2 480 21 13 19 10 14 870 - - Domiclown Jo L Lnd 805 Garapon #4 3 485 20 14 19 10 15 870 - - Hatigarm L Lnd 850 28000UC 2 450 18 14 22 13 13 1020 - - Hatigarm Machine L Lnd 850 Garapon #3 3 450 20 15 22 9 14 1020 - - BD2 Lancerlot L Lnd 855 Garapon #3 3 490 18 16 15 8 20 920 - - AM AM2 Lancerlot J. L Lnd 880 Garapon #3 3 480 18 14 15 8 22 920 - - AM3 AM4 Blazed Baron L Lnd 915 Garapon #4 3 535 19 18 18 11 13 1060 Rifle - Blazed Baron BB L Lnd 940 Garapon #4 3 535 19 18 17 12 13 1060 Rifle - BD2 Mighty Byne LB L Lnd 980 Garapon #5 3 465 22 15 12 7 24 1100 - - AM2 AM3 Eboshi Daedalion L Lnd 1010 Garapon #4 3 600 25 1 17 12 24 1065 Rifle Club Mighty Byne L Lnd 1030 31000UC 2 465 20 13 12 8 24 1100 Handy Machinegun - Mighty Byne GOLD L Lnd 1030 Event 3 465 20 13 12 8 24 1100 Handy Machinegun - Give Away Name Size Type Cost Price Slot HP STR TEC WLK FLY TGH CAPA hand1 hand2 Misc Aigis Baltheon L Air 740 Garapon #1 3 415 5 14 5 16 17 765 - - Baltheon L Air 740 31000UC 2 415 6 14 6 16 15 765 - - Gwyain L Air 820 25000UC 2 475 12 14 11 21 22 1035 - - Aquila L Air 840 19800UC 2 450 14 16 11 24 6 860 Blaster Beam Blade (1st Login) Aquila MK2 (with CT) L Air 840 Garapon #5 3 450 13 15 7 24 12 890 Blaster Beam Blade BD2 Chinese Twintail Garulabird L Air 900 Garapon #3 3 450 16 18 9 25 12 1020 - - Garulabird Sadie L Air 900 Garapon #3 3 450 15 18 9 26 12 1020 - - BD2 Thoarla Frazia L Air 940 Garapon #2 3 455 11 17 7 19 21 955 Blaster Spear BD4 Thoarla Nimbus L Air 940 29000UC 2 455 12 20 6 17 20 955 Blaster Spear Thoarla Nimbus (with AHE) L Air 940 Garapon #7 3 455 12 21 6 18 20 955 Blaster Spear BD5 Ace of Hearts Earrings Thoarla Nimbus (with MH) L Air 940 Garapon #2 3 455 12 21 6 17 20 955 Blaster Spear BD2 WitchHat Shaden L Air 970 Garapon #2 3 475 12 17 12 21 9 1020 Blaster Short Sword Tengu L Air Campaign 3 Name Size Type Cost Price Slot HP STR TEC WLK FLY TGH CAPA hand1 hand2 Misc Saggitary Maxis II L Art 775 Garapon #1 3 445 8 16 15 11 12 910 Single Gun - BD2 Saggitary Maxis II GOLD L Art 775 Event 3 445 8 16 15 11 12 910 Single Gun - Give Away Saggitary Maxis L Art 875 25000UC 2 480 11 21 12 10 12 910 Single Gun Hammer Boildeck L Art 900 Garapon #4 3 430 14 25 11 7 20 945 - - SturBanger L Art 920 28000UC 2 400 6 25 5 4 24 920 - - Sturbanger Standard L Art 920 Garapon #2 3 400 9 25 8 5 17 980 - - Boildeck EG L Art 930 Garapon #4 3 430 12 24 14 5 22 945 - - BD2 Toybox L Art 1020 20000UC 2 525 12 25 9 8 25 1090 - - Toybox HEAT L Art 1030 Garapon #1 3 515 12 23 7 5 28 1090 Bazooka Club Damtree L Art Arcantus 0 - - Destructor L Art Campaign 3 Name Size Type Cost Price Slot HP STR TEC WLK FLY TGH CAPA hand1 hand2 Misc Greinaut T2 L Sup 670 Garapon #6 3 375 9 11 13 17 16 760 - - BD2 Greinaut L Sup 720 Garapon #6 3 375 9 12 8 16 21 760 - - Pulsardio L Sup 860 19000UC 2 485 16 10 15 12 19 905 Handy Bazooka Long Sword Pulsardio Gamma L Sup 860 Garapon #2 3 485 17 7 17 12 19 905 Handy Bazooka Long Sword BD2
https://w.atwiki.jp/nicoratch/pages/1205.html
概要 DSPエフェクトとUSB入力を備えた2chオール・イン・ワンタイプのCDJ。 スペック表 Product details ﹡Options SCRATCH/DSP EFFECT/USB INPUT/AMPLIFIE ﹡Compatible with CD,CD-R,MP3,with full DJ control. ﹡Full viewing direction display with ID3 TAG(MP3). ﹡CD/Phono/Line/Mic input ﹡Pitch V.R adjust the desired speed. ﹡Control function open/close,play/pause,stop, cue,skip+/-,+10,search+/-,time,single/continue,repeat, program,loop,reloop(IN OUT),pitch+/-(16%),jog searching+- ﹡Anti-shock system 20secs. ﹡Single / continuous play mode. ﹡CUE on and off switch for each channel. ﹡Assign crossfader. ﹡Crossfader control CD play and pause. ﹡2 channel RCA master output 2 channel REC output. ﹡2 channel MIXER 3 band EQ control.. Specifications ﹡Type Dual Compact Disc Player with Integrated Audio Mixer ﹡Disc Type Standard Compact discs(12cm 8cm) ﹡Time Display Track Elapsed , Track remain, or Total Remain ﹡Variable Pitch ±16% Slider with Resume Switch ﹡Pitch Bend ±16% Maximum ﹡Instant Start Within 0.03 Seconds ﹡Bass (Channels 1 2) +/-12dB ﹡Mid (Channel 1 2) +/-12dB ﹡High (Channel 1 2) +/-12dB ﹡Gain (Channel 1 2) 0 to -20 dB ﹡Headphone Impedance 32 Ohm ﹡Requency Response 20Hz-20kHz ﹡Distortion 0.02% ﹡S/N Ration 80 dB ﹡Quantization 1 Bit Linear/Channel,3 Beam Laser ﹡Oversampling Rate 8 Times ﹡Sampling Frequency 44.1 kHz ﹡Channel Separation 55dB(1kHz) ﹡Phono Sensitivity 10mV, 47kOhm ﹡Line Sensitivity 1V,10kOhm ﹡MIC Sensitivity 10mV, 600 Ohm ﹡EQ Control(3 BAND) ±12dB ﹡Line Output 1.9V, 600 Ohm ﹡REC Output 1.9V, 600 Ohm ﹡Power Supply World Wide Voltage AC100~240V,60/50 Hz ﹡Dimension W482xD260xH140mm CDM-500CTUSB http //www.vistronaudio.com/chanpinok.asp?PicID=273