当前位置：文档库 › 块查找和块替换源码-CAD VBA

块查找和块替换源码-CAD VBA

块查找和块替换源码-----CAD VBA

主窗体设计

主窗体内代码

Option Explicit

Private Const BLOCKS_SELECTION = 1

Private Const BLOCKS_GROUP = 2

Private Const DEFAULT_ATTR_ROTATION = 0

Private Const DEFAULT_ATTR_VISIBILITY = True

Private Const DEFAULT_ATTR_XSCALE = 1

Private Const DEFAULT_ATTR_YSCALE = 1

Private Const DEFAULT_ATTR_ZSCALE = 1

Private Sub AddSorted(ListObject As Object, SItem As String)

' Add items to a ComboBox or Listbox and sort

Dim iCount As Long

If ListObject.ListCount = 0 Then ' If no items, just add

ListObject.AddItem SItem

GoTo FINISH

End If

' When we find an item that is higher in sort order, replace before

For iCount = 0 To (ListObject.ListCount - 1)

If StrComp(ListObject.List(iCount), SItem, vbTextCompare) = 1 Then ListObject.AddItem SItem, iCount

GoTo FINISH

End If

' No item was higher in sort order -- add to end

ListObject.AddItem SItem

FINISH:

End Sub

Private Sub btnCancel_Click()

Me.Hide

End Sub

Private Sub btnOK_Click()

Dim iCount

Dim ACADObject As AcadEntity

' Make sure user has selected an item

If optGroup.Value Then

For iCount = 0 To lstDestination.ListCount - 1

If lstDestination.Selected(iCount) Then

GoTo FOUNDSELECTION

End If

ElseIf optCurrentSelection.Value Then

For Each ACADObject In ThisDrawing.ActiveSelectionSet ' Loop through the SelectionSet collection

If ACADObject.ObjectName = "AcDbBlockReference" Then

GoTo FOUNDSELECTION

End If

MsgBox "You must first create an active selection set containing block references, or select a group of block references to replace.", vbExclamation

Exit Sub

FOUNDSELECTION:

' Make sure new vales are appropriate

If Not (CheckPreserveValues) Then

Exit Sub

End If

If optGroup.Value Then

ReplaceBlocks BLOCKS_GROUP, cboSource.Text

Refresh ' Refresh lists of Blocks and Block References ElseIf optCurrentSelection.Value Then

ReplaceBlocks BLOCKS_SELECTION, cboSource.Text

Refresh ' Refresh lists of Blocks and Block References End If

End Sub

Private Function CheckPreserveValues()

CheckPreserveValues = False

' Make sure rotation value is a valid number

If Not (chkRotation) Then

If Not (IsNumeric(txtRotation)) Then

MsgBox "The new rotation value must be numeric.", vbExclamation

txtRotation.SetFocus

GoTo FAIL

End If

' Make sure X scale value is a valid number

If Not (chkXScale) Then

If Not (IsNumeric(txtXScale)) Then

MsgBox "The new X Scale value must be numeric.", vbExclamation

txtXScale.SetFocus

GoTo FAIL

End If

' Make sure Y scale value is a valid number

If Not (chkYScale) Then

If Not (IsNumeric(txtYScale)) Then

MsgBox "The new Y Scale value must be numeric.", vbExclamation

txtYScale.SetFocus

GoTo FAIL

End If

' Make sure Z scale value is a valid number

If Not (chkZScale) Then

If Not (IsNumeric(txtZScale)) Then

MsgBox "The new Z Scale value must be numeric.", vbExclamation

txtZScale.SetFocus

GoTo FAIL

End If

CheckPreserveValues = True

FAIL:

Exit Function

End Function

Private Sub ReplaceBlocks(ByVal WhichBlocks As Integer, ByVal WithBlock As String) Dim iCount As Integer

Dim ACADObject As AcadEntity

Dim OldReferenceInformation As New Collection

Dim Reference As CBlockReference

Dim GroupsSelected As New Collection

Dim BlockRefName As String

Dim BlockGroupName As String

Dim InsertionPoint(0 To 2) As Double

Dim NewBlock As AcadBlockReference

On Error GoTo REPLACE_ERROR

Select Case WhichBlocks

Case BLOCKS_GROUP

' First get list of block reference groups to replace

For iCount = 0 To lstDestination.ListCount - 1

If lstDestination.Selected(iCount) Then

BlockGroupName = lstDestination.List(iCount)

GroupsSelected.Add BlockGroupName

End If

' Now find matching block references in modelspace

For Each ACADObject In ThisDrawing.ModelSpace ' Loop through the SelectionSet collection

If ACADObject.ObjectName = "AcDbBlockReference" Then

BlockRefName = https://www.wendangku.net/doc/ab15144949.html,

' Store information about the references we are about to replace

For iCount = 1 To GroupsSelected.Count

If GroupsSelected(iCount) = BlockRefName Then

Set Reference = New CBlockReference

StoreReferenceInfo Reference, ACADObject

OldReferenceInformation.Add Reference

Set Reference = Nothing

' Remove old object

ACADObject.Delete

End If

Case BLOCKS_SELECTION

' Get information for block references in active selection set and save

For Each ACADObject In ThisDrawing.ActiveSelectionSet ' Loop through the SelectionSet collection

If ACADObject.ObjectName = "AcDbBlockReference" Then

Set Reference = New CBlockReference

StoreReferenceInfo Reference, ACADObject

OldReferenceInformation.Add Reference

Set Reference = Nothing

' Remove old object

ACADObject.Delete

End If

End Select

' Add new block references and refresh drawing

For Each Reference In OldReferenceInformation

InsertionPoint(0) = Reference.InsertionPoint(0)

InsertionPoint(1) = Reference.InsertionPoint(1)

InsertionPoint(2) = Reference.InsertionPoint(2)

Set NewBlock = ThisDrawing.ModelSpace.InsertBlock(InsertionPoint, WithBlock, _

Reference.XScale, Reference.YScale, Reference.ZScale, Reference.Rotation)

NewBlock.Visible = Reference.IsVisible

ThisDrawing.Regen acAllViewports

Exit Sub

REPLACE_ERROR:

MsgBox "The following error has occurred trying to replace a block: " & Err.Description End Sub

Private Sub btnRefresh_Click()

Refresh ' Refresh lists of blocks and block references

End Sub

Private Sub Refresh()

Dim BlockList As Collection

Dim BlockReferencesList As Collection

On Error GoTo GENERAL_ERROR

' Get list of blocks

Set BlockReferencesList = GetBlockReferences()

Set BlockList = GetBlocks()

' Are there any blocks references to replace?

If BlockList Is Nothing Then

MsgBox "No Block References Were Found In The Current Drawing.", vbExclamation

SetControls False

Exit Sub

Else

SetControls True

End If

' Refresh both lists

RefreshList cboSource, BlockList

RefreshList lstDestination, BlockReferencesList

' Select first entry in blocklist

If cboSource.ListIndex = -1 Then

cboSource.ListIndex = 0

End If

Exit Sub

GENERAL_ERROR:

MsgBox "The following error has occurred trying to replace a block: " & Err.Description End

End Sub

Private Sub RefreshList(ByRef ListObject As Object, ByRef BlockList As Collection) Dim SelectedItems As New Collection

Dim iCount As Long

Dim RowText As String

Dim StoredSelection As String

' First, save selected items before we overwrite list

If TypeName(ListObject) = "ListBox" Then ' Save for Listboxes

For iCount = 0 To (ListObject.ListCount - 1)

If ListObject.Selected(iCount) Then

RowText = ListObject.List(iCount)

SelectedItems.Add RowText, RowText

End If

ElseIf TypeName(ListObject) = "ComboBox" Then ' Save for ComboBoxes RowText = ListObject.Text

SelectedItems.Add RowText, RowText

End If

' Add new block list to this control

ListObject.Clear ' First clear

For iCount = 1 To BlockList.Count

AddSorted ListObject, BlockList(iCount)

End Sub

Private Sub SetSelections(ByRef ListObject As Object, ByVal SelectedItems As Collection) Dim iCount As Long

Dim RowText As String

Dim StoredSelection As String

' Restore selections

If SelectedItems.Count > 0 Then

For iCount = 0 To (ListObject.ListCount - 1)

RowText = ListObject.List(iCount)

' This is a quick way to query the collection

On Error Resume Next

StoredSelection = ""

StoredSelection = SelectedItems(RowText)

On Error GoTo 0

' If we found the text for this row in our collection then reselect

If StoredSelection <> "" Then

If TypeName(ListObject) = "ListBox" Then ' Restore for ListBoxes

ListObject.Selected(iCount) = True

ElseIf TypeName(ListObject) = "ComboBox" Then ' Restore for ComboBoxes

ListObject.Text = StoredSelection

End If

End Sub

Private Sub SetControls(ByVal TurnedOn As Boolean)

' Turn all controls on or off

' Main buttons

btnOK.Enabled = TurnedOn

' Replace group

fraReplace.Enabled = TurnedOn

lblSource.Enabled = TurnedOn

lblDestination.Enabled = TurnedOn

lstDestination.Enabled = TurnedOn

cboSource.Enabled = TurnedOn

optGroup.Enabled = TurnedOn

optCurrentSelection.Enabled = TurnedOn

' Preserve group

fraAttributes.Enabled = TurnedOn

lblPreserve.Enabled = TurnedOn

lblValue.Enabled = TurnedOn

lblUnderline.Enabled = TurnedOn

optVisibilityOn.Enabled = TurnedOn

optVisibilityOff.Enabled = TurnedOn

txtRotation.Enabled = TurnedOn

txtXScale.Enabled = TurnedOn

txtYScale.Enabled = TurnedOn

txtZScale.Enabled = TurnedOn

chkRotation.Enabled = TurnedOn

chkXScale.Enabled = TurnedOn

chkYScale.Enabled = TurnedOn

chkZScale.Enabled = TurnedOn

chkVisibility.Enabled = TurnedOn

' Option group - This compensates for the fact that it doesn't look enabled/disabled If TurnedOn Then

SetControlGroupBox (optGroup.Value = True)

Else

SetControlGroupBox False

End If

End Sub

Private Function GetBlocks() As Collection

Dim BlockList As New Collection

Dim iCount As Long

Dim ACADObject As AcadBlock

' Get list of available blocks

For Each ACADObject In ThisDrawing.Blocks

If ACADObject.IsLayout = False Then

BlockList.Add https://www.wendangku.net/doc/ab15144949.html,, https://www.wendangku.net/doc/ab15144949.html,

End If

' Return list of blocks in this drawing

If BlockList.Count > 0 Then

Set GetBlocks = BlockList

Else

Set GetBlocks = Nothing

End If

End Function

Private Function GetBlockReferences() As Collection

Dim BlockList As New Collection

Dim iCount As Long

Dim ACADObject As AcadEntity

' Get list of available block references

For Each ACADObject In ThisDrawing.ModelSpace

If ACADObject.ObjectName = "AcDbBlockReference" Then

On Error Resume Next ' Simple way to avoid duplcates in collection

BlockList.Add https://www.wendangku.net/doc/ab15144949.html,, https://www.wendangku.net/doc/ab15144949.html,

On Error GoTo 0

End If

' Return list of block references in this drawing If BlockList.Count > 0 Then

Set GetBlockReferences = BlockList Else

Set GetBlockReferences = Nothing End If

End Function

Private Sub Label1_Click()

End Sub

Private Sub btnUndo_Click()

ThisDrawing.ModelSpace.undo

End Sub

Private Sub chkRotation_Change()

txtRotation.Enabled = Not (chkRotation)

End Sub

Private Sub chkVisibility_Change()

optVisibilityOn.Enabled = Not (chkVisibility)

optVisibilityOff.Enabled = Not (chkVisibility) End Sub

Private Sub chkXScale_Change()

txtXScale.Enabled = Not (chkXScale)

End Sub

Private Sub chkYScale_Change()

txtYScale.Enabled = Not (chkYScale)

End Sub

Private Sub chkZScale_Change()

txtZScale.Enabled = Not (chkZScale)

End Sub

Private Sub optCurrentSelection_Click()

SetControlGroupBox False

End Sub

Private Sub optGroup_Click()

SetControlGroupBox True

End Sub

Private Sub SetControlGroupBox(IsOn As Boolean)

lstDestination.Enabled = IsOn

' Make the control look enabled/disabled, since it doesn't automatically

If IsOn Then

lstDestination.ForeColor = RGB(0, 0, 0)

Else

lstDestination.ForeColor = RGB(150, 150, 150)

End If

End Sub

Private Sub UserForm_Initialize()

FillDefaultValues

Refresh ' Refresh lists of blocks and block references

End Sub

Private Sub FillDefaultValues()

txtRotation = DEFAULT_ATTR_ROTATION

optVisibilityOn.Value = DEFAULT_ATTR_VISIBILITY

txtXScale = DEFAULT_ATTR_XSCALE

txtYScale = DEFAULT_ATTR_YSCALE

txtZScale = DEFAULT_ATTR_ZSCALE

End Sub

Private Sub StoreReferenceInfo(Reference As CBlockReference, ACADObject As AcadEntity)

' Always save insertion point

Reference.InsertionPoint = ACADObject.InsertionPoint

' Save rotation?

If chkRotation Then

Reference.Rotation = ACADObject.Rotation

Else: Reference.Rotation = txtRotation

End If

' Save visibility

If chkVisibility Then

Reference.IsVisible = ACADObject.Visible

Else: Reference.IsVisible = optVisibilityOn

End If

' Save X scale

If chkXScale Then

Reference.XScale = ACADObject.XScaleFactor Else: Reference.XScale = txtXScale

End If

' Save Y scale

If chkYScale Then

Reference.YScale = ACADObject.YScaleFactor Else: Reference.YScale = txtYScale

End If

' Save Y scale

If chkZScale Then

Reference.ZScale = ACADObject.ZScaleFactor Else: Reference.ZScale = txtZScale

End If

End Sub

模块名及窗体名

CBlockReference类内的代码

Option Explicit

Public XScale As Double

Public YScale As Double

Public ZScale As Double

Public Rotation As Double

Public IsVisible As Boolean

Public InsertionPoint As Variant

浅析替代词

浅析替代词新建一中秦平高考中替代词是常考的语法项目，因此，我们对它应有个全面的了解。替代词包括it, one, ones, the one, the ones, that, those 等，其作用就是替代前面某一名词，以避免重复。做关于替代词题的关键所在是弄清楚替代词替代的是哪种名词，可数名词还是不可数名词？单数名词还是复数名词？表特指的名词还是表泛指的名词？下面就上述替代词结合例题来逐一分析。一. It ①用来替代上文中的同一个物体，请看下面例题： I bought a camera yesterday, and I like it very much. 这里的it 替代的是昨天买的camera，是同一个物体。 ②it作为替代词用在……like /love/hate it when……句型中，用来替代when ……例如： He loves it when she sings. 这个句子中it替代了when she sings, 句意为：他喜欢看她唱歌。[考例]①-----It’s a lovely day, isn’t it? ------Yes. I love ______ when the weather is like this. Why don’t we sit outside and have our lunch? A. this B. that C. it D. one ②I hate when people talk with their mouths full. A. it B. that C. these D. them 简析：这里考查it指代后文中when引导的从句这一功能，因而第①题选C；it 指代when theweather is clear and bright; 第②题选A, it替代when people talk with their mouths full. 二. One /ones (1)替代上文中被不定冠词a/an修饰的单数名词用one 例如：①Do you have a car? Yes, I have one. ②A bridge made of stone is much stronger than one made of wood. 在例一中one替代了a car, 在例二中，one 替代了a bridge. (2)表泛指，指同类事物中的一个（把，件……）用one, 指同类事物中

中效空气过滤器的全方位介绍 )

中效空气过滤器的全方位介绍生活中常常会听到中效空气过滤器，那么什么是中效空气过滤器呢？顾名思义，中效空气过滤器也是空气过滤器的一种，山东武城欣琪净化设备有限公司在这里让您全方位了解这个产品。山东武城欣琪净化设备有限公司是主要生产销售：过滤器，深圳过滤器，空气过滤器，空气过滤网，初效过滤器，初效尼龙网过滤器，初效空气过滤器，中效过滤器，中效空气过滤器，高效过滤器，高效空气过滤器，铝网过滤器，初效活性碳过滤器，耐高温初效过滤器，袋式过滤器，箱式过滤器，FFU空气过滤单元，空气净化设备等的专业厂家。中效过滤器，由人造纤维及镀锌铁所组合而成。有各种效率可供选择，包括 40-45% ， 60-65% ， 80-85% ， 90-95% 。法兰由 26 gauge 镀锌铁组成。此系列产品可应用于工、商业、医院、学校、大楼和其它各种工厂空调设备，也可以安装于燃气轮机入风口设备或电脑室，以延长设备使用寿命。一、产品选用要点 1.中效空气过滤器产品选用的主要控制参数额定风量、额定风量下的过滤效率、额定风量下的初阻力、容尘量及外形尺寸等。 2. 按JG/T22-1999《一般通风用空气过滤器性能试验方法》规定的方法检验，对粒径≥1.0μm微粒的大气尘计数效率≥20%而＜70%的过滤器为中效空气过滤器。 3. 中效空气过滤器常用滤料有玻璃纤维、无纺布等。 4. 厂家应提供过滤器容尘量。 5. 中效空气过滤器初阻力应≤80Pa。设计时，可按初阻力的二倍为终阻力，作为过滤器的计算阻力。 6. 过滤器初阻力不得超过产品样本阻力的10%。可再生或可清洗的滤料再生清洗以后，效率应不低于原指标的85%，阻力不高于原指标的115%。 7. 空气过滤器应符合防火要求，空气过滤器的涂料闪点应不低于163℃。 8. 中效空气过滤器不宜独立使用，宜与粗效空气过滤器组合使用。二、施工、安装要点空气过滤器避免直接安装在淋水室、加湿器的下风侧，确实无法避开时应采取有效措施。三、相关标准图集 07K505《洁净手术部和医用气体设计与安装》四、执行标准产品标准 GB/T14295-93《空气过滤器》 JG/T22-1999《一般通风用空气过滤器性能试验方法》工程标准 GB50073-2001《洁净厂房设计规范》 GB50333-2002《医院洁净手术部建筑技术规范》信息来源：空气过滤器

英语写作中高级同义词替换 2分析

英语写作中高级同义词替换连词篇：（介词，副词） Firstly: previously, beforehand, foremost, initially, originally, formerly, principally, mainly, essentially, basically, generally, commonly, universally, on the whole, fundamentally, to begin with, to start with Then: subsequently, afterward, thereafter, after that, secondarily, what is more, furthermore (further more)…Lastly:ultimately,eventually, in conclusion, to conclude, as a final point, last of all, last but not least, finally… Too: as well (句末), in addition, besides, moreover, additionally, to boot, excessively, also… And: plus, as well as, along with, in addition, bonus, with… Or: otherwise, if not, before, or else… So(adv): therefore, thus, consequently, accordingly, as a result, for that reason, hence, that’s why Because: as, due to, since, as to, in that, for the reason that, for, now that… But:however, moreover, nevertheless, nonetheless, on the contrary, on the other hand, 让步although, even thought, though, even if, while, as, despite the fact that…

空气过滤器的设计技巧.

多袋式过滤器一滤芯消毒方法 1消毒柜内消毒,把滤芯从塑料袋中取出,置于消毒柜内在121oC下消毒30分钟. 2在线消毒请,滤芯按正确的方法安装在滤器内(固定板与滤芯间隔0.5mm.通蒸汽30分钟二进出流向识别滤芯外面进中间出,正反冲可按不同方向进行. 三孔径识别多袋式过滤器https://www.wendangku.net/doc/ab15144949.html,/ 滤芯壳体有热熔字体,标明滤芯材质及孔径。

四滤芯安装方法 1将O型圈湿润,慢慢将滤芯垂直插入,必须全部插到不锈钢第圆槽内。 2将滤芯部翅片用不锈钢孔板压好,压板不需太紧,以防高温消毒时滤芯变型。 3避免直接用手接触滤芯。 4使用前尽可能冲洗滤芯。 5开机或关机时,请慢慢转动阀门,不要一下子打开或关闭,以防在高温消毒时滤被吸瘪。五滤芯维护方法滤芯使用至不能满足设计流量时(流量明显下降前后压力表差在0.1MPa请停机后打开滤器从滤器,从中取出滤芯,用清水冲洗表面赃物,然后先在的4%的盐酸中浸泡24小时,再在4%的氢氧化钠中浸泡24小时,后用清水冲洗(浸泡时取下二根O型圈,以防膨胀。六储存法袋式过滤器https://www.wendangku.net/doc/ab15144949.html,/ 1将滤芯浸泡在消毒剂中,将滤器不锈钢外壳灌满消毒剂。 2滤芯取出烘干,(50oC36小时 3将滤芯取出晾干,在气候干燥地区。 4未干燥的滤芯请不要用塑料袋包装以防发霉。聚丙烯滤芯:(PP 材质:聚丙烯滤芯介质为聚丙烯膜。 ?60?郑州轻工业学院学报f自然科学版2008年

介绍,本文不再涉及. 1空气过滤器的工作原理空气过滤器的结构如图l所示. 1.空气过滤器本体 2.导沉板 3.滤芯 4.锁紧螺栓 5.伞形挡水板 6.保护罩 7.水杯 8.排水阀图1空气过滤器结构图’从进口流入的压缩空气,被引进导流板2,导流板上有均匀分布的类似风扇扇叶的斜齿,迫使高速流动的压缩空气沿齿的切线方向产生强烈的旋转,混杂在空气中的液态水油和较大的杂质在强大的离心力作用下分离出来,甩到水杯7的内壁上,流到水杯的底部.除去液态水油和较大杂质的压缩空气,再通过滤芯3的进一步过滤,清除微小的固态颗粒,然后从出口输出清洁的压缩空气.伞形挡水板5将水杯分隔成上下2部分,下部保持压力静区,可以防止高速旋转的气流吸起杯底的水油.聚集在杯底的水油从排水阀8放掉.【2o空气过滤器必须竖直水杯向下安装. 2空气过滤器的主要性能指标

空气三年级过滤器等级选用

空气三年级过滤器等级选用公司标准化编码 [QQX96QT-XQQB89Q8-NQQJ6Q8-MQM9N]

空气三级过滤器等级 C、T、A、H精密过滤器 C级精过滤器（Q级）特点：支撑螺丝；保持滤芯稳定不受震荡；多层玻璃纤维及完全过滤>3um的固态粒子及液态微粒，并具有减低压降功能；多孔式外部圆筒过滤后的空气由此迅速流至过滤器出口；内，外滤芯皆防腐蚀。油雾剩余含量3ppm. 应用范围：气动工具，马达，气缸的前置过滤；精密过滤器的前置过滤；吸附式干燥机的前，后装置；保护自动控制系统。材质：陶质滤芯过滤杂质：3um 滤油含量：3PPM 最高温度：65度功能：将压缩空气内大量的油气滤除到3PPM以内及滤除杂质颗粒3um。 T级精过滤器（P级）特点：支撑螺丝；保持滤芯稳定不受震荡；内部弹性海绵具有前置过滤功能；超细玻璃纤维特殊设计的密度，直径及表面处理可过滤的固态粒子及液态微粒；外部海绵层吸收并排出油雾。内，外滤芯皆放腐蚀，油雾剩余含量. 应用范围：对使用有油式空压机如精密仪器，喷漆，食品和药物包装及电子制造业提供无油的压缩空气；前置或后置过滤。材质：多层玻璃纤维滤芯过滤杂质：滤油含量：最高温度：65度功能：将压缩空气内大量的油气滤除到以内及滤除杂质颗粒。 A级精过滤器（S级）特点：内外滤芯皆防腐蚀；涂膜封闭式海绵套筒进行预过滤和气流分散；多层矩阵复合玻璃纤维特殊设计的密度，可过滤的固态粒子及液态微粒；油雾剩余含量. 应用范围：关键应用场合的无油空气供应，气接触产品的场合。空气相关产品，传输，搅拌，电子元件制造，氨替换；前置或后置过滤。材质：多层玻璃纤维滤芯过滤杂质：滤油含量：最高温度：65度功能：将压缩空气中的微量油气精密滤除至以内同时空气中杂质颗粒至，达到无油标准的高制品压缩空气。 H级高效精过滤器（C级）特点：内外滤芯皆防腐蚀，极精细活性炭粉稳定层滤除绝大部分油蒸气；特殊设计复合纤维介质粘合微精活性炭粉，滤除的固态粒子及微态微粒；复合纤维层防止活性炭微粒位移，外涂膜封闭式海绵网筒防止纤维游移；在额定运行条件下，设计寿命2000小时；油雾剩余含量. 应用范围：食品，饮料，医药，医院及药物工厂；呼吸用空气；潜水保证作业，活性炭过滤，用于工作环境除菌除臭。

连环替代法分析运用

连环替代法的分析运用某企业2010年3月生产产品所耗某种材料费的实际数就是6720元,而其计划数就是5400元。实际比计划增加1320元。由于材料费用就是由产品产量、单位产品材料耗用量与材料单价三个因素的乘积构成的。因此,可以把材料费用这一总指标分解为三个因素,现假设这三个因素的数值如下表所示。一、连环替代法之不拿出式 (一)替换顺序:产品产量单位产品材料消耗量材料单价计划指标:130×10×4＝5200(元) ① 第一次替代:140×10×4＝5600(元)② 第二次替代:140×9×4＝5040(元) ③ 第三次替代得到:140×9×5＝6300(元) ④ ②－①＝5600－5200＝400(元) 产量增加的影响

③－②＝5040—5600＝－560(元)材料节约的影响 ④－③＝6300－5040＝1260(元) 价格提高的影响 400－560＋1260＝1100(元) 全部因素的影响 (二)替换顺序:产品产量材料单价单位产品材料消耗量计划指标:130×10×4＝5200(元) ① 第一次替代:140×10×4＝5600(元)② 第二次替代:140×10×5＝7000(元) ③ 第三次替代得到:140×9×5＝6300(元) ④ ②－①＝5600－5200＝400(元) 产量增加的影响 ③－②＝7000—5600＝1400(元)价格提高的影响 ④－③＝6300－7000＝-700(元)材料节约的影响 400+1400-700＝1100(元) 全部因素的影响(三)替换顺序:单位产品材料消耗量产品产量材料单价计划指标:130×10×4＝5200(元) ① 第一次替代:130×9×4＝4680(元)② 第二次替代:140×9×4＝5040(元) ③ 第三次替代得到:140×9×5＝6300(元) ④

空气三级过滤器等级选用

空气过滤器基本知识

过滤器知识空气过滤器是空调净化系统的核心设备，过滤器对空气形成阻力，随着过滤器积尘的增加，过滤器阻力将随着增大。当过滤器积尘太多，阻力过高，将使过滤器通过风量降低，或者过滤器局部被穿透，所以，当过滤器阻力增大到某一规定值时，过滤器将报废。因此，使用过滤器，要掌握合适的使用周期。在过滤器没有损坏的情况下，一般以阻力判定使用寿命。过滤器的使用寿命除了取决于其本身的优劣，如：过滤材料、过滤面积、结构设计、初始阻力等，还与空气中的含尘浓度，实际使用风量，终阻力的设定等因素有关。掌握合适的使用周期，必须了解其阻力的变化情况，首先必须了解如下定义： 1. 额定初阻力：在额定风量下，过滤器样本、过滤器特性曲线或过滤器检测报告所提供的初阻力。 2. 设计初阻力：系统设计风量下，过滤器阻力（应由空调系统设计师提供）。 3. 运行初阻力：系统运行之初，过滤器的阻力，如果没有测量压力的仪表，就只能取设计风量下的阻力作为运行初阻力（实际运行的风

量不可能完全等于设计风量）；运行中应定期检查过滤器的阻力超出初阻力的情况（每个过滤段都应安装阻力监测装置），以决定何时更换过滤器。过滤器更换周期，见下表（仅供参考）：

特别说明：低效率过滤器一般使用粗纤维滤料，纤维间空隙大，过大的阻力有可能将过滤器上的积尘吹散，这种情况下，过滤器阻力不再增高，但过滤效率降到几乎为零，因此要严格控制粗效过滤器的终阻力值！确定终阻力要综合考虑几种因素。终阻力定的低,使用寿命短,长期更换费用（过滤器费用、人工费用，和废弃处理费用）相应就高，但运行能耗低，因此每种过滤器应该有最经济的终阻力值。过滤器越脏，阻力增长越快。过高的终阻力不意味着过滤器使用寿命会延长，过高阻力会使空调系统风量锐减。过高的终阻力是不可取的。顾客关于过滤器使用寿命短的抱怨：主要由三种原因造成 a、过滤器的过滤材料面积太小或单位容尘能力太小；

因素分析法(连环替代法和差额计算法)

案例分析一一因素分析法（抚钢）抚顺特殊钢（集团）有限责任公司（下称抚钢）财务分析中常采用因素分析法，即把某一综合指标分解成若干个相互联系的因素，并分别计算、分析各个因素影响程度的方法。例如，企业利用连环替代法对构成某种钢锭的原材料费用（金属料费用）进行分析, 成本资料列于表1: 由表1可以看出，构成该种钢锭的原材料成本比目标超支了 50 400元，影响这一指标变动的因素有产量、材料单耗、材料单价三个因素。在这三个因素中，应先替代起决定作用的产量因素，其次替代派生的单耗因素，最后代替单价因素。分析过程如下：钢锭中材料费目标总成本 =目标产量X 目标单耗X 材料目标单价 X 1.2 X 870 =2 088 000 （元）（1）替代产量因素=实际产量X 目标单耗X 材料目标单价 =2 296 800 则产量变动对材料成本的影响数值 =2 296 800-2 088 000=208 800（元）（2）替代单耗因素=实际产量X 实际单耗X 材料目标单价 =2 200 X 1.08 X 870 =2 067 120 （元）则单耗变动对材料成本的影响数 =2 067 120-2 296 800=-229 680 （元）（3）替代单价因素=实际产量X 实际单耗X 材料实际单价 =2 200 X 1.08 X 900 =2 138 400 （元）则单价变动对材料成本的影响数值 =2 138 400-2 067 120=71 280 （元）将这三个因素的综合影响数值相加： 208 800+ （-229 680 ） +71 280=50 400 （元） =2 000 =2 200 X 1.2 X 870 （元）

空气滤清器的选用

流量大小：系统流量4-5 5-8 精度10 20 40我涉及到的是20 请问：怎么选择空气滤清器？例如：油箱容积是400L，我应选多大的空气滤清器？有什么公式，原则么？ 1按照你过滤的精度（和你的工作环境有关）和流量来选。一般是系统最大流量的4-5倍。2根据你油泵的流量放大到5-8倍 3应是这样的:空气滤清器工作时空气流速越低,搞污染能力越强. 1.如要不做为加油口的话空气流量应为泵排量的1.5倍.(排量啊) 2.如果还需要作为加油口用,应空气流量为泵排量的2.5左右.. 以你的油箱容积来看,可以选用EF3-40的或者QUQ1-10X1.0 大气中的尘埃粒子浓度是影响洁净室洁净度的重要因素，而如果要有效地、可调节地控制生产洁净度，采用通常空调用的尼龙网过滤器、金属网过滤器及海棉过滤器，则无法控制生产环境中的尘埃粒子浓度和达到较高的洁净度要求。而要达到现代化生产所需的洁净环境，必须采用滤纸过滤器和纤维层过滤器，也就是净化技术中所用的空气过滤器。一、空气过滤器的分类洁净室用空气过滤器种类较多，按结构形式分有： 1．平板式过滤器 2．折叠式过滤器 3．袋式过滤器 4．有隔板折叠形过滤器 5．无隔板折叠形过滤器按过滤效率分类，是最为常见的方法；按国家标准GB/T14295-93《空气过滤器》及GB13554-92《高效空气过滤器》的规定，在额定风量下有： 1．粗效过滤器 2．中效过滤器 3．高中效过滤器 4．亚高效过滤器 5．高效过滤器（超高效过滤器）二、空气过滤器的选用与配置 1．对于小型的净化设备，如洁净工作台、风淋室、层流罩等，由于处理的风量小，一般新风进风面采用粗效过滤器或中效过滤器，送风末端必须选用高效过滤器或超高效过滤器；2．对于净化空调系统中空气过滤器的选用与配置，一般根据洁净室的空气洁净度级别和生产工艺的特殊要求，进行合理化选用与配置。 A．对于1000---10万级的洁净室净化系统，通常采用三级空气过滤形式，即粗效、中效和高效过滤器；粗效、中效一般放在空气处理装置中，且将中效过滤器放在正压段，亚高效或高效过滤器一般位于净化空调系统的末端。 B．对于100---1000级的净化空调系统，通常在新风处理装置中设置粗效、中效、亚高效

《学习策略与思维方法》讲座第七讲向你推荐替换分析法

《学习策略与思维方法》讲座第七讲向你推荐替换分析法第七讲向你推荐替换分析法替换分析法是笔者在40余年的数学、物理教学中，运用数学思维处理物理问题的一种解题分析方法。运用这一方法，方便于我们从纷繁复杂的物理情境中，正确地建立物理模型，迅速地确立解题的基本公式，并快捷寻得解题的具体途径和求解的结果。而且，替换分析法的表述式，能直观而简洁地表现出解题的思路，还能极其方便地换写成解题的一般表述形式。替换分析法不仅可应用于解答物理问题，而且也可用于其它学科有关问题的解题分析。一、替换分析法的基本思想。任何一个问题所涉及的各个量中，总分三类：已知的，未知但为所求的，未知但非所求的。已知的为已知量，未知但为所求的称所求量，未知但非所求的为称不求量。解题就是要依据符合问题规定情境的有关规律，运用已知量，化去不求量，求出所求量。数学方程论告诉我们：一个方程只能求一个未知量，通常n个方程构成的方程组也只能求n个未

知量。其中超量的不求量必须化去，化去的方法总是进行这样的替换，用含已知量、所求量的解析式替换不求量，使原方程得以变形。而这种量的替换通常要进行到所得方程的个数与未知量的个数相等为止，则此方程或方程组可解，即其中所求未知量可以求出。替换分析法就是通过这种量的替换来寻求解题的具体途径的一种解题分析方法。二、替换分析法的操作步骤。利用替换分析法解物理问题，一般可分两步进行：根据题所提供的物理情境，建立物理模型，恰当地选择物体或物体系，并根据其所处的物理状态或物理过程，优选一个物理公式作为解题的基本公式。为了解题的简捷，选作解题的基本公式不仅要满足题给的物理情境，还应满足如下条件：①尽可能含所求量；②尽可能多含已知量；③尽可能少含不求量。如果所选的某个基本公式只含一个所求量，其余均为已知量，不含任何不求量，则此基本公式是关于所求量的一元方程，可直接求出相应所求量，故此公式为解此题的最佳基本公式。若解题的基本公式不是最佳的，则应进行下述有关不求量的替换。对解题的基本公式中的不求量进行分析替换，使之成为关于所求量的可解方程或可解方程组。分析替换的原则是，

空气过滤器的详细解析

洁净室产品网：https://www.wendangku.net/doc/ab15144949.html,/ 空气过滤器中文名称：空气过滤器英文名称：airfilter定义1：滤除压气机进口空气中的尘粒、盐分等杂质的设备。应用学科：电力（一级学科）；汽轮机、燃气轮机（二级学科）定义2：能清除空气中灰尘及杂质的器件。应用学科：机械工程（一级学科）；实验室仪器和装置（二级学科）；气候环境试验设备-气候环境试验设备零部件及附件（三级学科）概述在气动技术中，空气过滤器、减压阀和油雾器称为气动三大件。为得到多种功能，往往将这三种气源处理元件按顺序组装在一起，称为气动三联件，用于气源净化过滤、减压和提供润滑。三大件的安装顺序按进气方向依次为空气过滤器、减压阀、油雾器。三大件是多数气动系统中不可缺少的气源装置，安装在用气设备近处，是压缩空气质量的最后保证.其设计和安装，除确保三大件自身质量外，还要考虑节省空间、操作安装方便、可任意组合等因素。编辑本段空气过滤器的发展空气过滤器的原型是人们为保护呼吸而使用的呼吸保护器具。据记载，早在一世纪的罗马，人们在提纯水银的时候就用粗麻制成的面具进行保护。在此之后的漫长时间里，空气过滤器也取得了进展，但其主要是作为呼吸保护器具用于一些危险的行业，如有害化学品的生产。1827年布朗发现了微小粒子的运动规律，人们对空气过滤的机理有了进一步的认识。空气过滤器的迅速发展是与军事工业和电子工业的发展紧密相关的。在第一次世界大战期间，由于各种化学毒剂的使用，以石棉纤维过滤纸作为滤烟层的军用防毒面具应运而生。玻璃纤维过滤介质用于空气过滤于1940年10月在美国取得专利。50年代，美国对玻璃纤维过滤纸的生产工艺进行了深入的研究，使空气过滤器得到了改善和发展。60年代，HEPA过滤器问世；70年代，采用微细玻璃纤维过滤纸作为过滤介质的HEPA过滤器，对013微米粒径的粒子过滤效率高达99.9998%。八十年代以来，随着新的测试方法的出现、使用评价的提高及对过滤性能要求的提高，发现HEPA过滤器存在着严重的问题，于是又产生了性能更高的ULPA过滤器。目前，各国仍在努力研究，估计不久就会出现更先进的空气过滤器。编辑本段过滤器本身的设计也取得了显著进展其中最重要的是分隔板的去除，即无隔板过滤器的发展。无隔板过滤器不仅消除了分隔板损坏过滤介质的危险，而且有效地增加了过滤面积，提高了过滤效率，并降低了气流阻力，从而减少了能量消耗。此外，空气过滤器在耐高温、耐腐蚀以及防水、防菌等方面也取很大的进展，满足了一些特殊的需求。编辑本段空气过滤器的作用从气源出来的压缩空气中含有过量的水汽和油滴，同时还有固体杂质，如铁锈、沙粒、管道密封剂等，这些会损坏活塞密封环，堵塞元器件上的小排气孔，缩短元器件的使用寿命或使之失效.空气过滤器的作用就是将压缩空气中的液态水、液态油滴分离出来，并滤去空气中的灰尘和固体杂质，但不能除去气态的水和油.编辑本段空气过滤器的工作原理空气过滤器的结构如右图所示从进口流入的压缩空气，被引进导流板（2 空气过滤器原理图），导流板上有均匀分布的类似风扇扇叶的斜齿，迫使高速流动的压缩空气沿齿的切线方向产生强烈的旋转，混杂在空气中的液态水油和较大的杂质在强大的离心力作用下分离出

替换电阻的分析方法

1．在图11所示的电路中，电源电压为12伏且不变，电阻R 1的阻值为22欧，滑动变阻器R 2上标有“10 1A ”字样。闭合电键S ，电流表的示数为0.5安。求：（1）电阻R 1两端的电压。（2）滑动变阻器R 2接入电路的阻值。（3）现设想用定值电阻R 0来替换电阻R 1，要求：在移动滑动变阻器滑片P 的过程中，两电表的指针分别能达到满刻度处，且电路能正常工作。 ①现有阻值为16欧的定值电阻，若用它替换电阻R 1，请判断：________满足题目要求（选填“能”或“不能”）。若能满足题目要求，通过计算求出替换后滑动变阻器的使用范围；若不能满足题目要求，通过计算说明理由。 ②满足题目要求的定值电阻R 0的可能取值范围为_______________________。（1）U 1＝IR 1 ＝0.5安×22欧=11伏（2）R 2＝U 2/I 2＝（U －U 1）/I ＝（12伏－11伏）/0.5安＝2欧（3）①能；电流表量程为0~0.6安：由I 最大＝0.6安， R 最小＝12伏/0.6安＝20欧，图11 A R 1 P V R 2 S

R 滑小＝20欧－16欧＝4欧；由U 滑大＝3伏， U 1 ＝U －U 滑大＝12伏－3伏＝9伏， I ＝U 1/R 0＝9伏/16欧≈0.563安， R 滑大＝U 滑大/I ＝3伏/0.563安≈5.33欧，所以，滑动变阻器使用范围：4~5.33欧。 ②R 0的取值范围为15~20欧。 2．在图11所示的电路中，电源电压保持不变，滑动变阻器R 2上标有 “100Ω 1A ”字样。闭合电键S 后，电流表A 的示数为 0.5安，电压表V l 的示数为10伏，电压表V 2的示数为6伏。求： ①定值电阻R 1的阻值。 ②此时滑动变阻器R 2消耗的电功率P 2。图11 ③请用定值电阻来替换电阻R 1，并选择合适的电表量程。要求：在不更换电表量程的情况下，移动变阻器的滑片P ，使所有电表的示数都能达到各自的最大值，且电路能正常工作。第一，符合上述条件的所有可能的定值电阻阻值：__________________。第二，满足上述要求时，电流表示数的最小值。（写明必要理由） A V 2 V 1 R 1 R 2 S P

空气三级过滤器等级选用知识分享

精品文档精品文档空气三级过滤器等级 C、T、A、H精密过滤器 C级精过滤器（Q级）特点：支撑螺丝；保持滤芯稳定不受震荡；多层玻璃纤维及完全过滤>3um的固态粒子及液态微粒，并具有减低压降功能；多孔式外部圆筒过滤后的空气由此迅速流至过滤器出口；内，外滤芯皆防腐蚀。油雾剩余含量3ppm. 应用范围：气动工具，马达，气缸的前置过滤；精密过滤器的前置过滤；吸附式干燥机的前，后装置；保护自动控制系统。材质：陶质滤芯过滤杂质：3um 滤油含量：3PPM 最高温度：65度功能：将压缩空气内大量的油气滤除到3PPM以内及滤除杂质颗粒3um。 T级精过滤器（P级）特点：支撑螺丝；保持滤芯稳定不受震荡；内部弹性海绵具有前置过滤功能；超细玻璃纤维特殊设计的密度，直径及表面处理可过滤0.5um的固态粒子及液态微粒；外部海绵层吸收并排出油雾。内，外滤芯皆放腐蚀，油雾剩余含量0.05ppm. 应用范围：对使用有油式空压机如精密仪器，喷漆，食品和药物包装及电子制造业提供无油的压缩空气；前置或后置过滤。材质：多层玻璃纤维滤芯过滤杂质：0.5um 滤油含量：0.5PPM 最高温度：65度功能：将压缩空气内大量的油气滤除到0.5PPM以内及滤除杂质颗粒0.5um。 A级精过滤器（S级）特点：内外滤芯皆防腐蚀；涂膜封闭式海绵套筒进行预过滤和气流分散；多层矩阵复合玻璃纤维特殊设计的密度，可过滤0.01um的固态粒子及液态微粒；油雾剩余含量0.003ppm. 应用范围：关键应用场合的无油空气供应，气接触产品的场合。空气相关产品，传输，搅拌，电子元件制造，氨替换；前置或后置过滤。材质：多层玻璃纤维滤芯过滤杂质：0.01um 滤油含量：0.01PPM 最高温度：65度功能：将压缩空气中的微量油气精密滤除至0.01PPM以内同时空气中杂质颗粒至0.01micro n，达到无油标准的高制品压缩空气。 H级高效精过滤器（C级）特点：内外滤芯皆防腐蚀，极精细活性炭粉稳定层滤除绝大部分油蒸气；特殊设计复合纤维介质粘合微精活性炭粉，滤除0.01um的固态粒子及微态微粒；复合纤维层防止活性炭微粒位移，外涂膜封闭式海绵网筒防止纤维游移；在额定运行条件下，设计寿命2000小时；油雾剩余含量0.003ppm. 应用范围：食品，饮料，医药，医院及药物工厂；呼吸用空气；潜水保证作业，活性炭过滤，用于工作环境除菌除臭。材质：活性炭滤芯

因素分析法(连环替代法和差额计算法)

案例分析——因素分析法（抚钢）抚顺特殊钢（集团）有限责任公司（下称抚钢）财务分析中常采用因素分析法，即把某一综合指标分解成若干个相互联系的因素，并分别计算、分析各个因素影响程度的方法。例如，企业利用连环替代法对构成某种钢锭的原材料费用（金属料费用）进行分析，成本资料列于表1：由表1可以看出，构成该种钢锭的原材料成本比目标超支了50 400元，影响这一指标变动的因素有产量、材料单耗、材料单价三个因素。在这三个因素中，应先替代起决定作用的产量因素，其次替代派生的单耗因素，最后代替单价因素。分析过程如下：钢锭中材料费目标总成本=目标产量×目标单耗×材料目标单价 =2 000×1.2×870 =2 088 000（元）（1）替代产量因素=实际产量×目标单耗×材料目标单价 =2 200×1.2×870 =2 296 800（元）则产量变动对材料成本的影响数值=2 296 800-2 088 000=208 800(元) （2）替代单耗因素=实际产量×实际单耗×材料目标单价 =2 200×1.08×870 =2 067 120（元）则单耗变动对材料成本的影响数=2 067 120-2 296 800=-229 680（元）（3）替代单价因素=实际产量×实际单耗×材料实际单价 =2 200×1.08×900 =2 138 400（元）则单价变动对材料成本的影响数值=2 138 400-2 067 120=71 280（元）将这三个因素的综合影响数值相加： 208 800+（-229 680）+71 280=50 400（元）分析结果表明，该钢锭的实际材料成本比目标成本超支了50 400元。主要原因是：

空气过滤器的选择

空气过滤器的选择一般情况下，最末级的空气过滤器决定送风的洁净程度，前端各级空气过滤器对最末级的空气过滤器起保护作用，延长最末级空气过滤器的使用寿命，确保其正常工作。根据具体情况合理地选择合适的空气过滤器，其选择原则如下： 1、根据室内要求的洁净净化标准，确定最末级的空气过滤器的效率，合理地选择空气过滤器的组合级数和各级的效率。如室内要求一般净化，可以采用初效过滤器；如室内要求中等净化，就应采用初效和中效两级过滤器；如室内要求超净净化，就应采用初效、中效和高效三级净化过滤，并应合理妥善地匹配各级过滤器的效率，若相邻两级过滤器的效率相差太大，则前一级过滤器就起不到对后一级过滤器的保护作用。

国内外种空气过滤器标准和效率的比较 (1)根据洁净度的要求确定末级过滤器的效率；选择过滤器时，每台空气过滤器的处理风量应小于或等于额定风量。可选用多台，以满足总的处理风量。 (2)选择末级过滤器的保护过滤器,再选择中级过滤器的前级保护过滤器,通常起保护作用的过滤器称为预过滤器。应妥善匹配各级过滤器的效率。若相邻两级过滤器的效率规格相差太大，则前一级起不到保护后一级的作用；若两级相差不大，则后一级负担太小。 (3)选择预过滤器要和使用环境,备件费用,运行能耗(目前国内用用户关心能耗的不多),维护与供货等因素综合考虑后决定；

(4)洁净室末端的高效空气过滤器需要有效率不低于F8的过滤器的保护，通常，对于满布高效过滤器送风面的单向流洁净室，因高效过滤器的安装及检漏工作量很大，为了延长送风面处的高效过滤器使用寿命，提高室内洁净度，可在送风静压箱入口处或附近管道增设一道亚高效过滤器，以延长洁净室末端的高效空气过滤器的使用寿命。 (5)确定过滤器的要点：末级过滤器的性能要可靠，预过滤器的效率规格要合理，且要维护方便。根据经验，各种场合的典型配置：

替换电阻专题(含解析)

替换电阻专题一、知识结构串联电路: 各电表都达到了满刻度(定值电阻与滑变器) 每次移动都能使得电表处于某一位置每次移动都使得电表改变得角度相同并联电路: 各电表都达到了满刻度(定值电阻与滑变器) 通过电键得断开与闭合使得各电表满刻度替换后两个电表偏离零刻度线得角度相同两个电流表得比值相同电表得指针始终处于某一个位置二、题型类型一:电压表接在滑动变阻器得两端 1、在图所示得电路中,电源电压为12伏且不变,电阻R1得阻值为22欧,滑动变阻器R2上标有“10Ω1A”字样.闭合电键S,电流表得示数为0、5安.求: (1)电阻R1两端得电压. (2)滑动变阻器R2接入电路得阻值. (3)现设想用定值电阻R0来替换电阻R1,要求:在移动滑动变阻器滑片P得过程中,两电表得指针分别能达到满刻度处,且电路能正常工作. ①现有阻值为16欧得定值电阻,若用它替换电阻R1,请判断:能满足题目要求(选填“能”或“不能”).若能满足题目要求,通过计算求出替换后滑动变阻器得使用范围;若不能满足题目要求,通过计算说明理由. ②满足题目要求得定值电阻R0得可能取值范围为15～20Ω. 分析:②当滑动变阻器接入电路得电阻最小时,电路中得电流最大为0、6A,根据欧姆定律求出R0得最大阻值;当滑动变阻器接入电路得电阻最大时,电流表得示数也最大时,电阻R0得阻值最小,利用串联电路得电压特点与欧姆定律求出最小值,从而确定足题目要求得定值电阻R0得可能取值范围. 解答:解:(3)①能; 电流表量程为0～0、6A,即I最大=0、6A, 此时电路中得总电阻R最小===20Ω, 滑动变阻器接入电路得最小值R滑小=20Ω﹣16Ω=4Ω; 电压表得量程为0～3V,即U滑大=3V, 定值电阻两端得电压U1′=U﹣U滑大=12V﹣3V=9V, 电路中得电流I′===0、5625A, 滑动变阻器接入电路得最大值R滑大==≈5、33Ω, 所以,滑动变阻器使用范围:4Ω～5、33Ω. ②当滑动变阻器接入电路得电阻最小为0,电路中得电流最大I max=0、6A时,R0得阻值最大; R0max===20Ω, 当滑动变阻器接入电路得电阻最大时,电流表得示数也最大时,R0得阻值最小; R0min===15Ω, 所以R0得取值范围为15Ω～20Ω. 答:(1)电阻R1两端得电压为11V; (2)滑动变阻器R2接入电路得阻值为2Ω; (3)①能;替换后滑动变阻器得使用范围为4Ω～5、33Ω; ②满足题目要求得定值电阻R0得可能取值范围为15Ω～20Ω. 点评:本题考查了串联电路得特点与欧姆定律得计算;关键就是规律与公式得灵活运用;难点就是满足题目要求得定值电阻R0得取值范围得确定. 类型2:电压表接在定值电阻两端: 2、在图(a)电路中,电源电压为18伏且不变.电阻R1得阻值30欧,滑动变阻器R2上标有“20Ω2A”字样.闭合电键S,电压表得示数为12伏. (1)求电流表得示数. (2)求电阻R2连入电路得阻值. (3)若移动变阻器滑片P到某位置时,发现两电表中某一个表得指针达到满刻度,如图(b)或(c)所示. ①求出此时两电表得示数. ②现要求在移动变阻器滑片P时两电表得指针均能达到满刻度,如图(b)与(c)所示,小华与小明拟采取如下方法: 小华:用5欧得定值电阻替换电阻R1. 小明:用25欧得定值电阻替换电阻R1. 请判断:小明得方法能满足题目得要求(选填“小华”、“小明”或“小华与小明”).满足题目要求时,滑动变阻器连入电路得阻值R2得值为5欧. ③继续移动变阻器得滑片P,直至电路中电流最小,则两电表指针偏转角度得变化量就是相同得(选填“相同”或“不同”).

如何选择过滤器的类型

过滤器的类型液压系统使用的过滤器，按滤芯材料的过滤机制，分为表面型、深度型和吸附型三种。一、表面型过滤器过滤作用由一个几何面实现。滤芯材料具有均匀的标定小孔，可以滤除比小孔尺寸大的颗粒。滤下的颗粒被截留在油液上游一侧滤芯的表面。由于颗粒聚集在表面，滤芯很容易被堵塞，需要定时清洗。编网式过滤器和线隙式过滤器，均属于此类。 1.编网式过滤器滤芯由芯架上包裹铜丝网组成。过滤精度低，与网孔大小和丝网层数有关，有80um、100um、180um三个等级。用于压力管路，常用100目、150目、200目的铜丝网；用于液压泵吸入管路，常用20-40目的铜丝网。压力损失不超过0.004MPa。结构简单，流通能力大，清洗方便。 2.线隙式过滤器滤芯由芯架上缠绕金属线组成，利用线间微小间隙阻挡颗粒通过。过滤精度高，有30um、50um、80um三个等级。用于低压管路。压力损失不超过0.03-0.06MPa。结构简单，流通能力大，滤芯材料强度低，不便于清洗。二、深度型过滤器滤芯由多孔可透性材料组成，内部具有曲折迂回的通道。大于表面孔径的颗粒被截留在外表面；较小的颗粒进入材料内部，被通道壁吸附。纸、毛毡、烧结金属、陶瓷、各种纤维制品等滤芯的过滤器属于此类。 1.纸芯过滤器结构与线隙式过滤器相同，但滤芯为平纹和波纹的化

学纤维或木浆微孔滤纸制成。为了增大过滤面积，纸芯常制成折叠形。为增强滤芯强度，其内外两侧通常用金属网加固。过滤精度高，可达5-20um。压力损失约为0.01-0.4MPa。 2.烧结式过滤器滤芯由金属粉末烧结而成，利用金属颗粒间的微孔挡住油液中的颗粒。过滤精度高，可达5-10um，可通过改变金属粉末颗粒的大小来改变过滤精度。适用于精过滤。三、吸附型过滤器 1.滤芯材料将油液中的颗粒吸附在滤芯上。磁性过滤器就属于吸附型过滤器，由永久磁铁制成，能吸附油液中的铁屑、铁粉或带有磁性的磨料。通常与其他形式的过滤器结合，制成复式过滤器。磁性过滤器还有监测机械设备磨损的作用。 2.磁性过滤器分为普通磁性过滤器和高梯度磁性过滤器。普通磁性过滤器利用磁铁的磁场直接捕捉油液中的铁磁性污染颗粒。其中永磁式过滤器具有结构简单、制造方便、运行可靠、运行费用低等优点，因而应用较广，其主要缺点是捕捉颗粒效果差，同时磁极上吸附的颗粒很难清洗。高梯度磁性过滤器能有效的克服以上缺点，使磁性过滤器的性能有较大的提高。 3.铁磁性颗粒所受的吸引力与外磁场强度H成正比，与磁场强度的梯度gradH成正比。 4.普通磁性过滤器是通过提高外磁场强度H来提高磁引力，从而提高过滤能力的；高梯度磁性过滤器则是通过磁介质提高磁场的梯度gradH来增大吸引力以获得高效滤除污染物的效果。

空气过滤器详细介绍

空气过滤器详细介绍一、空气过滤原理粉尘与过滤介质的粘接力空气中的尘埃粒子，或随气流做惯性运动，或做无规则运动，或受某种场力的作用而移动，当运动中的粒子撞到障碍物，粒子与障碍物之间的范德瓦尔斯力使他们粘在一起。过滤介质材料应能既有效地拦截尘埃粒子，又不对气流形成过大的阻力。杂乱交织的纤维形成对粒子的无数道屏障，纤维间宽阔的空间允许气流顺利通过。目前广泛使用的材料有玻璃纤维、聚丙烯纤维、聚酯纤维、植物纤维等。与粉尘撞击过滤介质的运动规律来解释，常见的过滤机理分为惯性原理、扩散原理、静电力。大颗粒粉尘在气流中作惯性运动。气流遇障绕行，粉尘因惯性偏离气流方向并撞到障碍物上。粒子越大，惯性力越强，撞击障碍物的可能性越大，因此过滤效果越好。小颗粒粉尘作无规则的布朗运动.粉尘越小,无规则运动越剧烈,撞击障碍物的机会越多,因此过滤效果越好。空气中小颗粒粉尘主要作布朗运动，粒子越小，过滤器的效率越高；大颗粒粉尘主要作惯性运动，粒子越大，过滤器的效率越高。扩散和惯性效果都不明显的那部分粉尘最难过滤，对过滤器性能而言，过滤效率最低点的效率值最具代表性。若过滤材料带静电或粉尘带静电，过滤效果可以明显改善。其原因主要有两条：静电使粉尘改变运动轨迹并撞向障碍物；静电力使粉尘在介质上粘得更牢固。过滤器阻力被捕捉的粉尘对气流产生附加阻力，使用中过滤器的阻力会逐渐增加。被捕捉到的粉尘与过滤介质合为一体而形成附加的障碍物，所以使用中过滤器的过滤效率也会有所提高。被捕捉的粉尘大都聚集在过滤材料的迎风面上。滤料面积越大，能容纳的粉尘越多，过滤器的使用寿命就越长。滤材上积尘越多，阻力越大。当阻力大到不合理的程度时，过滤器报废。有时，过大的阻力会使过滤器上已捕捉到的灰尘飞散，出现这种危险时，过滤器也该报废。过滤器阻力随气流量的增加而提高，通过增大过滤材料面积，可以降低穿过滤料的相对风速，以减小过滤器阻力。

块查找和块替换源码-CAD VBA

浅析替代词

中效空气过滤器的全方位介绍 )

英语写作中高级同义词替换 2分析

空气过滤器的设计技巧.

空气三年级过滤器等级选用

连环替代法分析运用

空气三级过滤器等级选用

空气过滤器基本知识

因素分析法(连环替代法和差额计算法)

空气滤清器的选用

《学习策略与思维方法》讲座 第七讲 向你推荐替换分析法

空气过滤器的详细解析

替换电阻的分析方法

空气三级过滤器等级选用知识分享

因素分析法(连环替代法和差额计算法)

空气过滤器的选择

替换电阻专题(含解析)

如何选择过滤器的类型

空气过滤器详细介绍

《学习策略与思维方法》讲座第七讲向你推荐替换分析法