約 4,413,225 件
https://w.atwiki.jp/kakis/pages/1730.html
kefokefa /// / 西南 kefo\kefa \ 13 seren klel 西南 \ 西南 \ [ vetyolom ] \ kefakefoより南より
https://w.atwiki.jp/rockband/pages/107.html
オフラインとオンラインで遊べます 曲を指定された条件でクリアすると写真をGet Chapter Challenges Modeはチャプターの曲を連続プレイ CHAPTER 1 The Cavern 63 1. Twist And Shout 2. Boys 3. Do You Want To Know A Secret 4. I Saw Her Standing There CHAPTER 2 The Ed Sullivan Show 64 1. I Want To Hold Your Hand 2. Can t Buy Me Love 3. A Hard Day s Night 4. I Wanna Be Your Man CHAPTER 3 Shea Stadium 65 1. Ticket To Ride 2. I m Looking Through You 3. Eight Days A Week 4. If I Needed Someone 5. I Feel Fine CHAPTER 4 Budokan 66 1. Day Tripper 2. And Your Bird Can Sing 3. Drive My Car 4. Taxman 5. Paperback Writer CHAPTER 5 Abbey Road 66- 67 1. Yellow Submarine 2. Sgt.Pepper s Lonely Hearts Club Band / With A Little Help From My Friends 3. Lucy In The Sky With Diamonds 4. Getting Better 5. Within You Without You / Tomorrow Never Knows 6. Good Morning Good Morning CHAPTER 6 Abbey Road 67- 68 1. I Am The Walrus 2. Hello Goodbye 3. Hey Bulldog 4. Back In The U.S.S.R 5. Dear Prudence 6. While My Guitar Gently Weeps CHAPTER 7 Abbey Road 68- 69 1. Helter Skelter 2. Revolution 3. Birthday 4. Octopus s Garden 5. Something 6. Come Together 7. Here Comes The Sun CHAPTER 8 Apple Corps Rooftop 69 1. Dig A Pony 2. I ve Got A Feeling 3. Don t Let Me Down 4. I Me Mine 5. I Want You(She s So Heavy) 6. Get Back Encore 1. The End
https://w.atwiki.jp/xboxonescore/pages/1152.html
Super Box Land Demake 項目数 11 総ポイント 1000 難易度 ★☆☆☆☆ 攻略動画 https //youtu.be/8DXhB-W71Uo Pushing Together 90 Complete a level using both characters Box Pusher 90 Complete your first level Back In Time 90 Use the rewind magic Trainee Pusher 90 Complete 5 levels Novice Pusher 90 Complete 10 levels Junior Pusher 90 Compete 20 levels Balloon Kicker 90 Explode a balloon Bomb Defuser 90 Explode a bomb Senior Pusher 90 Complete 30 levels Professional Pusher 90 Complete 35 levels Master Pusher 100 Complete 40 levels
https://w.atwiki.jp/cod4mod/pages/80.html
Here we will explain the tools found in CoD4Radiant upper tool menu. ここで我々意志はCoD4Radiant上限値ツールmenuの中に見つけられてツールを説明します。 File file/New map Creates a black map file file/New map オープンウィンドウブラウザが既存のマップファイルを開きます file/Open... Opens window browser open an existing map file file/Open... オープンウィンドウブラウザが既存のマップファイルを開きます file/Load... Imports a file into your map. (prefab, model) file/Load... あなたのマップの中にファイルを輸入します。(プレハブ、モデル) file/Save Saves your current changes file/Save あなたの現在チェンジをセーブします file/Save as... Allows you to save your work under new name or directory file/Save as... あなたに新しい名前:あるいはディレクトリの下であなたの仕事をセーブすることを許します file/Save selected... file/New project... file/Set Startup Project... file/Project settings... file/Pointfile... If you have a LEAK in your level this will show you where the leak is. file/Pointfile... もしあなたがあなたのレベルの中にLEAKを得るなら、この意志はあなたにleakがどこにあるか示します。 file/Error file... If you have errors in your level (decal errors/lightmap errors), this will show you where the error is. file/Error file... もしあなたがあなたのレベル(デカールエラー/光源マップエラー)の中にエラーを得るなら、この意志はあなたにエラーがどこにあるか示します。 Edit Edit/Undo (Ctrl-Z) this will undo any steps made previously. You can set how many steps back you can take under Preferences Edit/Undo (Ctrl-Z) どんなステップでも前にしたこの意志アンドゥ。あなたキャンあなたキャンが環境設定の下でいくつの戻ったステップをとるか設定してください Edit/Redo (Ctrl-Y) This is redo your undo. Simple enough ) Edit/Redo (Ctrl-Y) これはリドゥであるあなたのアンドゥ. 十分な簡易設定 ) Edit/Copy (Ctrl-C) This will make a copy of your selected object Edit/Copy (Ctrl-C) この意志はあなたの選択済みオブジェクトのコピーを作ります Edit/Paste (Ctrl-V) This will paste your copied object in the level Edit/Paste (Ctrl-V) この意志はレベルの中にあなたのコピー済オブジェクトをペーストします Edit/Delete (Backspace) This will delete an selected object Edit/Delete (Backspace) この意志は選択済みオブジェクトを削除します Edit/Map Info... (M) This will bring up a window displaying the amount of entities you currently have in your level. Edit/Map Info... (M) この意志はウィンドウ非再生中の上にあなたがあなたのレベルの中に現在得るエンティティの量を持って来ます。 Edit/Entity Info... This will give you a window displaying a tree of all the entities in your level. Edit/Entity Info... この意志はあなたのレベルの中にすべてのエンティティのツリーを示してあなたにウィンドウを与えます。 Edit/Enter Prefab (Alt-PageDown) This will allow you to step into the file of a selected prefab Edit/Enter Prefab (Alt-PageDown) この意志はあなたをステップに選択済みプレハブのファイルに入れます Edit/Leave Prefab (Alt-PageUp) This will allow you to step back out of the prefab file you just opened. Edit/Leave Prefab (Alt-PageUp) この意志はあなたがステップに後方にあなたがただ開いたプレハブファイルから出るのを許します。 Edit/Preference... (P) Brings up your editing preferences window Edit/Preference... (P) あなたのエディティングの上に環境設定ウィンドウを持って来ます Edit/Entities as/Bounding box This will make all entities (models) in your level displayed by there bounding box Edit/Entities as/Bounding box この意志は、そこにボックスと境界をなすことによって、表示されたあなたのレベルの中にすべてのエンティティ(モデル)を作ります Edit/Wireframe This will display all entities in wire frame mode Edit/Wireframe この意志はワイヤ列モードの中にすべてのエンティティを示します View View/Toggle/Camera View (Shift-Ctrl-C) Turns your 3D Camera view on and off. Only used when you are using the floating windows preference. View/Toggle/Camera View (Shift-Ctrl-C) あなたの3Dカメラ表示をON・OFF にします。 ただ、あなたが使用、フローティングウインドウプリファランス、であるとき、使われるだけです。 View/Toggle/Layers (L) Brings up the Layers Menu View/Toggle/Layers (L) レイヤーの上にメニューを持って来ます View/Center Centers your 3D Camera view View/Center あなたの3Dカメラ表示を真中に置きます View/Next(XY, YZ, XY) Ctrl-Tab This cycles your 2D grid view View/Next(XY, YZ, XY) Ctrl-Tab これは回るあなたの2Dグリッド表示 View/Hide Selected (H) This will hide an selected object View/Hide Selected (H) この意志は選択済みオブジェクトを隠します View/Hide Unselected (Alt-H) This will hide everything in your level that you do not have selected. View/Hide Unselected (Alt-H) この意志はあなたが選択されて得ないあなたのレベルの中にすべてを隠します。 View/Show Last Hidden (Shift-Ctrl-H) This will allow you to show an objects that are hidden starting with what was last hidden View/Show Last Hidden (Shift-Ctrl-H) この意志はあなたに見えることを許す最後のhiddenであったものと一緒のhidden起動中であるオブジェクト View/Show Hidden (Shift-H) Shows all objects that are hidden View/Show Hidden (Shift-H) hiddenであるすべてのオブジェクトを示します View/Entities as/Bounding box This will display all entities (Models) as there bounding box View/Entities as/Bounding box この意志はボックスと境界を引いて同じぐらいそこにすべてのエンティティ(モデル)を示します View/Entities as/Wireframe This will display all entities in there wire frame View/Entities as/Wireframe この意志はあそこのすべてのエンティティが列を針金でとめることを示します View/Entities as/Selected Wireframe Entites will be seen as there bounding box untill selected. When selected they will be viewed as Skinned View/Entities as/Selected そこにバウンドボックスuntillが選択したように、ワイヤフレームEntitesは見られるでしょう。 View/Entities as/Selected Skinned Same thing as Selected Wireframe View/Entities as/Selected 選択項目ワイヤフレームとして同じことの皮をはぎました View/Entities as/Skinned This will display all entites in there skinned mode. (default) View/Entities as/Skinned この意志はそこに皮をはがれたモードの中にすべてのentitesを示します。(デフォルト) View/Entities as/Skinned and boxed This will display entities skinned and display there bounding box as a wire frame View/Entities as/Skinned and boxed 表示部エンティティが皮をはいだこの意志と表示部がワイヤフレームとしてそこにボックスと境界を引く Light Preview (to come) Cubic Clipping View/Cubic Clipping (ctrl-\) This will turn cubic clipping on and off. Cubic clipping is the distance viewable in your 3D camera window. View/Cubic Clipping (ctrl-\) これは立方クリッピングをON・OFF にするでしょう。 三次式クリッピングはあなたの3Dカメラウィンドウの中に表示可能な距離です。 This is primarily used when you have a large map with a lot of entities. あなたがエンティティの仕切と一緒に大きいマップを得るとき、これは主に使われます。 Your 3D camera will move very slow. You can turn on the cubic clipping which will display your set farplane. あなたの3Dカメラは非常にゆっくり動くでしょう。 あなたの設定されたfarplaneを示すであろう立方クリッピング、あなたキャン順番。 You can adjust your farplane distance in your preferences or use the hotkeys Crtl-[ and Ctrl-]. あなたキャンあなたの環境設定の中にあなたのfarplane距離を調整するか、あるいはCrtl-[ホットキーを使いますそしてCtrl-]. Crtl-[ will bring the farplane distance in. Ctrl-] Moves the farplane distance away from the camera. Crtl-[が中にfarplane距離を持って来るでしょう。 Ctrl-] farplane距離をカメラから離れて動かす. Selection Selection/Drag/Drag Edges (E) This is used for brushes only. In edge mode you can grab an edge of a brush. Selection/Drag/Drag Edges (E) これはブラシのみのために使われます。 稜線モードの中にあなたキャンはブラシの稜線をつかみます。 Selection/Drag/Drag Vertices (V) This is used for Terrain and Curves. Do not use on brushes! Using Vertice Mode on a brush and editing it will most definitely make the brush corrupted and you will have missing faces in game. Selection/Drag/Drag Vertices (V) これは地形とカーブのために使われます。 ブラシでの使用ではなくしてください! ブラシの上のそしてそれを編集する使用頂点モードが最も確かにブラシ無効をするでしょう、そしてあなた意志はゲームの中に欠けているフェースを得ます。 Selection/Clone (Spacebar) This will make a duplicate of the selected object(s). Selection/Clone (Spacebar) この意志は選択済みオブジェクトの複写を作ります。 Selection/Deselect (Escape) Unselects selected object(s) Selection/Deselect (Escape) Unselects選択済みオブジェクト Selection/Flip Selection/Flip Selection/Rotate/Rotate X Will rotated selected object 90 degrees in X Selection/Rotate/Rotate X 意志がXの中に選択済みオブジェクト90次数を回転させました Selection/Rotate/Rotate Y Will rotated selected object 90 degrees in Y Selection/Rotate/Rotate Y 意志がYの中に選択済みオブジェクト90次数を回転させました Selection/Rotate/Rotate Z (Shift-D) Will rotated selected object 90 degrees in Z Selection/Rotate/Rotate Z (Shift-D) 意志がZの中に選択済みオブジェクト90次数を回転させました Selection/Scale Selection/Scale Selection/Maya Export This will convert selected object (excluding models) to a file that can be imported and opened in Maya Selection/Maya Export キャンが輸入されて、そしてMayaの中に開かれるというコンバートがファイルに(モデルを除いて)オブジェクトを選択したこの意志 Selection/CSG/Hollow This will hollow out a brush. Really only used when creating a sky box. Selection/CSG/Hollow この意志はブラシをくり抜きます。 空ボックスを作成するとき、本当にただ使われるだけです。 Selection/Merge This will merge multiple brushes together as long as there surfaces are matching. Illegal surfaces will not join. Selection/Merge そこに表面がつりあっているように、この意志は同じぐらい長い間複数ブラシを合流させます。 イリーガルがジョインではなく、意志を表面化します。 Selection/Auto Caulk This will automatically caulk an brushes surface, that its surface is fully touching another brush surface that can not be seen. Selection/Auto Caulk この意志は自動的にブラシサーフェスをcaulk します、そのサーフェスが完全に見られることができないもう1つのブラシサーフェスに触れていること。 Selection/Clipper Toggles on Clipping tool Selection/Clipper クリッピングツールに関する切り替え Selection/Connect entities This will connect selected entities together Selection/Connect entities 連結が一緒にエンティティを選択したこの意志 Selection/Ungroup entity This will remove any grouping (func_group) to be individual Selection/Ungroup entity この意志は個別であるためにどんなグループ化(func_group)をでも削除します Selection/Make Detail This will set selected brushes to Detail Selection/Make Detail 選択部分/がディテールにこの意志が設定したディテールを選択済みブラシにします Selection/Make Structural This will set selected brushes to Structural Selection/Make Structural この意志が構造的に選択済みブラシを設定した構造的な選択部分/型 Selection/Make Weapon Clip This will set selected brushes to Weapon Clip Selection/Make Weapon Clip この意志は兵器クリップに選択済みブラシを設定しました Selection/Make Non-Colliding This will set selected brushes to Non-Colliding Selection/Make Non-Colliding この意志は、非-衝突することに、選択済みブラシを設定しました Grid Displays current 2D grid setting. Also can change grid size ディスプレイ現在2Dグリッド設置。同じくキャンチェンジグリッドサイズが Snap to grid (Alt-Ctrl-G) This will set selected object or point to the grid グリッドに沿う(Alt - ctrl-G)この意志は選択済みオブジェクトを設定しました、あるいはグリッドを指し示してください Textures Textures/Show All (Crtl-A) this will load all available textures in you texture window Textures/Show All (Crtl-A) この意志はあなたテクスチャウィンドウの中にすべての利用可能なテクスチャをロードします Textures/Show In Use (U) this will display all the textures current being used in the sceen Textures/Show In Use (U) この意志はsceenで使われてすべてのテクスチャ現在を見せます Textures/Surface Inspector (S) This will bring up the Surface inspector tool Textures/Surface Inspector (S) この意志はサーフェスの上にインスペクターツールを持って来ます Textures/Find/Replace... This will bring up the find replace editor. Very useful for changing all of one texture to a new texture Textures/Find/Replace... この意志は発見の上にリプレイスエディタを持って来ます。 1つのテクスチャのすべてを新しいテクスチャに変えることに非常に役立ちます Textures/Render Method here you can set the rendering lighting setting for in the 3D camera window. Does not set lighting for in game. Textures/Render Method ほらあなた設定されたキャン3Dの中にカメラウィンドウのためのレンダリング照明設置。 ゲームの中にために照明を設定されたことがない Textures/Texture Resolution Here you can set you quality of the textures viewed in the 3D camera window. Slower computers can benefit from this to have the camera more quicker in lower settings. Textures/Texture Resolution ここであなたキャンはあなた見られるテクスチャの質を3Dカメラウィンドウの中に設定しました。 より低い設定値の中にもっとより速くカメラを得るためのこれからのより遅いコンピュータキャン利益。 Textures/Texture Window Scale This will change the display size of the textures in the texture window Textures/Texture Window Scale テクスチャウィンドウの中にこれほど意志的なチェンジ、テクスチャの表示サイズ (Original "http //www.infinityward.com/wiki/index.php?title=Radiant_Toolbar")
https://w.atwiki.jp/oboegakiwiki/pages/6.html
アーカイブ @wikiのwikiモードでは #archive_log() と入力することで、特定のウェブページを保存しておくことができます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/25_171_ja.html たとえば、#archive_log()と入力すると以下のように表示されます。 保存したいURLとサイト名を入力して"アーカイブログ"をクリックしてみよう 保管 Xyzzy - Wikipedia (2007-12-17 01 26 01) サイト名 URL
https://w.atwiki.jp/altmcws/pages/19.html
This page explains various roles in the regular meeting. It also provides script and tips. Useful files are also available at Public Downloads. When you are assigned to a speech, be sure to bring your manuals to allow your evaluator to write a written evaluation for you. 1. Club Bylaws 2. Competent Communication Manual (Objectives) 3. Competent leadership Manual 4. Advanced Manuals (Descriptions) 5. Scripts (Timer, Vote Counter, GRAHCO) 6. Tips for Table Topics Master 7. Tips on Evaluation 8. Agenda Sample (Members Only Downloads) 9. Tips forTMOD (Members Only Downloads) 10. Glossary 11. You Can t Talk About That 12. Rules, Guidelines, Shopping - Introduction of TI Site Description 1. Club Bylaws These bylaws and constitution are used by all toastmasters club worldwide. 2. Competent Communication Manual (List of objectives) 3. Competent leadership Manual Read page 58 of your Competent Communication Manual on Communication and Leadership Tracks. This explains how to use the above two manuals includedin the new member kit. Members should bring two manuals everytime they serve a role. 4. Advanced Manuals Read page 76 of your Competent Communication Manual Upon completion of the first ten projects of Competent Communication Manual you will acquire the title CC (Competent Communicater) and be entitled to choose two manuals from 15 advanced manuals. The fees for the first two advanced manuals are included in your original payment on your application for membership. 5. Scripts Your first roles in the meeting will be invocation (Mission of the club, Thought of the day, vote counter, timer, and perhaps later GRAHCO (gra-cou). You will be requested to give an explanation of your role by TMOD (tea-mode Toastmaster Of The Day) at the start of the meeting. Feel free to modify these scripts (except for the Mission of the Club) to create your own version. When you are TMOD, and need to call a member, call the person as Toastmaster so and so - rather than TM (tea-em) so and so - even though the abbreviation may be used on the agenda. On the other hand GRAHCO and TMOD are acronyms and used as such. TMOD is preferably called Toastmaster or Madam Toastmaster typically at the start or end of a speech. Toastmaster of the Day is also used for this purpose. 6. Tips for Tabletopics Master To make your session most exciting. 7. Tips on Evaluation For a positive and effective evaluation. 8. Agenda Sample This file is at the Members Only Downloads. * This sample can be used for overwriting when you are TMOD 9. Tips for TMOD This file is at the Members Only Downloads. Please find * TMOD_duties_as_of_909.pdf . 10. Glossary 11. You Can t Talk About That! Members often tell us that other Toastmasters have told them that speeches concerning politics, religion and sex are forbidden by Toastmasters International because such controversial subjects are not appropriate. This is not true. Toastmasters International does not prohibit any speech topic, content or language. Toastmasters International recognizes club members may learn much about the world around them from listening to others’speeches on a variety of subjects. This variety can add interest to club meetings and stimulate thoughts and ideas. For these reasons, Toastmasters International does not place restrictions on topics, content, or language of any speeches. It also recognizesthat a club is a diverse group of people and recommends members be sensitive to this diversity and use good taste and responsibility when selecting speech topics, content, and language. While Toastmasters International has no restrictions, a club may guide its nembers on how to observe good taste and sensitivity in the context of that particular club. (from TIPS, toastmasters Bimonthly Magazine)
https://w.atwiki.jp/mandemoari/pages/273.html
File 17 http //hissi.org/read.php/news/20090503/STJ2dXVqamQ.html 婚活(笑)女をセフレにして飽きたら捨てたい 448 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 17 56.54 ID I2vuujjd 447 未婚の母なんていう異端者は日陰者として生きればいいだけの話 婚約者が死んだとか言い訳してるけど結婚前に中出ししたメス豚が厚かましい そしてこのクソビッチを擁護する頭の湧いた女どもも既に重度のメンヘラだろう 憲法改正すべき47% 「現在のままでよい」38% ―賛成が反対を上回る―日経調査 40 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 22 45.68 ID I2vuujjd こりゃ捏造だね 日本人なんて極的に何かを変えようなんて発想抱かないのばっかだろ そもそもそ時代に沿った考え方って何だよw 処女なんかより離婚歴のある女性の方が魅力がある。極一部の変態男による処女崇拝は異常 798 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 25 08.60 ID I2vuujjd 重婚おkにしてあぶれた男は死刑でよくね? 昔と違って肉体労働の価値は薄れてるんだしね バカ貧乏非力な男は存在価値ないでしょ 805 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 27 50.14 ID I2vuujjd 800 あーそうか じゃあ奴隷でいいや 収容所に入れちゃって職場へは専用バスで通わさせる きもいのがうろうろしてると不快だもんね 自由が丘でスイーツを食べる良さがわからないおとこの人って・・・ 28 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 31 13.17 ID I2vuujjd 自由が丘スイーツ(笑)は子連れの若いママちゃんたちだから 独身のやつらにはあんまり関係ないと思うよ 処女なんかより離婚歴のある女性の方が魅力がある。極一部の変態男による処女崇拝は異常 827 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 34 46.91 ID I2vuujjd 824 マジレスしるけど ネカマでさえ面白おかしくやれないやつが書いた本なんて読む気もしない かわいい女の子になろうと努力してるかわいい女の子のかわいさはかわいい 58 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 36 23.71 ID I2vuujjd いい年してかわいい志向のやつって脳みそ足りないんじゃないかと思うわ もっと社会貢献とか世界平和とか考えることあるだろう 「人脈づくり」のサロンが人気らしい まぁν速民には関係ないけど 58 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 38 35.05 ID I2vuujjd あれ?mixiってそもそも人脈づくりSNSじゃなかったっけ 処女なんかより離婚歴のある女性の方が魅力がある。極一部の変態男による処女崇拝は異常 849 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 47 55.78 ID I2vuujjd 846 ただただ気持ち悪いだけだろ あんなのがいいなんてどうかしてんじゃないの 自由が丘でスイーツを食べる良さがわからないおとこの人って・・・ 33 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 51 00.21 ID I2vuujjd 31 しいて言えば白楽 憲法改正すべき47% 「現在のままでよい」38% ―賛成が反対を上回る―日経調査 66 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 53 20.73 ID I2vuujjd 61 抑止力()笑 チョーセンと同じ土俵の上になんて乗れるかよ 日本ってのはもっと崇高なの 処女なんかより離婚歴のある女性の方が魅力がある。極一部の変態男による処女崇拝は異常 871 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 08 59 37.94 ID I2vuujjd 868 十戒でにおいて不倫は罪だが援交は罪ではない 人の妻と不貞を働くものは神の裁きに遭う 憲法改正すべき47% 「現在のままでよい」38% ―賛成が反対を上回る―日経調査 70 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 09 00 40.49 ID I2vuujjd 69 ν速で (笑)よりもっと飽きれた感じを示す 処女なんかより離婚歴のある女性の方が魅力がある。極一部の変態男による処女崇拝は異常 879 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 09 03 40.67 ID I2vuujjd 876 そういう共同作業プロセスを経て結婚するからこそいいんじゃないか 遊びの場合は楽なほうでいいと思うけどね 883 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 09 04 41.21 ID I2vuujjd 881 地獄の業火で焼かれるがよい CDが売れない 893 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 09 11 07.68 ID I2vuujjd アルバムは韓国並みの1000円でいいだろ 3000円とか馬鹿げてる タイト「ゲーセン値上げするわ、100円→120円、300円→360円な。こっちも苦しいんすよ〜」 553 : コハコベ(関東・甲信越)[]:2009/05/03(日) 09 24 54.70 ID I2vuujjd バーチャファイターに 五百円玉入れたら 釣銭出てくる人生がいいと 婚活(笑)女をセフレにして飽きたら捨てたい 459 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 10 51 38.51 ID I2vuujjd GWだけど婚活女何してんだろうなー プチ旅行にでも行けば逢えるかな 隠していた生徒の戸籍名を教師が大声で呼ぶ 37 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 10 53 33.53 ID I2vuujjd みんな通名で通えよ 俺も今日から若松ジュリアン聡介って名乗るわ 山菜窃盗ババアに噛みついた正義感あふれるクマ、もうすぐ射殺へ。 1 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 11 02 26.87 ID I2vuujjd● ?-PLT(17002) ポイント特典 sssp //img.2ch.net/ico/kotatu.gif 1日午前、福井・越前町の山林で山菜採りをしていた女性(76)が クマに襲われ、足に大ケガをした。1日午前10時ごろ、越前町増谷の 山林で山菜採りをしていた高齢の夫婦が立ち止まって休んでいたところ、 突然現れたクマに襲われた。クマは体長約1メートル20センチで、 夫に頭をけられて逃げていった。妻は病院に運ばれたが、左太ももをかまれ、 50針を縫う全治2週間の大ケガ。 クマの行方はわかっておらず、猟友会が捕獲に乗り出す一方、町の職員が 近くの住民に注意を呼びかけている。 http //www.ntv.co.jp/news/134372.html 仁義なき農業「イモじゃイモじゃ。山梨に引き揚げじゃ」広能昌三が百姓に転進 1 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 11 25 27.54 ID I2vuujjd● ?-PLT(17002) ポイント特典 sssp //img.2ch.net/ico/kotatu.gif 「トラック野郎」から農家に転身−。俳優の菅原文太さん(75)=東京都在住=が 県内に農地を借り、農業を始めるための準備を進めている。土作りから始め、 将来的には農業生産法人の設立も視野に入れていて、北杜市が候補地の 1つに挙がっている。 菅原さんは映画「トラック野郎」や「仁義なき戦い」シリーズなどで主役を務めた ベテラン俳優。自給自足の生活の重要性を痛感し、全国で農業を始める場所を 探していたところ、「農業で最も大切なのはきれいな水。長い日照時間も含め、 市内の豊かな自然にひかれた」(菅原さん)と同市が候補地に挙がった。 菅原さんは数回、県内を訪れ、明野町の遊休農地などを視察した。 今後、拠点となる空き家と開墾する農地を決めた後、土作りから始める予定。 将来的には地元の農家と連携し、農業生産法人を立ち上げることも見据えている。 菅原さんは北杜市内で開かれた講演会で、「若い衆を連れて山梨で農業を 始めてみようと思っているので、よろしく」と県内で農業を始める考えを正式に“表明”。 講演では、がんを患った自身の経験や自分で野菜などを作って生活することの 重要性を語りながら、「『75歳になって百姓は無理』と言われているが、 やる気があれば必ずできる」と力強く語った。 2 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 11 25 53.85 ID I2vuujjd ?-PLT(17002) sssp //img.2ch.net/ico/kotatu.gif ソースは http //www.sannichi.co.jp/local/news/2009/05/03/15.html 東北の観光地大にぎわい 東北行こうぜ 6 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 11 54 29.66 ID I2vuujjd 行かない さらわれてマットの下敷きにされて殺されるかもしれない そうなってもまともな捜査行われないんだろ、怖いよ 仁義なき農業「イモじゃイモじゃ。山梨に引き揚げじゃ」広能昌三が百姓に転進 22 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 12 00 28.85 ID I2vuujjd こないに派手に踊りやがってw 高校生がバイクを蹴っただけなのに殺人未遂で逮捕する大人気ないお巡り 62 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 12 05 45.89 ID I2vuujjd 港北警察はおとついの夜も目の前を爆音で走る珍走をスルーしてました 取り締まりに行ってキックされるのが怖いんだろうね 【百姓宣言】菅原文太「若い衆を連れて山梨で農業やるんじゃ。ヨロシク!」 10 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 12 38 28.65 ID I2vuujjd ?-PLT(17002) sssp //img.2ch.net/ico/kotatu.gif 1 おどれが重複スレ立てよるからスレが伸びんの。 お互い間尺にあわん仕事をしたのう 。 【ご冥福速報】18歳同級生3人 旅館に車突っ込み、全員外に投げ出されて死亡 140 : プリムラ・オーリキュラ(アラバマ州)[sage]:2009/05/03(日) 13 54 40.92 ID I2vuujjd 1 重複は死ねよ 誘導 【茨城】旅館に車突っ込む、少年3人死亡 http //tsushima.2ch.net/test/read.cgi/news/1241319775/ 赤報隊の謎 1 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 13 59 00.99 ID I2vuujjd● ?-PLT(17002) ポイント特典 sssp //img.2ch.net/ico/kotatu.gif 兵庫県西宮市与古道町の朝日新聞阪神支局に散弾銃を持った 男が押し入り、記者2人が殺傷された事件から3日で22年を迎えた。 午前9時から支局1階に拝礼所が設けられ、山田知(さとる)・ 西宮市長や一般市民らが次々に訪れて、亡くなった小尻知博記者 (当時29)の冥福を祈った。拝礼所の受け付けは午後8時まで。 http //www.asahi.com/national/update/0503/TKY200905030043.html おまえは長男なんだから跡を継いで立派な政治家に、、、貧乏人の僻みでなれなくなっちゃうみたいだ。 1 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 14 05 40.49 ID I2vuujjd● ?-PLT(17002) ポイント特典 sssp //img.2ch.net/ico/kotatu.gif 世襲候補の非公認検討=自民・菅氏 自民党の菅義偉選対副委員長は3日午前、テレビ朝日の 討論番組に出演し、世襲候補の立候補制限の具体策について 「公認しないことは一つ(の選択肢)だ。(親などの) 選挙区を替えて出る場合は当然、権利がある」と述べ、 親などと同じ選挙区から出馬する世襲候補者は公認しない 方向で検討する考えを示した。 菅氏は世襲制限を次期衆院選のマニフェスト(政権公約)に 盛り込み、その次の衆院選から実施したい考え。 次期衆院選に出馬する小泉純一郎元首相の次男進次郎氏ら については「今のルールで(小選挙区)支部長を決定している」と 公認する理由を説明した。 http //www.jiji.com/jc/c?g=pol_30 k=2009050300065 33 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 14 25 40.61 ID I2vuujjd 政治家の息子でも東大- 国Iの人とかいるんだしねえ 何より職業選択の自由があるのにやりすぎ 【ご冥福速報】18歳同級生3人 旅館に車突っ込み、全員外に投げ出されて死亡 147 : プリムラ・オーリキュラ(アラバマ州)[sage]:2009/05/03(日) 14 26 44.65 ID I2vuujjd 142 自治厨うぜえ死ね ちょっと、ユニクロ行って来る 116 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 15 19 46.00 ID I2vuujjd ユニクロのネットショップは裾上げしてくれるからいいね 試着室での圧迫感でパニック起こす俺にとっては神 中国の高校生勉強しすぎワロタ それと、日本の朝食至上主義は異常 26 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 15 33 00.82 ID I2vuujjd 朝鮮人でも上の方のやつは死ぬ気で修能試験に向かって勉強してる うちの親父も20年前から「日本人は勉強しなさ杉」ってよく言ってた タバコにリラックス効果があったことが判明 しかしタバコに依存してるのは元々キチガイ気質が多い 66 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 15 36 53.60 ID I2vuujjd ほうほう >ニコチンの摂取と「挑発」されても「報復」しない傾向 嫌煙さんの容赦なさはこれが原因か(笑) 【脳死省】農水省職員2500人、「食の安全」研修に林野太郎マンなどふざけた名前で回答 研修やり直しへ 56 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 15 41 56.30 ID I2vuujjd 無記名アンケートなんだろ、これ いちいちチクっちゃうやつって何なの? 関係ない部署の人がおふざけしたからって問題ないじゃん 自称愛国者は理性的でない人が多い、という話 525 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 15 45 55.56 ID I2vuujjd 真に国を思うやつなら隣国といざこざ起こさずやってくのが良しと考えるはず 腐れウヨは何がしたいんだか判んないから国民から支持もされない 婚活(笑)女をセフレにして飽きたら捨てたい 473 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 18 32 20.32 ID I2vuujjd 暇だったんで婚活男のことぐぐってみた ・40代 ・田舎者でダサいやつ ・公務員大手以外に勤務 が多かったな 女頑張っても無駄じゃんwww おまえは長男なんだから跡を継いで立派な政治家に、、、貧乏人の僻みでなれなくなっちゃうみたいだ。 60 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 18 35 22.02 ID I2vuujjd やっぱ官僚の上がりが国会議員のほうがよかったんじゃないか へんてこな外郭団体つくられて高い金与えてるのは無駄だしね また横浜か 新型インフルの疑い 285 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 18 36 54.32 ID I2vuujjd 三鷹は横浜市民に対して賠償金払え カーリングの本橋麻里(22)「悔しい・・・」 163 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 18 39 13.21 ID I2vuujjd まーりんが更にデブって年食ったような感じのおばさんスナックとかによくいるよ 【マジキチ】福島瑞穂「自衛隊が 『どこでもドア』 を使って世界進出しようとしてるですぅ」 40 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 18 47 04.87 ID I2vuujjd お、ノーベル賞の益川先生も我が党の同士か。 もうすぐみずほさんが首相または重要閣僚かと思うとぞくぞくするぜ。 52 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 18 49 45.94 ID I2vuujjd 基地外とか言ってるけど政権交代したら連立に入って大臣取るからね 小沢がこのまま人気回復しなきゃ連立の首班だって大いにあるよ あんまりバカにしたこと言ってると大恥かくことになるよ 68 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 18 57 04.31 ID I2vuujjd らぶらぶみずほ 92 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 02 50.00 ID I2vuujjd あーあまーだネットウヨなんてやってんのいるのか 小泉に騙されても懲りずに亡国活動、やめてくんないかな 114 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 05 33.65 ID I2vuujjd 万人にわかりやすく喋ってんだよ 若いやつはいらいらするかもだけど年配の方には好評なんだから問題ない 138 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 10 08.61 ID I2vuujjd 131 自衛軍なんて書いてあるだけで虫唾が走るわボケ きもちわるー 203 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 38 56.36 ID I2vuujjd 192 かわゆすなぁ 215 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 43 19.04 ID I2vuujjd 頭がよくて美人で平和的な性格のみずほさんのどこが不満なんだよ 【速報】能登麻美子さん AVOCOMのブログ更新 22 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 50 02.19 ID I2vuujjd 枕した自分が許せなくて書いた文章に思える 53 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 53 47.25 ID I2vuujjd 実際問題として枕無しじゃ仕事取れないと思う 周りがやってんならなおさら、しかも三十路とくれば。。。 98 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 19 59 49.24 ID I2vuujjd 92 仕事とるために枕しました それは本意じゃなかったけど 仕事がとれたから結果オーライ 114 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 01 31.29 ID I2vuujjd 能登のおっぱいの大きさがわかる画像くれ 派遣切りに遭うようなバカ夫婦には憲法の素晴らしさが理解できない 1 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 16 08.47 ID I2vuujjd● ?-PLT(17002) ポイント特典 sssp //img.2ch.net/ico/kotatu.gif 不況の直撃を受け「派遣切り」にあった名古屋市近郊の男性(38)は 「憲法か…。おれたちには遠い存在だね」とつぶやいた。 男性は妻(36)と生後8カ月の長男の3人暮らし。派遣労働者として、 愛知県三河地方の自動車関連企業の工場に勤めていたが、昨年末に派遣切りに。 一家で寮を出た後、アパートで暮らし、失業保険などで食いつなぐ。 秋田県で建設関係の職人をしていたが、病気で体調が優れない妻のそばで 働ける職場を求めて3年ほど前、愛知県に。ライトの組み立ては、立ち仕事で 1日12時間働くと足裏がパンパンに腫れた。出産費用を稼ぐため、妻も 妊娠8カ月まで同じ工場で作業した。男性は休憩時間に休まず自分のノルマを 早く終わらせ、妻を手伝った。 時給1300円は魅力だったが、寮の家賃を払い、妻の実家に仕送りをすると いくらも残らなかった。長男誕生の喜びから3カ月。派遣会社から「来月から 仕事はない」と言われ、ぼうぜんとした。 「おれたちは、使い捨ての消耗品じゃない。派遣は二度とやりたくない」。 今は建設業で独立する道を探す。妻は「まじめに働いても生活保護を受給する より収入は少なかった。憲法の考え方はいいけれど、社会に生かされていない」と 感じる。 愛知県豊橋市の男性(37)も今年1月、派遣切りにあった一人だ。別の 自動車関連工場で1年半、部品加工を担当。長い1日が終わると握力が なくなり、クタクタに疲れて以前より20キロ以上やせた。 失業保険でやりくりして暮らし、同じ境遇の人の相談に乗ることもある。 努力しても派遣は会社から評価されない存在だと思う。「生存権がないがしろに される状況が横行している。憲法を学び直してみたい」と話す。 http //www.chunichi.co.jp/article/feature/koyou_houkai/list/200905/CK2009050302000187.html?ref=rank 【マジキチ】福島瑞穂「自衛隊が 『どこでもドア』 を使って世界進出しようとしてるですぅ」 264 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 19 30.61 ID I2vuujjd 259 嫌ってるのは+からの出張民だけだろ みずほさんはν速民から高い支持を得てるよ 派遣切りに遭うようなバカ夫婦には憲法の素晴らしさが理解できない 12 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 22 56.38 ID I2vuujjd 病気で体調が優れない妻がいるのにバイトで時給1300円のバイトで なぜか病気の妻もバイトしてガキまでこしらえ、更に妻の実家に仕送り、 身の程知らずも行き過ぎて常軌を逸してる。 さっさと日本人辞めてくれないかなって思いますよ。 【マジキチ】福島瑞穂「自衛隊が 『どこでもドア』 を使って世界進出しようとしてるですぅ」 295 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 44 12.50 ID I2vuujjd 288 羨ましいな。うちなんて民主党支持の御用組合なんだぜ。 選挙は民主党になんて入れないけどさ。 本能三昧イタリア紀行 161 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 46 00.34 ID I2vuujjd urlくれよ おっぱいカーリング これならヒットするし見に行く 11 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 47 35.36 ID I2vuujjd 重複 【速報】能登麻美子さん AVOCOMのブログ更新 218 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 48 48.47 ID I2vuujjd 213 肉まん顔が重苦しすぎる 236 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 20 57 53.42 ID I2vuujjd 228 肉まん肉まんぶっさいく また横浜か 新型インフルの疑い 378 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 03 53.28 ID I2vuujjd 新型インフル:40代女性が簡易検査で「A型陽性」 厚生労働省は3日、米サンフランシスコから帰国した東京都三鷹市に住む 40代の日本人女性について、横浜市から新型インフルエンザ感染が 疑われるとの届け出があったと発表した。簡易検査でA型インフルエンザ陽性と 判定された。横浜市衛生研究所がウイルスの遺伝子検査を実施し、詳しく調べている。 厚労省と横浜市によると、女性は4月22日から米国を旅行し、28日に帰国。 成田空港での機内検疫の際には症状はなかったが、今月1日にのどの痛み などが出た。横浜市の友人宅に滞在していた3日に37度台の熱が出て、 市内の感染症指定医療機関を受診したところ、インフルエンザ感染が分かり、 そのまま入院した。家族や友人は体調不良を訴えていないという。 http //mainichi.jp/select/science/news/20090504k0000m040058000c.html 三鷹女は横浜から出て行けよ 「自由になりたい」福島の社民党県連副代表が脱北求める 15 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 07 06.90 ID I2vuujjd 今の社民党は都市型政党だから田舎者の離脱なんて影響ないな むしろカッペ支持者が減ってくれたほうが政策も出しやすい 【速報】能登麻美子さん AVOCOMのブログ更新 266 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 08 07.27 ID I2vuujjd 264 ぶっさいくな画像貼るなよ、マッチポンプ野郎 286 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 14 12.80 ID I2vuujjd 272 きもちわるーーーーーーーーーー 戸松ってブサ過ぎて耐えられないや 300 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 17 10.30 ID I2vuujjd かわゆすなぁ、癒される http //userserve-ak.last.fm/serve/252/2601209.jpg 「ダサイ、モサイ」の象徴“シャツイン”が一転「イケてる」に 原宿で大流行 147 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 24 56.02 ID I2vuujjd あーおれも最近入れたりすることあるわ たぶんどっかのカッコいい兄ちゃんが入れてたの潜在的に記憶したっぽい ここ最近ちょっとイケてるんじゃないの パンパカパ〜ン♪ 北アルプスで女性が約800メートル滑落して死亡 53 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 32 37.03 ID I2vuujjd よっしゃーー 団塊どもにもっと山登り流行らせろよ あいつらの世代って山登り人気だったことあるからとっつきやすいだろ で、霧のなんとか岳やら雪山ハイキングやらで(ry 「雇用の基本は正社員!」「生きさせろ!」ラップ調の音楽を流しながら若者達がデモ メーデー 14 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 33 54.25 ID I2vuujjd ラップは日本語に合わない 朝鮮語はパッチムが決まるから合う したがってこれやってるのは在日 29 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 36 53.62 ID I2vuujjd 俺から言わせれば風呂無しトイレ共同のアパートに住んでないのに 金がないとか言ってるやつは甘え 【速報】能登麻美子さん AVOCOMのブログ更新 389 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 38 27.03 ID I2vuujjd 肉まんマジうぜえ 芸能界で頻繁に開催されるSEX乱交パーティー出身と思われるタレント 奥菜恵、井上和香等 205 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 43 50.92 ID I2vuujjd 俺が金持ちだったころ某ホテルのあるフロア貸し切ってやってたよ でかい部屋を顔見せに使ってカップル成立したら別部屋で鍵かけてな 人前で乱交したいやつなんて早々いませんって 「雇用の基本は正社員!」「生きさせろ!」ラップ調の音楽を流しながら若者達がデモ メーデー 64 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 47 16.22 ID I2vuujjd 58 食事3万とか貧乏人のくせにかけすぎ 工夫すれば1万で結構ゴージャスにいける アニメギガ、6月21日放送分に名塚佳織さんの出演が決定!! 25 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 51 33.98 ID I2vuujjd 1 全saku アニメスレはLR違反です 死んでいいんだよ 【速報】能登麻美子さん AVOCOMのブログ更新 470 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 21 53 19.19 ID I2vuujjd 453の一番下のやつ 2行目2列の写真みてチョン認定しないやつはいないってね まあいいんだよチョンでもなんでも俺はね また横浜か 新型インフルの疑い 459 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 22 24 01.15 ID I2vuujjd 三鷹のバカ女は横浜市民に謝罪しやがれ 【憲法の日】 朝日「介護苦で自殺した女優は政治のせい。生存権違反だ」 11 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 22 31 48.09 ID I2vuujjd 福祉ってもうちょい削ってよくない? 893とかDQNのおいしい餌にされてるの多そう 【すき屋】 残業代払え!vsおにぎり盗んだろ! 730 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 22 39 05.59 ID I2vuujjd 703 はいはい偽装請負だよそれは 脱税してそうな気がするから国税さん査察に入ってみるといいよ 「雇用の基本は正社員!」「生きさせろ!」ラップ調の音楽を流しながら若者達がデモ メーデー 177 : プリムラ・オーリキュラ(アラバマ州)[]:2009/05/03(日) 22 45 38.93 ID I2vuujjd 165 昔はタダ飯食らいの老人少なくてよかったですね 消費税もなかったし医療費は本人負担0円でいい時代だったと思います File 18 へ続く
https://w.atwiki.jp/gohongilab2/pages/95.html
tags url definition 疫病モデル(epidemic model) 新技術の技術成果やそこから期待される経済的便益に関する情報が不確実である場合、その技術の採用はその不確実性の程度に大きく依存することになる。その不確実性が取り除かれ、新技術採用から得られる経済的便益が明らかになるにしたがい、それを採用する主体が多くなっていく。 このアプローチの代表的なもの EMRogers200308、Mansfield1968industrial categorization effects history
https://w.atwiki.jp/sicpstudygroup/pages/90.html
SICP naga Exercise 5.7 (define expt-a (make-machine (continue n b val) (list (list = =) (list - -) (list * *)) (machine (assign continue (label expt-done)) expt-loop (test (op =) (reg n) (const 0)) (branch (label immediate-answer)) (save continue) (assign continue (label afterexpt)) (assign n (op -) (reg n) (const 1)) (goto (label expt-loop)) afterexpt (restore continue) (assign val (op *) (reg b) (reg val)) (goto (reg continue)) immediate-answer (assign val (const 1)) (goto (reg continue)) expt-done) )) (set-register-contents! expt-a b 2) (set-register-contents! expt-a n 5) (start expt-a) ;;gosh (get-register-contents expt-a val) ;;32 (define expt-b (make-machine (counter product n b) (list (list = =) (list - -) (list * *)) (machine (assign counter (reg n)) (assign product (const 1)) expt-loop (test (op =) (reg counter) (const 0)) (branch (label expt-done)) (assign counter (op -) (reg counter) (const 1)) (assign product (op *) (reg b) (reg product)) (goto (label expt-loop)) expt-done) )) (set-register-contents! expt-b b 2) (set-register-contents! expt-b n 6) (start expt-b) ;;gosh (get-register-contents expt-b product) ;;64 Exercise 5.8 (define ex5.8 (make-machine (a) (list ()) (start (goto (label here)) here (assign a (const 3)) (goto (label there)) here (assign a (const 4)) (goto (label there)) there) )) (start ex5.8) ;;gosh (get-register-contents ex5.8 a) ;;3 ;;; extract-labels で同じラベルがあるかどうかチェックする。 (define (extract-labels text receive) (if (null? text) (receive () ()) (extract-labels (cdr text) (lambda (insts labels) (let ((next-inst (car text))) (if (symbol? next-inst) (let ((p (assoc next-inst labels))) (if p (error "Duplicate label -- ASSEMBLE" next-inst) (receive insts (cons (make-label-entry next-inst insts) labels)))) (receive (cons (make-instruction next-inst) insts) labels))))))) ;;gosh (define ex5.8 ;; (make-machine ;; (a) ;; (list ()) ;; (start ;; (goto (label here)) ;; here ;; (assign a (const 3)) ;; (goto (label there)) ;; here ;; (assign a (const 4)) ;; (goto (label there)) ;; there) ;; )) ;;*** ERROR Duplicate label -- ASSEMBLE here Exercise 5.9 ;;; make-operation-exp で operand が label の時はエラーとする。 (define (make-operation-exp exp machine labels operation) (let ((op (lookup-prim (operation-exp-op exp) operation)) (aprocs (map (lambda (e) (if (label-exp? e) (error "Operations can be used only with registers and constants -- ASSEMBLE" exp) (make-primitive-exp e machine labels))) (operation-exp-operands exp)))) (lambda () (apply op (map (lambda (p) (p)) aprocs))))) (define ex5.9 (make-machine (a) (list (list + +)) (l (assign a (op +) (label l) (const 1)) ) )) ;;gosh (load "ex5_9") ;;*** ERROR Operations can be used only with registers and constants -- ASSEMBLE ((op +) (label l) (const 1)) Exercise 5.10 ;;; syntax って assembler の変更で対応できる範囲という事でいいのかな? ;;; という事で、 ;;; label にオフセット(省略可)を指定できるように syntax を変更する。 ;;; (label label-name ) - (label label-name offset ) ;;; ;;; offset が + の時は、label-name から求めた inst を進める。 ;;; - の時は2つのポインタを使い、controller-text の最初に ;;; 強制的に埋め込んだ label位置に ポインタを設定し、一方を ;;; -offset だけ進めた後、label-name から 求めた inst に先に ;;; 進めたポインタがたどり着くまで2つのポインタを進める。 (define (assemble controller-text machine) (set! contoller-text (cons **main** controller-text)) (extract-labels controller-text (lambda (insts labels) (update-insts! insts labels machine) insts))) (define (label-exp-label exp) (cdr exp)) ;label-exp-lable-expb (define (label-name label-expb) (car label-expb)) (define (label-offset label-expb) (cond ((null? (cdr label-expb)) 0) ((number? (cadr label-expb)) (cadr label-expb)) (else (error "Offset must be number -- LABEL-EXPB" label-expb)))) (define (lookup-label labels label-expb) (define (forward insts n) (if (= n 0) insts (if (null? (cdr insts)) (error "Out of range -- ASSEMLBE" label-expb) (forward (cdr insts) (- n 1))))) (define (forward2 insts lead target) (if (eq? lead target) insts (if (null? (cdr lead)) (error "Out of range -- ASSEMBLE" label-expb) (forward2 (cdr insts) (cdr lead) target)))) (let ((name (label-name label-expb)) (offset (label-offset label-expb)) (insts ())) (let ((val (assoc name labels))) (if val (set! insts (cdr val)) (error "Undefined label -- ASSEMBLE" name))) (if ( = offset 0) (forward insts offset) (let ((ip (cdr (assoc **main** labels)))) (forward2 ip (forward ip (* offset -1)) insts))))) ;; test program (define ex5.10 (make-machine (a continue) (list (list + +) (list display display) (list newline newline)) (ex5.10 (assign a (const 0)) (assign continue (label t1e)) (goto (label s)) t1e (assign a (const 0)) (assign continue (label t2e)) (goto (label s -1)) t2e (assign a (const 0)) (assign continue (label t3e)) (goto (label s 1)) t3e (goto (label ex5.10.done)) ; (assign a (op +) (reg a) (const 1)) s (assign a (op +) (reg a) (const 1)) (assign a (op +) (reg a) (const 1)) (perform (op display) (reg a)) (perform (op newline)) (goto (reg continue)) ; ex5.10.done) )) ;;gosh (start ex5.10) ;;2 ;;3 ;;1 ;;done Exercise 5.11 ;;; a ;;; afterfib-n-2 の直後の ;;; (assign n (reg val)) (restore val) ;;; を ;;; (restore n) ;;; としても同じ結果を得ることができる。 ;;; b と c ;;; stack の方法を stack-mode に保持する。 ;;; a オリジナル b レジスタチェック c レジスタ毎のスタック (define stack-mode a) ;;; register にスタックを設ける。 (define (make-register name) (let ((contents *unassigned*) (stack (make-stack))) (define (dispatch message) (cond ((eq? message get) contents) ((eq? message set) (lambda (value) (set! contents value))) ((eq? message pop) (stack pop)) ((eq? message push) (stack push)) ((eq? message initialize) (stack initialize)) (else error "Unknown request -- REGISTER" message))) dispatch)) ;;; make-new-machine のオペレーション定義 initialize-stack を変更 (list initialize-stack (cond ((eq? stack-mode c) (lambda () (for-each (lambda (regpair) ((cdr regpair) initialize)) register-table))) (else (lambda () (stack initialize))))) ;;; make-save の変更 (define (make-save inst machine stack pc labels) (let ((reg (get-register machine (stack-inst-reg-name inst)))) (lambda () (cond ((eq? stack-mode a) (push stack (get-contents reg))) ((eq? stack-mode b) (push stack (get-contents reg)) (push stack (stack-inst-reg-name inst))) ((eq? stack-mode c) (push reg (get-contents reg)))) (advance-pc pc)))) ;;; make-retore の変更 (define (make-restore inst machine stack pc labels) (let ((reg (get-register machine (stack-inst-reg-name inst)))) (lambda () (cond ((eq? stack-mode a) (set-contents! reg (pop stack))) ((eq? stack-mode b) (let ((reg-name (pop stack))) (if (equal? reg-name (stack-inst-reg-name inst)) (set-contents! reg (pop stack)) (error "Pop-value was saved from " reg-name inst)))) ((eq? stack-mode c) (set-contents! reg (pop reg)))) (advance-pc pc)))) ;;; b の test program (define ex5.11.b (make-machine (a b) (list (list display display) (list newline newline)) (ex5.11.b (assign a (const 11)) (save a) (restore a) (perform (op display) (reg a)) (perform (op newline)) (save a) (restore b) (perform (op display) (reg b)) (perform (op newline)) ) )) ;;gosh (start ex5.11.b) ;;11 ;;*** ERROR Pop-value was saved from a (restore b) ;;Stack Trace ;;; c の test program (define ex5.11.c (make-machine (a b) (list (list display display) (list newline newline)) (ex5.11.c (assign a (const 1)) (assign b (const 2)) (save a) (save b) (assign a (const 10)) (assign b (const 10)) (restore a) (restore b) (perform (op display) (reg a)) (perform (op newline)) (perform (op display) (reg b)) (perform (op newline)) ) )) ;;gosh (start ex5.11.c) ;;1 ;;2 Exercise 5.12 ;;; make-new-machine の dispatch に以下を追加 ((eq? message insts) the-instruction-sequence) ;;; コマンド追加 (define (static-analyze machine) (s-analyze (machine insts))) ;;; insts から重複のない instuction text listを得る。 (define (unique insts) (let ((uinstsl ())) (for-each (lambda (inst) (if (not (member (instruction-text inst) uinstsl)) (set! uinstsl (cons (instruction-text inst) uinstsl)))) insts) uinstsl)) (define (analyze-report-inst title keys) (display title) (newline) (for-each (lambda (key) (display " ") (display (car key)) (newline) (for-each (lambda (text) (display " ") (display text) (newline)) (rsort (cdr key)))) (rsort keys))) (define (analyze-report-reg title regs) (display title) (newline) (for-each (lambda (reg) (display " ") (display reg)) (rsort regs)) (newline)) ;;; リストをソートする。 (define (rsort items) (sort items (lambda (x y) (= (comp x y) -1)))) (define (comp x y) (cond ((and (null? x) (null? y)) 0) ((null? x) -1) ((null? y) 1) ((and (number? x) (number? y)) (compare x y)) ((number? x) -1) ((number? y) 1) ((and (string? x) (string? y)) (compare x y)) ((string? x) -1) ((string? y) 1) ((and (symbol? x) (symbol? y)) (compare (symbol- string x) (symbol- string y))) ((symbol? x) -1) ((symbol? y) 1) ((and (pair? x) (pair? y)) (let ((f (comp (car x) (car y)))) (if (= f 0) (comp (cdr x) (cdr y)) f))) (else 1) )) (define (s-analyze insts) (let ((analyze-1 ()) ; instructions (analyze-2 ()) ; registers refed by goto (analyze-3 ()) ; registers saved or restored (analyze-4 ())) ; assign instructions (for-each (lambda (text) (let ((insttype (assoc (car text) analyze-1))) (if (not insttype) (begin (set! insttype (cons (car text) ())) (set! analyze-1 (cons insttype analyze-1)))) (set-cdr! insttype (cons text (cdr insttype)))) (if (and (eq? (car text) goto) (register-exp? (goto-dest text))) (set! analyze-2 (cons (register-exp-reg (goto-dest text)) analyze-2))) (if (or (eq? (car text) save) (eq? (car text) restore)) (let ((reg (memq (stack-inst-reg-name text) analyze-3))) (if (not reg) (set! analyze-3 (cons (stack-inst-reg-name text) analyze-3))))) (if (eq? (car text) assign) (let ((reg (assoc (assign-reg-name text) analyze-4))) (if (not reg) (begin (set! reg (cons (assign-reg-name text) ())) (set! analyze-4 (cons reg analyze-4)))) (set-cdr! reg (cons text (cdr reg))))) ) (unique insts)) (analyze-report-inst ";;Instructions" analyze-1) (analyze-report-reg ";;Regs-refed-by-goto" analyze-2) (analyze-report-reg ";;Regs-refed-by-save-restore" analyze-3) (analyze-report-inst ";;Regs-source" analyze-4) )) ;; test program (define fib (make-machine (continue n val) (list (list ) (list - -) (list + +)) (machine (assign continue (label fib-done)) fib-loop (test (op ) (reg n) (const 2)) (branch (label immediate-answer)) ;; set up to compute Fib(n - 1) (save continue) (assign continue (label afterfib-n-1)) (save n) ; save old value of n (assign n (op -) (reg n) (const 1)); clobber n to n - 1 (goto (label fib-loop)) ; perform recursive call afterfib-n-1 ; upon return, val contains Fib(n - 1) (restore n) (restore continue) ;; set up to compute Fib(n - 2) (assign n (op -) (reg n) (const 2)) (save continue) (assign continue (label afterfib-n-2)) (save val) ; save Fib(n - 1) (goto (label fib-loop)) afterfib-n-2 ; upon return, val contains Fib(n - 2) (assign n (reg val)) ; n now contains Fib(n - 2) (restore val) ; val now contains Fib(n - 1) (restore continue) (assign val ; Fib(n - 1) + Fib(n - 2) (op +) (reg val) (reg n)) (goto (reg continue)) ; return to caller, answer is in val immediate-answer (assign val (reg n)) ; base case Fib(n) = n (goto (reg continue)) fib-done) )) ;;gosh (static-analyze fib) ;;;;Instructions ;; assign ;; (assign continue (label afterfib-n-1)) ;; (assign continue (label afterfib-n-2)) ;; (assign continue (label fib-done)) ;; (assign n (op -) (reg n) (const 1)) ;; (assign n (op -) (reg n) (const 2)) ;; (assign n (reg val)) ;; (assign val (op +) (reg val) (reg n)) ;; (assign val (reg n)) ;; branch ;; (branch (label immediate-answer)) ;; goto ;; (goto (label fib-loop)) ;; (goto (reg continue)) ;; restore ;; (restore continue) ;; (restore n) ;; (restore val) ;; save ;; (save continue) ;; (save n) ;; (save val) ;; test ;; (test (op ) (reg n) (const 2)) ;;;;Regs-refed-by-goto ;; continue ;;;;Regs-refed-by-save-restore ;; continue n val ;;;;Regs-source ;; continue ;; (assign continue (label afterfib-n-1)) ;; (assign continue (label afterfib-n-2)) ;; (assign continue (label fib-done)) ;; n ;; (assign n (op -) (reg n) (const 1)) ;; (assign n (op -) (reg n) (const 2)) ;; (assign n (reg val)) ;; val ;; (assign val (op +) (reg val) (reg n)) ;; (assign val (reg n)) Exercise 5.13 ;;; make-new-machine の内部定義手続き lookup-register を register ;;; が見つからなかったら作るよう変更する。 (define (lookup-register name) (let ((val (assoc name register-table))) (if val (cadr val) (begin (allocate-register name) (lookup-register name))))) ;; test program (define expt-b (make-machine () (list (list = =) (list - -) (list * *)) (machine (assign counter (reg n)) (assign product (const 1)) expt-loop (test (op =) (reg counter) (const 0)) (branch (label expt-done)) (assign counter (op -) (reg counter) (const 1)) (assign product (op *) (reg b) (reg product)) (goto (label expt-loop)) expt-done) )) (set-register-contents! expt-b b 2) (set-register-contents! expt-b n 6) ;;gosh (start expt-b) ;;done ;;gosh (get-register-contents expt-b product) ;;64 Exercise 5.14 (define n! (make-machine (continue n val) (list (list = =) (list - -) (list * *)) (machine (assign continue (label fact-done)) ; set up final return address fact-loop (test (op =) (reg n) (const 1)) (branch (label base-case)) ;; Set up for the recursive call by saving n and continue. ;; Set up continue so that the computation will continue ;; at after-fact when the subroutine returns. (save continue) (save n) (assign n (op -) (reg n) (const 1)) (assign continue (label after-fact)) (goto (label fact-loop)) after-fact (restore n) (restore continue) (assign val (op *) (reg n) (reg val)) ; val now contains n(n - 1)! (goto (reg continue)) ; return to caller base-case (assign val (const 1)) ; base case 1! = 1 (goto (reg continue)) ; return to caller fact-done) )) (define (ex5.14 num) (define (iter c) (if ( c num) done (begin ((n! stack) initialize) (set-register-contents! n! n c) (start n!) (format #t "n ~2d n! ~8d" c (get-register-contents n! val)) (display " ") ((n! stack) print-statistics) (iter (+ c 1))))) (iter 1)) ;;gosh (ex5.14 10) ;;n 1 n! 1 (total-pushes = 0 maximum-depth = 0) ;;n 2 n! 2 (total-pushes = 2 maximum-depth = 2) ;;n 3 n! 6 (total-pushes = 4 maximum-depth = 4) ;;n 4 n! 24 (total-pushes = 6 maximum-depth = 6) ;;n 5 n! 120 (total-pushes = 8 maximum-depth = 8) ;;n 6 n! 720 (total-pushes = 10 maximum-depth = 10) ;;n 7 n! 5040 (total-pushes = 12 maximum-depth = 12) ;;n 8 n! 40320 (total-pushes = 14 maximum-depth = 14) ;;n 9 n! 362880 (total-pushes = 16 maximum-depth = 16) ;;n 10 n! 3628800 (total-pushes = 18 maximum-depth = 18) ;;done Exercise 5.15 ;;; make-new-machine に追加 ;;ローカル変数追加 (instruction-counter 0) ;;内部定義手続き execute の末尾再帰の前に追加 (set! instruction-counter (+ instruction-counter 1)) ;;内部定義手続き追加 (define (inst-count) (let ((cnt instruction-counter)) (set! instruction-counter 0) cnt)) ;;メッセージ受付追加 ((eq? message instruction-count) (inst-count)) ;;; test program (define icnt (make-machine (n) (list (list = =) (list - -)) (machine loop (test (op =) (reg n) (const 1)) (branch (label loop-end)) (assign n (op -) (reg n) (const 1)) (goto (label loop)) loop-end) )) (define (ex5.15 num) (define (iter c) (if ( c num) done (begin (set-register-contents! icnt n c) (start icnt) (format #t "n ~d instruction-count ~d~%" c (icnt instruction-count)) (iter (+ c 1))))) (iter 1)) ;;gosh (ex5.15 5) ;;n 1 instruction-count 2 ;;n 2 instruction-count 6 ;;n 3 instruction-count 10 ;;n 4 instruction-count 14 ;;n 5 instruction-count 18 ;;done Exercise 5.16 ;;; (trace machine on/ off) ;;; make-new-machine に追加 ;;ローカル変数追加 (trace off) ;;内部定義手続き execute の instruction の実行の前に追加 (if (eq? trace on) (trace-out (car insts))) ;;メッセージ受付追加 ((eq? message trace) (lambda (mode) (set! trace mode))) ;;; コマンドとトレース出力追加 (define (trace machine mode) (if (or (eq? mode on) (eq? mode off)) ((machine trace) mode) (else (error "Mode must be on/ off" mode)))) (define (trace-out inst) (format #t "trace ~s~%" (instruction-text inst))) ;;; test program (define icnt (make-machine (n) (list (list = =) (list - -)) (loop (test (op =) (reg n) (const 1)) (branch (label loop-end)) (assign n (op -) (reg n) (const 1)) (goto (label loop)) loop-end) )) (define (ex5.16) (set-register-contents! icnt n 1) (start icnt) (format #t "n 1 instruction-count ~d~%" (icnt instruction-count)) ; (trace icnt on) (set-register-contents! icnt n 2) (start icnt) (format #t "n 2 instruction-count ~d~%" (icnt instruction-count)) ; (trace icnt off) (set-register-contents! icnt n 3) (start icnt) (format #t "n 3 instruction-count ~d~%" (icnt instruction-count)) ) ;;gosh (ex5.16) ;;n 1 instruction-count 2 ;;trace (test (op =) (reg n) (const 1)) ;;trace (branch (label loop-end)) ;;trace (assign n (op -) (reg n) (const 1)) ;;trace (goto (label loop)) ;;trace (test (op =) (reg n) (const 1)) ;;trace (branch (label loop-end)) ;;n 2 instruction-count 6 ;;n 3 instruction-count 10 ;;# undef Exercise 5.17 ;;; label 出力のため inst に label 情報を含める。 ;;; inst を ((text . proc) label-name1 ...) の形式にし、、 ;;; make-instruction, instruction-text, instruction-execution-proc, ;;; set-instruction-execution-proc!, make-label-entry を変更, ;;; instruction-labels を追加する。 (define (make-instruction text) (cons (cons text ()) ())) (define (instruction-text inst) (caar inst)) (define (instruction-execution-proc inst) (cdar inst)) (define (instruction-labels inst) (cdr inst)) (define (set-instruction-execution-proc! inst proc) (set-cdr! (car inst) proc)) (define (make-label-entry label-name insts) (let ((lentry (cons label-name insts))) (if (and (not (null? insts)) (not (eq? label-name **main**))) (set-cdr! (car insts) (cons label-name (instruction-labels (car insts))))) lentry)) ;;; 5.16 で作成した trace-out を変更する。 (define (trace-out inst) (if (not (null? (instruction-labels inst))) (for-each (lambda (x) (format #t "trace ~s~%" x)) (instruction-labels inst))) (format #t "trace ~s~%" (instruction-text inst))) ;;; test program (define expt-a (make-machine (continue n b val) (list (list = =) (list - -) (list * *)) (machine (assign continue (label expt-done)) expt-loop (test (op =) (reg n) (const 0)) (branch (label immediate-answer)) (save continue) (assign continue (label afterexpt)) (assign n (op -) (reg n) (const 1)) (goto (label expt-loop)) afterexpt (restore continue) (assign val (op *) (reg b) (reg val)) (goto (reg continue)) immediate-answer (assign val (const 1)) (goto (reg continue)) expt-done) )) (trace expt-a on) (set-register-contents! expt-a b 2) (set-register-contents! expt-a n 2) ;;gosh (start expt-a) ;;trace machine ;;trace (assign continue (label expt-done)) ;;trace expt-loop ;;trace (test (op =) (reg n) (const 0)) ;;trace (branch (label immediate-answer)) ;;trace (save continue) ;;trace (assign continue (label afterexpt)) ;;trace (assign n (op -) (reg n) (const 1)) ;;trace (goto (label expt-loop)) ;;trace expt-loop ;;trace (test (op =) (reg n) (const 0)) ;;trace (branch (label immediate-answer)) ;;trace (save continue) ;;trace (assign continue (label afterexpt)) ;;trace (assign n (op -) (reg n) (const 1)) ;;trace (goto (label expt-loop)) ;;trace expt-loop ;;trace (test (op =) (reg n) (const 0)) ;;trace (branch (label immediate-answer)) ;;trace immediate-answer ;;trace (assign val (const 1)) ;;trace (goto (reg continue)) ;;trace afterexpt ;;trace (restore continue) ;;trace (assign val (op *) (reg b) (reg val)) ;;trace (goto (reg continue)) ;;trace afterexpt ;;trace (restore continue) ;;trace (assign val (op *) (reg b) (reg val)) ;;trace (goto (reg continue)) ;;done Exercise 5.18 ;;; (register-trace machine regisetr-name on/ off) ;;; make-register の引数 name はこのために用意されていたのか? ;;; make-register 変更 (define (make-register name) (let ((contents *unassigned*) (stack (make-stack)) (trace off)) (define (dispatch message) (cond ((eq? message get) contents) ((eq? message set) (lambda (value) (if (eq? trace on) (format #t "reg [~s] ~s- ~s~%" name contents value)) (set! contents value))) ((eq? message pop) (stack pop)) ((eq? message push) (stack push)) ((eq? message initialize) (stack initialize)) ((eq? message trace) (lambda (mode) (set! trace mode))) (else error "Unknown request -- REGISTER" message))) dispatch)) ;;; 新規 (define (set-register-trace-mode! register mode) (if (or (eq? mode on) (eq? mode off)) ((register trace) mode) (else (error "Mode must be on/ off" mode)))) (define (register-trace machine register-name mode) (set-register-trace-mode! (get-register machine register-name) mode)) ;;; test program (define expt-a (make-machine (continue n b val) (list (list = =) (list - -) (list * *)) (machine (assign continue (label expt-done)) expt-loop (test (op =) (reg n) (const 0)) (branch (label immediate-answer)) (save continue) (assign continue (label afterexpt)) (assign n (op -) (reg n) (const 1)) (goto (label expt-loop)) afterexpt (restore continue) (assign val (op *) (reg b) (reg val)) (goto (reg continue)) immediate-answer (assign val (const 1)) (goto (reg continue)) expt-done) )) (set-register-contents! expt-a b 2) (set-register-contents! expt-a n 2) ;;gosh (register-trace expt-a val on) ;;on ;;gosh (register-trace expt-a n on) ;;on ;;gosh (start expt-a) ;;reg [n] 2- 1 ;;reg [n] 1- 0 ;;reg [val] *unassigned*- 1 ;;reg [val] 1- 2 ;;reg [val] 2- 4 ;;done ;;gosh (register-trace expt-a n off) ;;off ;;gosh (set-register-contents! expt-a n 2) ;;done ;;gosh (start expt-a) ;;reg [val] 4- 1 ;;reg [val] 1- 2 ;;reg [val] 2- 4 ;;done Exercise 5.19 ;;; n の解釈を、問題で指定されている方法とは変えて、ブレークポイントは ;;; n番目のインストラクションを実行した後に(内部的には n+1 番目の ;;; インストラクションを実行する前に)働くようにする。 ;;; 従って、label直後のインストラクションを実行する前にブレークポイント ;;; を働かせるためには、 ;;; (set-breakpoint machine label ) ;;; とする。 ;;; label n は ex5.10 の形式を使用する。 ;;; inst は ex5.17 の((text . proc) label-name1 ...) の形式を使用する。 ;;; breakpointの設定は、上記の proc を breakpoint 処理を行う手続き(make-bp ;;; が返す手続き)に、トレースが出力されないよう text を breakに変更する。 ;;; make-new-machine の内部手続き execute を instruction から break が返ると ;;; loop が終了するよう変更する。 (define (execute) (let ((insts (get-contents pc))) (if (null? insts) done (begin (if (eq? trace on) (trace-out (car insts))) (if (not (eq? make-bp ((instruction-execution-proc (car insts))))) (begin (set! instruction-counter (+ instruction-counter 1)) (execute)) ))))) ;;; make-new-machine の message に proceed 用を追加する。 ((eq? message execute) (execute)) ;;; inst 変更用の手続きを追加する。 (define (set-instruction-text! inst text) (set-car! (car inst) text)) ;;; breakpoint が設定されている時はトレースを抑制する。 (define (trace-out inst) (if (not (eq? (instruction-text inst) break)) (begin (if (not (null? (instruction-labels inst))) (for-each (lambda (x) (format #t "trace ~s~%" x)) (instruction-labels inst))) (format #t "trace ~s~%" (instruction-text inst))))) ;;; 設定されている breakpoint を (inst1 inst2 ...) の形で保持 (define breakpoint-list ()) ;;; breakpoint 設定 (define (set-breakpoint machine . label-exp) (let ((tis (machine insts)) (name (label-name label-exp)) (offset (label-offset label-exp))) (let ((insts (lookup-label-tis tis name offset))) (let ((val (memq (car insts) breakpoint-list))) (if (not val) (begin (make-bp (car insts) name offset) (set! breakpoint-list (cons (car insts) breakpoint-list)) (instruction-text (car insts))) (warn "already set breakpoint " label-exp)) )))) ;;; breakpoint 停止後の再開。再開instructionの変更は未実装。 (define (proceed-machine machine . label-exp) (if (eq? label-exp ()) (let ((insts (get-register-contents machine pc))) (let ((val (memq (car insts) breakpoint-list))) (if val (begin ((instruction-execution-proc (car insts)) proceed) (machine execute) ) (error "Internal error -- PROCEED")))) (begin ) )) ;;; breakpoint 解除 (define (cancel-breakpoint machine . label-exp) (if (eq? label-exp ()) (begin ;all (for-each (lambda (inst) (if (not (eq? inst ())) ((instruction-execution-proc inst) cancel))) breakpoint-list) (set! breakpoint-list ()) done) (begin ;the (let ((tis (machine insts)) (name (label-name label-exp)) (offset (label-offset label-exp))) (let ((insts (lookup-label-tis tis name offset))) (let ((val (memq (car insts) breakpoint-list))) (if val (begin ((instruction-execution-proc (car isnts)) cancel) (set-car! val ()) ok) (warn "not set breakpoint " label-exp)) )))))) ;;; breakpoint (define (make-bp inst label offset) (let ((proc (instruction-execution-proc inst)) ; save proc (text (instruction-text inst)) ; save text (flag break)) ; break on (set-instruction-text! inst break) ; trace抑制 (set-instruction-execution-proc! inst (lambda arg (if (null? arg) ;; run-time (cond ((eq? flag break) (format #t "break! ~s ~s~%" label offset) make-bp) ((eq? flag proceed) (set-instruction-text! inst break) (set! flag break) (proc)) (else (error "Undefined Breakflag " flag))) ;; command (cond ((eq? (car arg) proceed) (set-instruction-text! inst text) (set! flag proceed)) ((eq? (car arg) cancel) (set-instruction-execution-proc! inst proc)) (else (error "Undefined Breakflag " arg)))))))) ;;; ラベルとオフセットから insts を得る。 (define (lookup-label-tis tis name offset) (define (forward insts n) (if (= n 0) insts (if (null? (cdr insts)) (error "Out of range -- BREAKPOINT" (list name offset)) (forward (cdr insts) (- n 1))))) (define (forward2 insts lead target) (if (eq? lead target) insts (if (null? (cdr lead)) (error "Out of range -- BREAKPOINT" (list name offset)) (forward2 (cdr insts) (cdr lead) target)))) (let ((insts (find-tail (lambda (inst) (and (not (null? (instruction-labels inst))) (memq name (instruction-labels inst)))) tis))) (if (not insts) (error "Undefined label -- BREAKPOINT" name)) (if ( = offset 0) (forward insts offset) (forward2 tis (forward tis (* offset -1)) insts)))) ;;; test program (define ex5.19 (make-machine (continue) (list (list format format)) (machine (assign continue (label t1e)) (goto (label s -3)) t1e (assign continue (label t2e)) (goto (label s -1)) t2e (assign continue (label t3e)) (goto (label s 1)) t3e (goto (label ex5.19.done)) ;; (perform (op format) (const #t) (const "stop s -2~%")) (goto (reg continue)) (perform (op format) (const #t) (const "stop s~%")) s (goto (reg continue)) (perform (op format) (const #t) (const "stop s 2~%")) (goto (reg continue)) ;; ex5.19.done) )) ;;gosh (bp! s -2) ; (set-breakpoint machine label n ) の短縮形 ;;break ;;gosh (bp! s) ;;break ;;gosh (bp! s 2) ;;break ;;gosh (start ex5.19) ;;stop s -2 ;;break! s -2 ;;gosh (go) ; (proceed-machine machine ) の短縮形 ;;stop s ;;break! s 0 ;;gosh (go) ;;stop s 2 ;;break! s 2 ;;gosh (cbp!) ; (cancel-all-breakpoints machine ) の短縮形 ;;done ;;gosh (start ex5.19) ;;stop s -2 ;;stop s ;;stop s 2 ;;done
https://w.atwiki.jp/lambda/pages/2.html
MENU トップページ プラグイン紹介 歩行関連 カメラポイントを意識した歩行の検討 倒立二重振子軌道での歩行 受動関節の実験 ラムダの悪路歩行の検討 制御 冗長関節の制御方法の検討 CPGの導入検討 Linux関連 beagleboard-xMの立ち上げ Pico-ITXを使ったラムダ用CPUの構築 Debian-Linux カーネル再構築 Debian-Linux 各種設定 Debian-Linux UVCインストール その他 開発カルテ メモスペース Cygwinのインストール~SEMB1200Aの開発環境インストール xyzzyのインストール メニュー LINK ラムダロボット研究所 @wiki @wikiご利用ガイド 用途別のオススメ機能紹介 @wikiの設定/管理 ここを編集