freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

機(jī)床數(shù)控課設(shè)-插補(bǔ)原理及流程圖設(shè)計-wenkub

2023-06-14 17:46:16 本頁面
 

【正文】 :0511105 姓名: 指導(dǎo)教師: 時間: 2021 年 1 月 地點(diǎn):明故宮校區(qū)計算中心 目 錄 一、簡要說明 3 二、設(shè)計目的和 任 務(wù) 3 三、設(shè)計要求 3 四 .插補(bǔ)原理及流程圖設(shè)計 4 五 .變量說明 6 六.程序界面及運(yùn)行截圖 6 七 . 源程序代碼 7 八參考文獻(xiàn) 18 一、簡要說明 插補(bǔ) ( Interpolation) 在數(shù)控機(jī)床中,刀具不能嚴(yán)格地按照要求加工的曲線 運(yùn)動,只能用折線軌跡逼近所要加工的曲線。 插補(bǔ)計算就是數(shù)控裝置根據(jù)輸入的基本數(shù)據(jù),通過計算,把工件輪廓的形狀描述出來,邊計算邊根據(jù)計算結(jié)果向各 坐標(biāo)發(fā)出進(jìn)給脈沖,對應(yīng)每個脈沖,機(jī)床在響應(yīng)的坐標(biāo)方向上移動一個脈沖當(dāng)量的距離,從而將工件加工出所需要輪廓的形狀。 DA14—— DDA 法插補(bǔ)第 14 象限順圓弧 ( 1) 了解連續(xù)軌跡控制數(shù)控系統(tǒng)的組成原理。 四:插補(bǔ)原理及流程圖設(shè)計: 逐點(diǎn)比較法直線插補(bǔ)原理圖: DDA 法圓弧插補(bǔ)原理: (同理在 14 象限) 2. 流程圖設(shè) 五: 變量說明 程序界面控件設(shè)置以及相關(guān)變量說明: 控件名 對應(yīng)變量 相關(guān)說明 寄存器位數(shù) Register 寄存器位數(shù) 半徑 Radius 圓弧半徑 步長 Steplength 步長 X X0 起點(diǎn)橫坐標(biāo) Y Y0 起 點(diǎn)縱坐標(biāo) X X1 終點(diǎn)橫坐標(biāo) Y Y1 終點(diǎn)縱坐標(biāo) 連續(xù)插補(bǔ) succession “連續(xù)插補(bǔ)” 單步插補(bǔ) step “單步插補(bǔ)” 直線 line 直線插補(bǔ)選擇 圓弧 circle 圓弧插補(bǔ)選擇 六.程序界面及運(yùn)行截圖 1. 直 線 連 續(xù) 插 補(bǔ) : 2. 直 線 單 步 插 補(bǔ) : 弧 連 續(xù) 插 補(bǔ) : 4. 圓 弧 單 步 插 補(bǔ) : 七.程序代碼節(jié) 選 直線 Dim x0, y0, x1, y1, L, xe, ye As Single Dim n As Integer x0 = Val() 39。*******步長 If L = 0 Then L = 1 = L End If If L 0 Then L = Abs(L) = L End If xe = x1 x0 ye = y1 y0 n = CInt(Abs(xe) / L) + CInt(Abs(ye) / L) 39。*************Y負(fù)向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n j1 = j L (x0, j + y0)(x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a End If flag1 = 1 End If If ye = 0 Then 39。*********************** 1象限 i = 0 j = 0 i1 = 0 j1 = 0 f = 0 For m = 1 To n Step 1 If f = 0 Then i1 = i + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f Abs(ye) ElseIf f 0 Then j1 = j + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 j = j1 f = f + Abs(xe) End If Next m ElseIf xe 0 And ye 0 Then 39。****************畫直線 (x0, y0)(x1, y1), RGB(0, 0, 255) End If End Sub Private Sub Command2_Click() 39。*************Y正向 i = 0 j = 0 i1 = 0 j1 = 0 If count = n Then For a = 1 To count j1 = j + L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) j = j1 Next a Else: count = 0 End If ElseIf ye 0 Then 39。*************x負(fù)向 i = 0 j = 0 i1 = 0 j1 = 0 If count = n Then For a
點(diǎn)擊復(fù)制文檔內(nèi)容
畢業(yè)設(shè)計相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1