Computational models are commonly used in engineering design and scientific discovery activities for simulating
complex physical systems in disciplines such as fluid mechanics, structural dynamics, heat transfer, nonlinear
structural mechanics, shock physics, and many others. These simulators can be an enormous aid to engineers who
want to develop an understanding and/or predictive capability for complex behaviors typically observed in the
corresponding physical systems. Simulators often serve as virtual prototypes, where a set of predefined system
parameters, such as size or location dimensions and material properties, are adjusted to improve the performance
of a system, as defined by one or more system performance objectives. Such optimization or tuning of the
virtual prototype requires executing the simulator, evaluating performance objective(s), and adjusting the system
parameters in an iterative, automated, and directed way. System performance objectives can be formulated, for
example, to minimize weight, cost, or defects; to limit a critical temperature, stress, or vibration response; or
to maximize performance, reliability, throughput, agility, or design robustness. In addition, one would often
like to design computer experiments, run parameter studies, or perform uncertainty quantification (UQ). These
approaches reveal how system performance changes as a design or uncertain input variable changes. Sampling
methods are often used in uncertainty quantification to calculate a distribution on system performance measures,
and to understand which uncertain inputs contribute most to the variance of the outputs.
A primary goal for Dakota development is to provide engineers and other disciplinary scientists with a systematic
and rapid means to obtain improved or optimal designs or understand sensitivity or uncertainty using simulationbased
models. These capabilities generally lead to improved designs and system performance in earlier design
stages, alleviating dependence on physical prototypes and testing, shortening design cycles, and reducing product
development costs. In addition to providing this practical environment for answering system performance questions,
the Dakota toolkit provides an extensible platform for the research and rapid prototyping of customized
methods and meta-algorithms
標簽：
Optimization and Uncertainty Quantification
上傳時間：
2016-04-08
上傳用戶：huhu123456
asp實現限制一個ip只能訪問一次的方法
<%
'/////////////////////////////////////////////////////
'// //
'//作用：一個IP地址只允許訪問本頁一次 //
'//引用：<!-- #include file="Check_Ip.asp" --> //
'// //
'/////////////////////////////////////////////////////
'response.Charset = 936 '設置輸出編碼為簡體中文
'response.Buffer = false '關閉緩沖區
Dim Fso,ts,IpList,Cfs
'設置Cookies函數
Function SetCookie()
response.Cookies("IsBrow") = "Brow"
response.Cookies("IsBrow").Expires = Date+365
End Function
'記錄IP地址函數
Function WriteIp(FileName, IpAddress)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true)
ts.WriteLine IpAddress
ts.Close
Set ts = Nothing
Set Fso = Nothing
End Function
'讀取IP地址函數
Function ReadIpList(FileName)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FileExists(Server.MapPath(FileName)) Then
CreateFile("Iplist.txt")
Exit Function
End If
Set ts = Fso.OpenTextFile(Server.MapPath(FileName))
Iplist = ts.ReadAll
ts.Close
Set ts = Nothing
Set Fso = Nothing
ReadIpList = Iplist
End Function
'創建文件函數
Function CreateFile(FileName)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName))
Cfs.Close
Set Cfs = Nothing
Set Fso = Nothing
End Function
'關閉當前IE窗口函數(注:IE6下通過,其他瀏覽器未測試)
Function CloseWindow()
'response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>"
response.Redirect "http://www.baidu.com"
End Function
Ip = Request.ServerVariables("REMOTE_ADDR") '獲取瀏覽者IP地址
Cookie = Request.Cookies("IsBrow") '獲取當前Cookies
'response.Write Cookie
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then
response.Write "本站不允許使用代理訪問"
response.End()
Else
If Cookie = "Brow" Then
CloseWindow()
Else
If Instr(ReadIpList("Iplist.txt"),Ip) <>0 Then
CloseWindow()
Else
WriteIp "Iplist.txt" , Ip
End If
SetCookie()
End If
End If
%>
標簽：
asp
訪問
上傳時間：
2016-07-14
上傳用戶：helei0915
