



全文預(yù)覽已結(jié)束
下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
package import flash.display.Shape;import flash.display.Sprite;import flash.events.Event;/* * . * author Maxim Sprey */public class stick extends Sprite / Stick propertiesvar mass:Number = 6;/總質(zhì)量var len:Number = 3;/總長(zhǎng)度var div:Number = 50;var massDiv:Number = mass / div;/每一節(jié)的質(zhì)量var lenDiv:Number = len / div;/每一節(jié)的長(zhǎng)度0.06米 / Circle propertiesvar cX:Number = 300;var cY:Number = 200;var cR:Number = 50;/ World Characteristicsvar g:Number = 9.81;/重力加速度var pm:Number = 100; / Pixels/meter/像素相對(duì) 米的長(zhǎng)度比例總長(zhǎng)度為3米 有50節(jié) 那么每節(jié)相當(dāng)于1.5個(gè)像素var dt:Number = 1 / 60;/時(shí)間單位幀頻為60的畫 dt 相當(dāng)于一幀的時(shí)間 這是時(shí)間單位/var itr:uint = 3; / Number of rigid body iterations/ Program Characteristicsvar pX:Array = ;var pY:Array = ;var oX:Array = ;var oY:Array = ;var aX:Array = ;var aY:Array = ;var mS:Shape = new Shape();/每一個(gè)點(diǎn)的形狀 我在這里 只是當(dāng)他為一個(gè)空點(diǎn) 然后每2個(gè)點(diǎn)之間用直線連接public function stick():void /初始化 速度 加速度 位移for (var i:uint = 0; i = div; i+) / 初始化運(yùn)動(dòng)后坐標(biāo)pXi = 10 + (lenDiv * pm * i);pYi = 10;/初始化運(yùn)動(dòng)前的坐標(biāo)oXi = 10 + (lenDiv * pm * i);oYi = 10;/初始化加速度aXi = 0;aYi = 0;addChild(mS);addEventListener(Event.ENTER_FRAME, frame);public function frame(evt:Event):void /固定開始點(diǎn)pX0 =300 ;pY0 = 200;/最后一個(gè)點(diǎn)跟隨鼠標(biāo)運(yùn)動(dòng)pXpX.length - 1 = stage.mouseX;pYpY.length - 1 = stage.mouseY;/設(shè)置重力加速度accForces(); verlet();/判斷是否碰到圓 然后做什么處理/checkColl();for (var j:uint = 0; j = div-1;j+)satConstraints();/ Draw linemS.graphics.clear();mS.graphics.lineStyle(1, 0x000000, 2);mS.graphics.moveTo(0,0);mS.graphics.drawCircle(cX, cY, cR);mS.graphics.moveTo(0, 0);mS.graphics.moveTo(pX0, pY0);pX0 =300 ;pY0 = 200;pXpX.length - 1 = stage.mouseX;pYpY.length - 1 = stage.mouseY;/畫圓或者 矩形for (var i:uint = 0; i = div; i+) mS.graphics.lineTo(pXi, pYi);/mS.graphics.drawRect(pXi, pYi, 0,0);public function verlet():void for (var i:uint = 0; i = div; i+) var tempX:Number = pXi;pXi += (0.99*pXi - 0.99*oXi) + (aXi * pm * dt * dt);var tempY:Number = pYi;pYi += (0.99*pYi - 0.99*oYi) + (aYi * pm * dt * dt);oXi = tempX;oYi = tempY;public function accForces():void for (var i:uint = 1; i = div; i+) aYi = g;public function satConstraints():void for (var i:uint = 1; i = div; i+) var dx:Number = (pXi - pXi - 1) / pm;var dy:Number = (pYi - pYi - 1) / pm;var d:Number = Math.sqrt(dx * dx) + (dy * dy);var diff:Number = d - lenDiv;pXi -= (dx / d) * 0.5 *pm* diff;pYi -= (dy / d) * 0.5 *pm* diff;pXi - 1 += (dx / d) * 0.5 *pm* diff;pYi - 1 += (dy / d) * 0.5 *pm* diff;public function checkColl():void for (var i:uint = 0; i = div; i+) var dx:Number = pXi - cX;var dy:Number = pYi - cY;var r:Number =
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 廣西壯族自治區(qū)柳州市2025年七年級(jí)下學(xué)期語文期末試卷及答案
- 2025年中考?xì)v史單選與多選分類復(fù)習(xí)題集及答案(原創(chuàng))
- 醫(yī)學(xué)科研項(xiàng)目培訓(xùn)體系構(gòu)建
- 城市交通規(guī)劃案例研究重點(diǎn)基礎(chǔ)知識(shí)點(diǎn)
- 教師移動(dòng)端備課實(shí)施路徑
- 建筑施工資料員培訓(xùn)課件:提升工程檔案管理技能
- 《當(dāng)代企業(yè)創(chuàng)新策略》課件
- 輪崗培訓(xùn)工作匯報(bào)
- 醫(yī)學(xué)檢驗(yàn)重點(diǎn)??平ㄔO(shè)匯報(bào)
- 火化合伙協(xié)議書
- 家電店慶活動(dòng)方案范文
- 《特種設(shè)備無損檢測(cè)機(jī)構(gòu)檢測(cè)能力確認(rèn) 工作導(dǎo)則》
- 醫(yī)療糾紛鑒定委員會(huì)工作制度及職責(zé)
- 投標(biāo)項(xiàng)目售后服務(wù)方案
- 國(guó)土安全課件
- 第一講-17.1一元二次方程的概念
- 【MOOC】《電子技術(shù)實(shí)驗(yàn)》(北京科技大學(xué))中國(guó)大學(xué)MOOC慕課答案
- 《活塞式空壓機(jī)》課件
- 新三板、北京交易所簡(jiǎn)介及上市利弊分析
- 化學(xué)實(shí)驗(yàn)室5S管理
- 橋梁安全隱患排查
評(píng)論
0/150
提交評(píng)論