3種內(nèi)擺線(xiàn)軌跡方程20140527_第1頁(yè)
已閱讀1頁(yè)，還剩5頁(yè)未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明：本文檔由用戶(hù)提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、DimijxytnAsIntegerFunctionPi(NumAsInteger)AsDoublePi=Num3.1415926180EndFunctionPrivateSubComm1_Click()Picture1(0).ClsPicture1(1).ClsComm4.Caption=“C4n個(gè)花葉“DimaAsDoublex#y#r%n=Val(Text1.Text)Picture1(0).Scale(4060)(4060)Pi

2、cture1(1).Scale(4060)(4060)r1=Rnd16r=5Fa=Pi(0)ToPi(360)Step0.001r1=101248101214r2=2X11=(r1r2)Cos(a)r2Cos((r1r2)r2a)’‘圓的內(nèi)擺線(xiàn)方程r2r1=15為五邊形Y11=(r1r2)Sin(a)r2Sin((r1r2)r2a)X111=(r1r2)Cos(a)r2Cos((r1r2)r2a)Y111=(r1r2)Sin(a)r2S

3、in((r1r2)r2a)x0=23r(cCos(na))Cos(a)i200n=1時(shí)為c8為降落傘本方程為三角形’c漸漸變?yōu)?1或到130我要的一種箭頭三角形y0=12r(113Cos(na))Sin(a)d漸漸變?yōu)?11x00=23r(5Cos(na))Cos(a)i200n=1時(shí)為c8為降落傘本方程為三角形’c漸漸變?yōu)?1或到130我要的一種箭頭三角形y00=12r(d3Cos(na))Sin(a)d漸漸變?yōu)?11x000=23r

4、(cCos(na))Cos(a)i200n=1時(shí)為c8為降落傘本方程為三角形’c漸漸變?yōu)?1或到130我要的一種箭頭三角形y000=12r(113Cos(na))Sin(a)d漸漸變?yōu)?11Picture1(1).PSet(X1Y1)vbBlue比紅綠藍(lán)多2個(gè)角邊Picture1(1).PSet(X1120Y1140)vbGreen圓的內(nèi)擺線(xiàn)方程Picture1(1).PSet(X11120Y11140)vbRed花Picture1(0

5、).PSet(X11120Y11140)vbGreen花Picture1(0).PSet(X1120Y1140)vbRedNextaEndSubPrivateSubComm2_Click()Picture1(0).ClsPicture1(1).ClsComm4.Caption=“C4n個(gè)花葉“DimaAsDoublex#y#r%n=Val(Text1.Text)c=8Rndd=11Rndr=8Picture1(0).Scale(4060

6、)(4060)r=4Fn=0To8Fa=Pi(0)ToPi(360)Step0.001x=r(5Cos(na))Cos(a)n50y=r(5Cos(na))Sin(a)Picture1(0).PSet(xy)QBCol(Rnd15)Picture1(0).PSet(x100ny)QBCol(Rnd15)Picture1(0).PSet(xy)QBCol(Rnd15)Picture1(0).PSet(xy50n)vbGreenPictur

7、e1(0).PSet(xy50n)vbGreenPicture1(0).PSet(x50ny50n)vbRedPicture1(0).PSet(x60ny50n)vbRedNextaNextnPicture1(1).ClsPicture1(0).ClsPicture1(0).Scale(300200)(300200)r=50n=Val(Text1.Text)d=Val(Text2.Text)d=8Rndc=8RndFa=Pi(0)ToP

8、i(360)Step0.0001x5=231(13Cos(na))Cos(a)13.123改變正負(fù)號(hào)y5=231(153Cos(na))Sin(a)5155311319不斷變化的三角形x55=231(13Cos(na))Cos(a)13.123改變正負(fù)號(hào)y55=231(153Cos(na))Sin(a)5155311319不斷變化的三角形x55=231(13Cos(na))Cos(a)13.123改變正負(fù)號(hào)y55=231(153Cos(

9、na))Sin(a)5155311319不斷變化的三角形r1=Rnd100r2=20x66=(r1r2)Cos(a)r2Cos((r1r2)r2a)r2r1=34是內(nèi)擺線(xiàn)y66=(r1r2)Sin(a)r2Sin((r1r2)r2a)x6=23(1Cos(na))Cos(a)13.123y6=23(153Cos(na))Sin(a)155311319x7=1(1Cos(na))Cos(a)y7=1(1Cos(na))Sin(a)n=1星

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論