由於對 Google 服務的不可自拔, 我早已投向 Chrome 陣營已久, IE? 那個對 CCS3 支援度總是不及格的爛貨, 早被一腳踢開. 但最近發現我的 Chrome 開啟甚慢, 甚至當掉, 真是令我惱火. 今天查了一下, 找到解藥了, 原來是外掛搞的鬼, 通通關掉就沒事了. 位置在 "工具/擴充功能" 全部取消勾選, 重開 Chrome, 就恢復往日雄風矣.
參考 :『正解』Chrome開網頁變很慢的原因
2013年8月27日 星期二
2013年8月13日 星期二
出賣老朋友
換新電視已一個月，老電視換下來一直在客廳占據一個角落，週日叫二哥幫忙一起抬上後車廂，原想趁接阿英之便把它賣掉，無奈那家中古屋假日休息，結果又載回家。
昨晚載阿英與椏晴去後火車站趕 8:15 的自強號，順路把那台已十六歲的三洋 29 吋老電視載去民族建工路口估價。結果老闆一看，說這是舊款的(黑框)，不整理了，只能以廢品回收。於是，我就以 120 元出賣了 16 年的好朋友，殘念。回家告訴姐姐，她說哇，比她還大兩歲，我說，應該叫妳們跟老電視合照才對呀，妳們學步時都曾攀著它拍打螢幕咧，呵呵，現在的液晶電視能這樣拍麼。早上上班時路過那家店，特地停下來為它拍張照，唉，孤怜怜的放在一堆廢品中，別了，老朋友 ....。
昨晚載阿英與椏晴去後火車站趕 8:15 的自強號，順路把那台已十六歲的三洋 29 吋老電視載去民族建工路口估價。結果老闆一看，說這是舊款的(黑框)，不整理了，只能以廢品回收。於是，我就以 120 元出賣了 16 年的好朋友，殘念。回家告訴姐姐，她說哇，比她還大兩歲，我說，應該叫妳們跟老電視合照才對呀，妳們學步時都曾攀著它拍打螢幕咧，呵呵，現在的液晶電視能這樣拍麼。早上上班時路過那家店，特地停下來為它拍張照，唉，孤怜怜的放在一堆廢品中，別了，老朋友 ....。
被棄置中古店一角的老電視
機後的銘牌-三洋 ST2967
2013年8月12日 星期一
薛丁格之貓
今天 Google 首頁是紀念量子力學奠基者, 1933 年諾貝爾物理獎得主薛丁格 126 歲誕辰, 那隻貓畫得好可愛呀. 我對相對論的概念較為熟悉, 對量子力學則不甚了了, 但薛丁格之名, 以前讀物理學時早已銘記在心. 他的主要貢獻是以微分方程式形式提出波動力學, 描述了量子世界中, 量子的統計行為. 我找到台大的 CSAE 說明如下, 但有看沒有懂, 也許這就是愛因斯坦一直無法接受量子力學的原因吧.
## 【物理發展史】薛丁格（Erwin Schrödinger）之貓
## 台大科學教育中心 CASE PRESS
## 維基百科 : 埃爾溫薛丁格
## 薛丁格方程式
## 【物理發展史】薛丁格（Erwin Schrödinger）之貓
## 台大科學教育中心 CASE PRESS
## 維基百科 : 埃爾溫薛丁格
## 薛丁格方程式
外星人展
因為參加音樂比賽, 所以本週沒有回鄉下, 早上帶小狐狸們去科工館看外星人展, 結果興沖沖地去, 卻感到很失望, 因為展出的內容我全部都知道了, 連奇怪的月球都沒有提. 不過話說回來, 對許多小朋友來說可能很新鮮吧! 我家小狐狸則是常聽我講述外星人的事情, 所以覺得不新鮮. 大約五月初時, 菁菁班上最後一堂晨光教學, 我就給他們介紹關於月亮很可能是外星人基地的問題, 他們聽了也是目瞪口呆.
## (簡體字)外星人就在月球背面
## 外星人就在月球背面：破解外星人踪迹真相
## 月球背面之謎：金字塔、UFO和轟炸機
## (簡體字)外星人就在月球背面
## 外星人就在月球背面：破解外星人踪迹真相
## 月球背面之謎：金字塔、UFO和轟炸機
2013年8月11日 星期日
Yamaha 音樂比賽
昨天晚上在長青活動中心舉辦山葉音樂比賽, 但下午 1:30 就開始試音, 試音完只有兩小時空檔, 回家太趕, 所以大半天我都窩在那裡, 一直到晚上九點半結束, 回到家已快十點.
這次丁老師的班隊都有得名, 二哥那班的 "莫拉克" 隊以 Michael Jackson 的 "Beat it" 得到銅賞獎, 姐姐的 "六人樂坊" 隊得到最佳合奏獎. 丁老師是唯一在台上載歌載舞的, 我以為 Beat it 會得到最佳創意獎呢.
這次丁老師的班隊都有得名, 二哥那班的 "莫拉克" 隊以 Michael Jackson 的 "Beat it" 得到銅賞獎, 姐姐的 "六人樂坊" 隊得到最佳合奏獎. 丁老師是唯一在台上載歌載舞的, 我以為 Beat it 會得到最佳創意獎呢.
六人樂坊獲最佳合奏獎
六人樂坊隊試音
莫拉克隊試音
莫拉克隊獲銅賞獎
2013年8月4日 星期日
用 PHP 計算樣本相關係數
今天看 "真希望老師這樣教統計" 越看越有趣, 其中相關係數的計算, 書裡講的都是關於母體的計算, 但現實例子大都是有限樣本, 這時就要考慮自由度減 1 問題. 所謂相關係數是指 X,Y 兩組數據之間的關連性 :
X,Y 的相關係數=(X,Y 的共變異數) / (X 的樣本標準差 * Y 的樣本標準差)
而所謂樣本共變異數則是 :
X,Y 的共變異數=X,Y 的離均差交乘積和 / (樣本數 - 1)
這裡在母體共變異數是不用減 1 的, 在樣本因自由度少 1 故要減 1.
$X=Array(25,23,27,35,30);
$Y=Array(35,27,36,45,42);
$xavg=array_sum($X)/count($X); //X 平均值
$yavg=array_sum($Y)/count($Y); //Y 平均值
$xsum=array_sum($X); //X 總和
$ysum=array_sum($Y); //Y 總和
$x_square_sum=0; //X 平方和累計
$y_square_sum=0; //Y 平方和累計
$XMD=Array(); //X 離均差
$YMD=Array(); //Y 離均差
$mdcross_sum=0; //X,Y 離均差交乘積和
$count=count($X); //元素個數
for ($i=0; $i <$count; ++$i) {
$xdif=(float)$X[$i]-$xavg; //X 離均差
$ydif=(float)$Y[$i]-$yavg; //Y 離均差
$XMD[$i]=$xdif;
$YMD[$i]=$ydif;
$mdcross_sum += $xdif*$ydif; //X,Y 離均差交乘積和
$xdif_square_sum += pow($xdif, 2); //X 離均差平方和
$x_square_sum += pow($X[$i], 2); //X 平方和累計
$y_square_sum += pow($Y[$i], 2); //Y 平方和累計
} //end of for
//計算樣本標準差 & 乘積
$xstd=sqrt(($x_square_sum-pow($xsum,2)/$count)/($count-1));
$ystd=sqrt(($y_square_sum-pow($ysum,2)/$count)/($count-1));
$xystd=$xstd*$ystd; //兩標準差乘積
//計算樣本共變異數
$covar=$mdcross_sum/($count-1);
//計算相關係數
$corr=$covar/$xystd; //答案是 0.94137554144354
其實同樣數據, 我用母體公式計算相關係數, 答案也是 0.94, 沒什麼差異.
參考網站 :
http://stat.nuk.edu.tw/prost/content2/statics_6.htm (樣本共變異數)
http://greenhornfinancefootnote.blogspot.tw/2007/08/blog-post_27.html (樣本標準差)
X,Y 的相關係數=(X,Y 的共變異數) / (X 的樣本標準差 * Y 的樣本標準差)
而所謂樣本共變異數則是 :
X,Y 的共變異數=X,Y 的離均差交乘積和 / (樣本數 - 1)
這裡在母體共變異數是不用減 1 的, 在樣本因自由度少 1 故要減 1.
$X=Array(25,23,27,35,30);
$Y=Array(35,27,36,45,42);
$xavg=array_sum($X)/count($X); //X 平均值
$yavg=array_sum($Y)/count($Y); //Y 平均值
$xsum=array_sum($X); //X 總和
$ysum=array_sum($Y); //Y 總和
$x_square_sum=0; //X 平方和累計
$y_square_sum=0; //Y 平方和累計
$XMD=Array(); //X 離均差
$YMD=Array(); //Y 離均差
$mdcross_sum=0; //X,Y 離均差交乘積和
$count=count($X); //元素個數
for ($i=0; $i
$ydif=(float)$Y[$i]-$yavg; //Y 離均差
$XMD[$i]=$xdif;
$YMD[$i]=$ydif;
$mdcross_sum += $xdif*$ydif; //X,Y 離均差交乘積和
$xdif_square_sum += pow($xdif, 2); //X 離均差平方和
$x_square_sum += pow($X[$i], 2); //X 平方和累計
$y_square_sum += pow($Y[$i], 2); //Y 平方和累計
} //end of for
//計算樣本標準差 & 乘積
$xstd=sqrt(($x_square_sum-pow($xsum,2)/$count)/($count-1));
$ystd=sqrt(($y_square_sum-pow($ysum,2)/$count)/($count-1));
$xystd=$xstd*$ystd; //兩標準差乘積
//計算樣本共變異數
$covar=$mdcross_sum/($count-1);
//計算相關係數
$corr=$covar/$xystd; //答案是 0.94137554144354
其實同樣數據, 我用母體公式計算相關係數, 答案也是 0.94, 沒什麼差異.
參考網站 :
http://stat.nuk.edu.tw/prost/content2/statics_6.htm (樣本共變異數)
http://greenhornfinancefootnote.blogspot.tw/2007/08/blog-post_27.html (樣本標準差)
文人國防部長又怎樣
前國防部長因下士之死負責請辭下台, 改由副手接任, 媒體說這是馬政府第一位文人國防部長, 好像又可以列入自吹自擂的政績囉. 愚以為, 文人國防部長那又怎樣? 只不過頂了個博士光環, 馬政府酷愛博士又不是今天才知道, 結果咧, 還被轟人渣治國, 博士有比較會治國嗎?
談到文人, 嘿嘿, 所謂文人, 就是兩片嘴皮子動得比較快的白面書生, 通常都是手無縛雞之力, 貪生怕死之輩. 話講得都很漂亮, 但是不是幹才, 要看有沒有魄力. 高部長我個人就很欣賞其魄力, 像叛國者林毅夫想返台, 政府上自總統下至移民官員, 我想大概都準備好了, 但部長說回來可以, 先移送軍事法庭再說. 他如果可以衣錦還鄉, 那當年戌守外島的全軍官兵不是肖為嗎? 昔周天子默許三家分晉, 從此就沒有諸侯會再鳥周室了, 大是大非而已.
國防部長是不是文人並不是很重要, 軍隊國家化才是核心價值.
談到文人, 嘿嘿, 所謂文人, 就是兩片嘴皮子動得比較快的白面書生, 通常都是手無縛雞之力, 貪生怕死之輩. 話講得都很漂亮, 但是不是幹才, 要看有沒有魄力. 高部長我個人就很欣賞其魄力, 像叛國者林毅夫想返台, 政府上自總統下至移民官員, 我想大概都準備好了, 但部長說回來可以, 先移送軍事法庭再說. 他如果可以衣錦還鄉, 那當年戌守外島的全軍官兵不是肖為嗎? 昔周天子默許三家分晉, 從此就沒有諸侯會再鳥周室了, 大是大非而已.
國防部長是不是文人並不是很重要, 軍隊國家化才是核心價值.
2013年8月3日 星期六
信用破產四面楚歌
今天二十萬人上凱道, 但我覺得馬政府是不會理你的, 因為官員太了解了, 新聞熱度一過, 就 ~~~ 沒事了, 下鄉的下鄉, Long Stay 的 Long Stay, 甲級動員的就甲級動員, 喬標案的繼續喬, 嘿嘿, 廣大興案不就是這樣嗎? 你還記得軍艦駛到巴士海峽耀武揚威的樣子嗎? 小琉球的漁民朋友, 請問最近還有看到護漁嗎?
這, 就是官僚.
政府會這付德行, 國家機器會零件掉滿地, 顢頇不鳥你, 是因為絕對權力, 絕對執政的後果. 政客不講信用, 白紙黑字打包票了, 還用偷襲那種見不得人的步數強拆 (你是官府耶), 貴為副總統不僅毫無愧意, 還說沒有背信; 還有 ECFA 會ㄟ擱發, 請問發到哪裡去了? 633 呢? 捐半薪呢? 又再開玩笑了嗎? "不關他就關你" 也是一句玩笑話? 都是一騙到底, 從上到下都在騙, 古云民無信不立, 官無信呢? 沒票! 你今天信用破產, 以後即使講真話也沒人信了.
另外, 我覺得不分區立委是政黨綁架民權的可惡設計, 那些堅決執行黨意不鳥民意的, 都是這些沒有民意基礎的不分區立委, 這些人憑什麼當立委? 這都是政黨權力自肥的骯髒制度, 通通要拆掉.
國家要上軌道, 就是一個信字. 言而無信, 不知其可.
我們的軍隊真的國家化了嗎? 法院還是某黨開的嗎? 不義黨產何時要歸還人民? 要如何防範財團染指媒體? 這些先解決了, 再來談教育改革才會有意義, 不然學校敎的跟現實都相反, 不會精神分裂才怪.
這, 就是官僚.
政府會這付德行, 國家機器會零件掉滿地, 顢頇不鳥你, 是因為絕對權力, 絕對執政的後果. 政客不講信用, 白紙黑字打包票了, 還用偷襲那種見不得人的步數強拆 (你是官府耶), 貴為副總統不僅毫無愧意, 還說沒有背信; 還有 ECFA 會ㄟ擱發, 請問發到哪裡去了? 633 呢? 捐半薪呢? 又再開玩笑了嗎? "不關他就關你" 也是一句玩笑話? 都是一騙到底, 從上到下都在騙, 古云民無信不立, 官無信呢? 沒票! 你今天信用破產, 以後即使講真話也沒人信了.
另外, 我覺得不分區立委是政黨綁架民權的可惡設計, 那些堅決執行黨意不鳥民意的, 都是這些沒有民意基礎的不分區立委, 這些人憑什麼當立委? 這都是政黨權力自肥的骯髒制度, 通通要拆掉.
國家要上軌道, 就是一個信字. 言而無信, 不知其可.
我們的軍隊真的國家化了嗎? 法院還是某黨開的嗎? 不義黨產何時要歸還人民? 要如何防範財團染指媒體? 這些先解決了, 再來談教育改革才會有意義, 不然學校敎的跟現實都相反, 不會精神分裂才怪.
用 PHP 求線性迴歸方程式
今天去左新還書借書, 找到這本 "真希望老師這樣教統計", 覺得很面熟, 好像有買過, 又怕萬一沒買, 所以先借再說, 結果回家一找, 真的在書架上有, 下週再還吧. 稍微翻了一下, 剛好翻到上回討論的變異係數, 哇, 解說非常清楚, 這種好書買來竟然擱在書架上這麼久! 接著看到介紹迴歸分析, 如果兩組數據相關係數很高, 可以用一條近似直線 Y=a + bX 來預估, 謂之線性迴歸, 嘿, 那這斜率 b 是否可以用來代表營益率的變化趨勢呢?
根據統計學理論, Y=a + bX 中,
b=X,Y 離均差交乘積和 / X 離均差平方和
a=Y 平均值 - b * X 平均值
其 PHP 程式如下 :
線性迴歸方程式 : http://mybidrobot.allalla.com/finance/regression.php [看原始碼]
$X=explode(",",$_REQUEST["X"]);
$Y=explode(",",$_REQUEST["Y"]);
$xavg=array_sum($X)/count($X); //X 平均值
$yavg=array_sum($Y)/count($Y); //Y 平均值
$XMD=Array(); //X 離均差
$YMD=Array(); //Y 離均差
$mdcross_sum=0; //X,Y 離均差交乘積和
$xdif_square_sum=0; //X 離均差平方和
$count=count($X);
for ($i=0; $i<count($X); $i++) {
$xdif=(float)$X[$i]-$xavg; //X 離均差
$ydif=(float)$Y[$i]-$yavg; //Y 離均差
$XMD[$i]=$xdif;
$YMD[$i]=$ydif;
$mdcross_sum += $xdif*$ydif; //X,Y 離均差交乘積和
$xdif_square_sum += pow($xdif, 2); //X 離均差平方和
} //end of for
$b=round($mdcross_sum/$xdif_square_sum, 2); //計算斜率 b
$a=round($yavg-$b*$xavg,2); //計算常數項 a
echo "X=".join(", ",$X)."<br>";
echo "Y=".join(", ",$Y)."<br>";
echo "常數項 a=".$a."<br>";
echo "斜率 b=".$b."<br>";
echo "線性迴歸方程式 Y = ".$a." + (".$b.")X<br>";
echo "X 平均值=".$xavg."<br>";
echo "Y 平均值=".$yavg."<br>";
echo "X 離均差=".join(", ",$XMD)."<br>";
echo "Y 離均差=".join(", ",$YMD)."<br>";
echo "X,Y 離均差交乘積和=".$mdcross_sum."<br>";
echo "X 離均差平方和=".$xdif_square_sum."<br>";
參考 : SQL server一元线性回归统计说明
根據統計學理論, Y=a + bX 中,
b=X,Y 離均差交乘積和 / X 離均差平方和
a=Y 平均值 - b * X 平均值
其 PHP 程式如下 :
線性迴歸方程式 : http://mybidrobot.allalla.com/finance/regression.php [看原始碼]
$X=explode(",",$_REQUEST["X"]);
$Y=explode(",",$_REQUEST["Y"]);
$xavg=array_sum($X)/count($X); //X 平均值
$yavg=array_sum($Y)/count($Y); //Y 平均值
$XMD=Array(); //X 離均差
$YMD=Array(); //Y 離均差
$mdcross_sum=0; //X,Y 離均差交乘積和
$xdif_square_sum=0; //X 離均差平方和
$count=count($X);
for ($i=0; $i<count($X); $i++) {
$xdif=(float)$X[$i]-$xavg; //X 離均差
$ydif=(float)$Y[$i]-$yavg; //Y 離均差
$XMD[$i]=$xdif;
$YMD[$i]=$ydif;
$mdcross_sum += $xdif*$ydif; //X,Y 離均差交乘積和
$xdif_square_sum += pow($xdif, 2); //X 離均差平方和
} //end of for
$b=round($mdcross_sum/$xdif_square_sum, 2); //計算斜率 b
$a=round($yavg-$b*$xavg,2); //計算常數項 a
echo "X=".join(", ",$X)."<br>";
echo "Y=".join(", ",$Y)."<br>";
echo "常數項 a=".$a."<br>";
echo "斜率 b=".$b."<br>";
echo "線性迴歸方程式 Y = ".$a." + (".$b.")X<br>";
echo "X 平均值=".$xavg."<br>";
echo "Y 平均值=".$yavg."<br>";
echo "X 離均差=".join(", ",$XMD)."<br>";
echo "Y 離均差=".join(", ",$YMD)."<br>";
echo "X,Y 離均差交乘積和=".$mdcross_sum."<br>";
echo "X 離均差平方和=".$xdif_square_sum."<br>";
參考 : SQL server一元线性回归统计说明
2013年8月2日 星期五
專案進度:修改 hello 程式
為了瞭解打招呼程式 hello.php 是否正常運作, 早上做了一些修改, 紀錄 GAE 最近一次打招呼時間跟遠端拜訪者資訊 :
date_default_timezone_set("Asia/Taipei");
include_once("lib/file.php");
$out="Hello! ".date("Y-m-d H:i:s")." from ".$_SERVER["REMOTE_ADDR"].
":".$_SERVER["REMOTE_PORT"]." ".$_SERVER["HTTP_USER_AGENT"];
write_file("./hello.txt",$out."\r\n");
echo $out."<br>";
date_default_timezone_set("Asia/Taipei");
include_once("lib/file.php");
$out="Hello! ".date("Y-m-d H:i:s")." from ".$_SERVER["REMOTE_ADDR"].
":".$_SERVER["REMOTE_PORT"]." ".$_SERVER["HTTP_USER_AGENT"];
write_file("./hello.txt",$out."\r\n");
echo $out."<br>";
2013年8月1日 星期四
heliohost 網站被停權
今天因為 x90x 網站的檔案管理畫面帶不出來, 於是改用 heliohost, 結果以 HT 帳號竟然無法登入後台, 網頁顯示停權宣告, 唉, 真令人吐血, 這樣的免費網站要如何跟 APPFOG 雲端拼呢? 這個 HELIOHOST 之前也申請過, 規定一大堆 (每個月要在論壇發表幾篇文章), 主機也很不穩, 常常當機.
heliohost.org : 登入 tony1966.heliohost.org
檢查之前申請的各網站, 發現只有 000a.biz 還堪用, OK, 暫時用這個吧, 只是備份網站較不方便而已. 老是被停權, 真是受夠了. 大不了回 GAE 發展. 使用免費資源開發專案, 到目前為止只有 GAE 與 APPFOG 這兩個雲端讓我豎起大拇指, 其他的業者, 據我的經驗, 都是死要錢, 但這樣反而更要不到錢. 像 GAE 與 APPFOG 這麼慷慨品質又好的, 若有需要付錢, 掏錢我也掏得心甘情願. 所以小鼻仔小眼睛的生意要做大, ㄟ係抹可能.
heliohost.org : 登入 tony1966.heliohost.org
檢查之前申請的各網站, 發現只有 000a.biz 還堪用, OK, 暫時用這個吧, 只是備份網站較不方便而已. 老是被停權, 真是受夠了. 大不了回 GAE 發展. 使用免費資源開發專案, 到目前為止只有 GAE 與 APPFOG 這兩個雲端讓我豎起大拇指, 其他的業者, 據我的經驗, 都是死要錢, 但這樣反而更要不到錢. 像 GAE 與 APPFOG 這麼慷慨品質又好的, 若有需要付錢, 掏錢我也掏得心甘情願. 所以小鼻仔小眼睛的生意要做大, ㄟ係抹可能.
訂閱：
文章
(
Atom
)