<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'***************************************************************************
'*版权所有：湖南省联众科技有限公司
'*功能：空心线圈电感量计算
'*作者：陈泽军
'*日期：2010-12-09
'*更新记录
'* 创建此代码 2010-12-09 陈泽军
'*用途：计算空心线圈电感
'***************************************************************************
%>
<%
dim IP
IP=request.servervariables("REMOTE_ADDR")
CheckIP IP
if IP<>"" and (Session(mSession3)="" or session(mSession2)<2) then
response.redirect "/Default.asp"
response.end
end if
%>
<%
on error resume next
dim vMsg
if isempty(request("B1")) then
Session("T1")=""
Session("T2")=""
Session("T3")=""
Session("T4")=""
Session("T5")=""
Session("T6")=""
else
dim vT1,vT2,vT3,vT4,vT5,vT6,k
vT1=request.Form("T1")
vT2=request.Form("T2")
vT3=request.Form("T3")
vT4=request.Form("T4")
Session("T1")=vT1
Session("T2")=vT2
Session("T3")=vT3
Session("T4")=vT4
Session("T5")=""
Session("T6")=""
if vT1="" or vT2="" or vT3="" or vT4="" then
vMsg=" 提示：线圈参数不完整！"
elseif Int(vT1)=0 or Int(vT2)=0 or Int(vT3)=0 or Int(vT1)>Int(vT2) then
vMsg=" 提示：线圈参数不正确！"
else
vT5=(Int(vT1)+Int(vT2))/2/vT3
if vT5<=0.1 then
k=0.96
elseif vT5<=0.2 then
k=0.92
elseif vT5<=0.3 then
k=0.88
elseif vT5<=0.4 then
k=0.85
elseif vT5<=0.6 then
k=0.79
elseif vT5<=0.8 then
k=0.74
elseif vT5<=1 then
k=0.69
elseif vT5<=1.5 then
k=0.6
elseif vT5<=2 then
k=0.52
elseif vT5<=3 then
k=0.43
elseif vT5<=4 then
k=0.37
elseif vT5<=5 then
k=0.32
elseif vT5<=10 then
k=0.2
elseif vT5<=20 then
k=0.12
else
k=0.12
end if
vT5=Int(1/vT5*100)/100
vT6=k*4*3.1416/10000000*vT4*vT4*3.1416*(Int(vT1)+Int(vT2))*(Int(vT1)+Int(vT2))/16/vT3
Session("T5")=vT5
Session("T6")=Int(vT6*1000000)/1000000
end if
end if
LoadTemplate server.mappath(vTemplatePath) & "/Default.htm", "All"
SetVar "SiteName",vSiteName
SetVar "TemplatePath",vTemplatePath
mShowHeader vSiteName
mShowNavigationTop vSiteName,"yes" '显示当前位置（位于顶部）
LoadTemplate server.mappath(vTemplatePath) & "/Tool.htm", "Main"
LoadTemplate server.mappath(vTemplatePath) & "/Left_Body.htm","Left_Body"
dim MenuName
MenuName=trim(request.QueryString("MenuName"))
If MenuName="" Then
Show_MenuClass_Child vSiteName,"设计工具"
Else
Show_MenuClass_Child vSiteName,MenuName
End If
mShowHot_Link vSiteName
' Parse "Left_Body",false '无作用
SetVar "PageName","(R)空心线圈电感量计算器"
SetVar "Title","空心线圈电感量计算器"
' SetVar "FormBody","" '不设置时，显示内容
SetVar "Tool1_Title",""
SetVar "InputType1",""
SetVar "Input2"," 内径：(mm)"
SetVar "Input3"," 外径：(mm)"
SetVar "Input4"," 长度：(mm)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 匝数：(匝)"
SetVar "Input3"," 长径比："
SetVar "Input4"," 电感量：(mH)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2",""&vMsg&""
SetVar "Input3",""
SetVar "Input4"," "
Parse "InputType2",false
Parse "InputList",true
SetVar "Input1"," 说明：1.仅适用于长径比在0.05～10之间的线圈。 2.线圈内部有磁芯时，磁芯线圈的电感量等于空心线圈的电感量乘上磁芯的相对磁导率。"
Parse "InputType1",false
SetVar "InputType2",""
Parse "InputList",true
SetVar "ActionFile","Coil_LC.asp?MenuName="&Server.URLEncode(MenuName)
Show_Title_List MenuName
' Parse "Main",true '无作用
mShowNavigationBottom vSiteName,"yes" '显示当前位置（位于底部）
mShowFooter vSiteName
Parse "All",false
response.write PrintVar("All")
if err then
response.write "Error:" & err.description
response.end
end if
Function Show_Title_List(vMenuName)
Dim vTitle,k,vContentTemp
Dim ObjMenu_Tree_View,vUrl
set objMenu_Tree_View=new clsMenu_Tree_View
With ObjMenu_Tree_View
.getallbyquery " And ParentName='" & vMenuName & "' And NodeOrder>0 Order By NodeOrder Asc"
if Not .Eof Then
k=1
vContentTemp=""
Do While Not .Eof
vTitle=gCheckNullStr(.MenuName)
vUrl=gCheckNullStr(.MenuUrl)
if vUrl<>"#" then
vUrl=vUrl&"?MenuName="&Server.URLEncode(vMenuName)&"&SiteName="&Server.URLEncode(vSiteName)
end if
If ((k-1) mod 2)=0 Then
vContentTemp=vContentTemp&"
"
End If
If instr(GbLimitTitle(vTitle,20),"...")>0 Then
vContentTemp=vContentTemp&"