求SCE-UA算法vba代码

' 首先定义几个常用的变量

Dim t, t0, t_min, t_max, t_final As Double

Dim r, delta_e, e, e_best, e_max, e_min As Double

Dim n_accept, n_iter As Integer

Dim s, s_best, s_new As Variant

' 初始化参数

t0 = 100

t_min = 1e-6

t_max = 100

t_final = 1e-6

n_accept = 0

n_iter = 0

' 计算初始解的能量

e = calculateEnergy(s)

e_best = e

s_best = s

' 主循环

Do

t = adjustTemperature(t0, t_min, t_max, t_final, n_accept, n_iter)

' 生成新的解

s_new = generateNewSolution(s)

' 计算新的解的能量

e_new = calculateEnergy(s_new)

' 计算能量差

delta_e = e_new - e

' 如果新的解更优，则接受新解

If delta_e <0 Then

s = s_new

e = e_new

' 更新最优解

If e_new <e_best Then

s_best = s_new

e_best = e_new

End If

' 增加接受次数

n_accept = n_accept + 1

Else

' 否则，以概率p接受新解

r = Rnd()

If r <Exp(-delta_e / t) Then

s = s_new

e = e_new

' 增加接受次数

n_accept = n_accept + 1

End If

End If

' 增加迭代次数

n_iter = n_iter + 1

Loop Until n_iter >MAX_ITER

' 返回最优解

S

SCE-UA算法的思想是采用欧氏距离来度量两个解的相似度，并利用此信息来调整模拟退火算法的参数，以提高算法的收敛速度。

SCE-UA算法的基本步骤如下：

选取一个初始解

计算初始解的能量

设置初始温度

设置冷却率

设置种群大小

进入循环

根据当前温度生成新的解

计算新的解的能量

计算能量差

如果新的解更优，则接受新解

否则，以概率p接受新解

计算新解与种群中其他解的欧氏距离

根据欧氏距离调整温度携渗

如果满足终止条件，则退出循环

返回最优解

SCE-UA算法的优点在于它能够更好地利用种群信息，从好隐扮而提高算法的收敛速度。但是，SCE-UA算法的缺友灶点是需要额外的存储空间来保存种群信息。

三星电视下载和安装APP的方法如下：

按遥控器的【项目】键，依次选择掘行【网络】-【网络设置】，根据家中条件，通过【有线】或【无线】方式连接互联网。

2.按【SMART HUB】键，在应用程序界面，向下选择【最热门】、【新增内容】或【类别】其中一项，如需查看全部内容请选择【类别】进入，然后根据个人需求，选择【类别】进入，再选择要下载的软件，电视将自动执行下载和局扮安装的 *** 作。判腊哗

通过把Content Type设置为application/octet stream 可以把动态生成的内容当作文件来下载 相信这个大家都会 那么用Content Disposition设置下载的文件名 这个也有不少人知道吧 基本上罩吵 下载程序都是这么写的

 header( Content Disposition: attachmentfilename= $filename)print Hello! ?> 

这样用浏览器打开之后 就可以下载document txt

但是 如果$filename是UTF 编码的 有些浏览器就无法正常处理了 比如把上面那个程序稍稍改一下

 header( Content Disposition: attachmentfilename= $filename)print Hello! ?>  

把程序保存成UTF 编码再访问 IE 下载的文件名就会乱码 FF 下下载的文慧友件名就只有 中文 两个字 Opera 下一切正常

输出的header实际上是这样子

Content Disposition: attachmentfilename=中文 文件名 txt

其实按照RFC 的定义 多语言编码的Content Disposition应该这么定义

Content Disposition: attachmentfilename*= utf %E %B %AD%E % % % %E % % %E %BB%B %E % % D txt

即

filename后面的等号之前要加 * filename的值用单引号分成三段 分别是字符集(utf ) 语言(空)和urlencode过的文件名 最好加上双引号 否则文件名中空格后面的部分在Firefox中显示不出来 注意urlencode的结果与php的urlencode函数结果不太相同 php的urlencode会把空格替换成+ 而这里需要替换成%

经过试验 发现几种主流浏览器的支持情况如下

IE attachmentfilename=

FF attachmentfilename= UTF 文件名

attachmentfilename*= utf

O attachmentfilename= UTF 文件名

Safari (Win) 貌似不支持？上述方法都不行

这物碧侍样看来 程序必须得这样写才能支持所有主流浏览器

  $encoded_filename = urlencode($filename)$encoded_filename = str_replace( + %

$encoded_filename)header( Content Type: application/octet stream )

if (preg_match( /MSIE/ $ua)) { header( Content Disposition: attachment

filename= $encoded_filename )} else if (preg_match( /Firefox/ $ua))

{ header( Content Disposition: attachmentfilename*= utf \ \ $filename )}

 else { header( Content Disposition: attachmentfilename= $filename )}print ABC ?>

lishixinzhi/Article/program/PHP/201311/21454

---