版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領
文檔簡介
1、DimijxytnAsIntegerFunctionPi(NumAsInteger)AsDoublePi=Num3.1415926180EndFunctionPrivateSubComm1_Click()Picture1(0).ClsPicture1(1).ClsComm4.Caption=“C4n個花葉“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)’‘圓的內擺線方程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時為c8為降落傘本方程為三角形’c漸漸變?yōu)?1或到130我要的一種箭頭三角形y0=12r(113Cos(na))Sin(a)d漸漸變?yōu)?11x00=23r(5Cos(na))Cos(a)i200n=1時為c8為降落傘本方程為三角形’c漸漸變?yōu)?1或到130我要的一種箭頭三角形y00=12r(d3Cos(na))Sin(a)d漸漸變?yōu)?11x000=23r
4、(cCos(na))Cos(a)i200n=1時為c8為降落傘本方程為三角形’c漸漸變?yōu)?1或到130我要的一種箭頭三角形y000=12r(113Cos(na))Sin(a)d漸漸變?yōu)?11Picture1(1).PSet(X1Y1)vbBlue比紅綠藍多2個角邊Picture1(1).PSet(X1120Y1140)vbGreen圓的內擺線方程Picture1(1).PSet(X11120Y11140)vbRed花Picture1(0
5、).PSet(X11120Y11140)vbGreen花Picture1(0).PSet(X1120Y1140)vbRedNextaEndSubPrivateSubComm2_Click()Picture1(0).ClsPicture1(1).ClsComm4.Caption=“C4n個花葉“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改變正負號y5=231(153Cos(na))Sin(a)5155311319不斷變化的三角形x55=231(13Cos(na))Cos(a)13.123改變正負號y55=231(153Cos(na))Sin(a)5155311319不斷變化的三角形x55=231(13Cos(na))Cos(a)13.123改變正負號y55=231(153Cos(
9、na))Sin(a)5155311319不斷變化的三角形r1=Rnd100r2=20x66=(r1r2)Cos(a)r2Cos((r1r2)r2a)r2r1=34是內擺線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. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
評論
0/150
提交評論