停了的海纳百川

最近系统老弹广告窗口，极烦人，一查多了个服务， NT 服务: SDAgent Service (SDAgentService) - 北京兴华基业软件技术有限公司- %Program Files%\Common Files\smartde\sde.exe 。虽然禁用了，但是百毒之虫僵而不死，服务管理器只能够把他禁用，但是不能彻底删除，留下总是隐患，启动IE时还是会连带启动。写了一段脚本彻底删除没有用的服务，原代码奉上。

注意：服务删除后将很难恢复，请谨慎使用！不要删除系统原有服务，否则可能造成系统不稳定甚至崩溃。以后有空在写个添加的，不过很多服务都需要参数，误删后参数很难找回。

使用方法：
1.拷贝内容保存为DelSvr.vbs
2.打开开始菜单->运行->输入cmd->在命令行窗口中输入 cscript <路径>DelSvr.vbs <服务名>
3.如果不输入服务名，则显示系统所有的服务名。

'DelSvr v1.0
'seac 20:19 2005-11-27
'------------------------------------------------------------------------------------------------
'
' Usage: DelSvr [Service Name]
'
' Example 1: DelSvr --------Print all Services' name
' Example 2: DelSvr Service Name---Delete Service named [Service Name]
'
'------------------------------------------------------------------------------------------------

If WScript.Arguments.Count < 1 Then
    DelSvr ""
Else
    DelSvr Trim(WScript.Arguments(0))
End If

Function DelSvr(strSvr)
    On Error Resume Next
    Dim oWMI, oSvrs, oSvr
    Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
    If strSvr <> "" Then
        Set oSvrs = oWMI.ExecQuery("Select * From Win32_Service" & _
                  " WHERE  Name='" & strSvr & "'")
        For Each oSvr In oSvrs
            oSvr.StopService()
            oSvr.Delete()
            WScript.Echo "Service " & oSvr.Name & " has been deleted!"
        Next
    Else
    WScript.Echo "Please input a service name. " & vbCrLf & " Services: "
        Set oSvrs = oWMI.ExecQuery("Select * From Win32_Service")
        For Each oSvr In oSvrs
            WScript.Echo vbTab & oSvr.Name & "  (" & oSvr.DisplayName & ")"
        Next
    End If

    Set oSvr = Nothing
    Set oSvrs = Nothing
    Set oWMI = Nothing
    If Err.Number <> 0 Then
        WScript.Echo "Error ocurred: " & Err.Description
        Err.Clear
    End If
End Function

最近复习概率，发现查标准正态分布表太麻烦了，于是做了一个程序，源代码奉上。

在线查询点击这里

// x is the value
//where Random Varible X--N(mean, sd)
function NormDist(x, mean, sd) {
    var res = 0.0;
    var x2 = 0.0;
    var oor2pi = 1 / (Math.sqrt(2.0 * Math.PI));
    var t = 0.0;
 
    x2 = (x - mean) / sd;
    if (x2 == 0) 
        res = 0.5;
    else
    {
        t = 1 / (1.0 + 0.2316419 * Math.abs(x2));
        t = t * oor2pi * Math.exp(-0.5 * x2 * x2)
             * (0.31938153   + t
             * (-0.356563782 + t
             * (1.781477937  + t
             * (-1.821255978 + t * 1.330274429))));
            
        if (x2 > 0)
            res = 1.0 - t;
        else
            res = t;
    }
    return res;
}

在线查询点击这里

自从古巴比伦人在公元前7至6世纪使用7这个数字作为计时单位开始距今已有2千多年的历史了，现在每星期七天在世界各国都是统一的。我不知道古巴比伦人为什么选择这么一个数，但是这么个数却是有它的非凡之处。

先看一个趣味数学题：
有一个6位数，它有以下特性：
（1） 该数乘以3所得的结果相当于把它最高位放到最低位（即十万位变成个位数，下同）；
（2） 该数乘以2所得的结果相当于把（1）的结果的最高位放到最低位；
（3） 该数乘以6所得的结果相当于把（2）的结果的最高位放到最低位；
（4） 该数乘以4所得的结果相当于把（3）的结果的最高位放到最低位；
（5） 该数乘以5所得的结果相当于把（4）的结果的最高位放到最低位；
问这个6位数是多少？

感兴趣的朋友可以做一下，最终的结果是142857。（这跟7有什么关系啊？？别急！）

也就是这个142857，它是一个小数的循环体，这个小数的精确值就是七分之一！不信你可以除除看。
1÷7 = 0.142857142857142857142857……(142857)
2÷7 = 0.285714285714285714285714……(285714)
3÷7 = 0.428571428571428571428571……(428571)
4÷7 = 0.571428571428571428571428……(571428)
5÷7 = 0.714285714285714285714285……(714285)
6÷7 = 0.857142857142857142857142……(857142)

也就是说从星期一到星期六142857中的6个数分别轮流值班，星期天(7÷7=1.0)大家休息，古巴比伦人想的周到啊。
再看看这个数拆开会怎样。
首先：1+4+2+8+5+7 = 27，而 2+7 = 9；
再看：14+28+57 = 99；
最后：142+857 = 999。
还有：142857×7 ＝999999；
142857x142857 = 20408122449，而 20408+122449 = 142857。

来看看实质，这是一种质数，它们很特别，其倒数的循环体位数是它本身减一，除了7还有很多，比如17，19，23等等。数学家高斯曾提出一个这样的问题：是否存在无穷多的质数P，使得1÷P的循环体是P-1位？事实上，如果黎曼假设成立，那么高斯的问题的就是肯定的。（黎曼假设是什么？这个自己查一查吧。）

另外一篇和7有些关系的文章6174猜想

羚羊失恋后，一阵狂奔，上演了一幕守株待兔……

注意：1. 本站的视频文件皆来自网络，如果侵犯了版权，请告知我，我马上删除。
2. 影片需要手工点击播放按钮开始，如果画面不流畅，会自动播放第二遍，那时就流畅了。另一种解决办法是把本页加入收藏夹，等早晨或者晚上网速较快时观看。

这个在做实验时很有用，可以根据需要省略后面的。
还有个精确到100万位的，点击这里下载（本地）
还有精确到120亿位的，到这里下载（非本地）
阅读全文...