2014年5月30日 星期五

Delphi 7 class I

unit test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
 ShowMessage('Hello..World')
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color := clRed
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.font.color := ClBlack
end;

//顥示訊息
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(Edit1.text)
end;

//計算累加
procedure TForm1.Button3Click(Sender: TObject);
var i,sum: integer;
begin
sum := 0;
for i:= SpinEdit1.Value to SpinEdit2.value do sum :=sum + i ;
Showmessage (InttoStr(sum));
end;

// 計算偶數
procedure TForm1.Button4Click(Sender: TObject);
var i,sum: integer;
begin
sum := 0;
for i:= SpinEdit1.Value to SpinEdit2.value do if (i mod 2 = 0) then sum :=sum + i ;
Showmessage (InttoStr(sum));
end;

end.

2014年3月25日 星期二

自由軟體繪圖

1. 向量圖取得 http://openclipart.org/
2. 線上編輯工具 imagebot 




2014年3月11日 星期二

NCBI 縮寫表

Search Field
Short Field Specifier
Example
[Accession]
[ACCN]
AF123456[ACCN] 
[All Fields]
[ALL]
human[All Fields]   
[Author]
[AU]
venter jc[AUTH]  
[Gene Name]
[GENE]
BRCA1[GENE]  
[Organism]
[ORGN]
cellular organisms[ORGN]   
human[ORGN] 
[Properties]
[PROP]
Molecule type
biomol crna[PROP] 
biomol_genomic[PROP] 
biomol_mrna[PROP] 

Cellular location
gene_in_genomic[PROP]  
gene_in_mitochondrion[PROP]  
[ Name]
[PROT]
aldolase[PROT]  
[Sequence Length]
[SLEN]
755[SLEN] 
100:1000[SLEN] 
[Title]
[TI]
complete cds[TI] 
kinesin[TI]  
public type
Free full text
[ptyp]
"loattrfree full text"[sb]
review [ptyp] 
"loattrfree full text"[sb]

2013年10月22日 星期二

PS 筆記

1 . 旋轉 / 變型 文字 crtl + T

2013年4月30日 星期二

1. 上傳 html 文件至 火google drive


2. 連線網址 https://googledrive.com/host/xxxxxxxxxxxxx/


2013年4月11日 星期四


敏感性(sensitivity)與特異性(specificity)
敏感性: 陽性患者確診為陽性的比率  à a / a+c
特異性: 陰性患者確認為陰性的比率 à d / b+d

生病
沒生病
檢查陽性
a
b
檢查陰性
c
d

接收者操作特徵receiver operating characteristic,或者叫ROC曲線)是一種對於靈敏度進行描述的功能圖像。

--> 隨著檢測結果陽性率的增加, 偽陽性發生的比率也會上升, 因此ROC曲線以真陽性(TPR)為Y軸對偽陽性(FPR)為X軸畫出相關圖, 以驗證該檢測方法的合適性

真陽性(TPR) = 敏感性
偽陽性(FPR) = 1 - 特異性 


可用曲線下面積 (area under curve, AUC) 判別ROC鑑別率

AUC=0.5 無判別力 (no discrimination)
0.7 > AUC > 0.8 可接受判別力 (acceptable)
0.8 > AUC > 0.9 好的判別力 (excellent)
AUC > 0.9 非常好的判別力 (outstanding)

2013年3月25日 星期一

好友 再浮一白

年少時 醉酒當歌 人生快意 放不下的是學業成績上的紅與計數不盡的相思顏紅 
到如今 醉酒當歌 人生快意 放不下的是酒駕罰單上的紅與耳盼嘮叨的昔日顏紅

兒時年少 恣意 我笑 我痴 我狂 
而今白頭 歲月 笑我 痴我 狂我


青春寫下的印記依舊 夥伴去去來來依舊 
轉變的是那不再無据無束的你我

好友們 再浮一白

2012年11月22日 星期四

在同源的觀念中,常常見到這三個專有名詞"homologous、paralogous、orthologous" 其差異為:

Homologous (同源) = Paralogus (旁系同源) + Orthologous (直系同源)

Orthologous (直系同源) : 不同物種間負責相同功能的構造(可以指基因、蛋白質或構造)

Paralogus (旁系同源) : 同一物種 (或不同物種)內負責類似功能的兩構造 (可以指基因、蛋白質或構造)


例子:

1. 人的血紅蛋白包括四種 : 血紅蛋白A,血紅蛋白A2,血紅蛋白S和胎兒血紅蛋白,彼此間為旁系同源(Paralogus) ;免子與人類的血紅蛋白A 彼此間為直系同源(Orthologous)

圖片引自: http://lawaymayaw.blogspot.tw/2008/11/homolog-ortholog-and-paralog.html 


2012年11月13日 星期二

Windows 8 使用新倉頡


1. 從 Windows 7 資料夾檔案複製到 Windows 8 相對應的資料夾中如下(注意版本問題  Win8 64 bit  <-- 32="32" 32bit="32bit" 64bit="64bit" bit="bit" in8="in8" nbsp="nbsp" p="p" win7="win7">
32 bit
C:\Windows\system32\cintlgnt.ime
C:\Windows\system32\IME\IMETC10

64bit
C:\Windows\system64\cintlgnt.ime
C:\Windows\system64\IME\IMETC10

2. 執行 "倉頡.reg" 檔案註冊機碼。

------------------


Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\CTF\TIP\{531FDEBF-9B4C-4A43-A2AA-960E8FCDC732}\LanguageProfile\0x00000404\{F3BA907A-6C7E-11D4-97FA-0080C882687E}]
"Description"="Chinese (Traditional) - New ChangJie"
"Display Description"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,\
  52,00,6f,00,6f,00,74,00,25,00,5c,00,53,00,59,00,53,00,54,00,45,00,4d,00,33,\
  00,32,00,5c,00,69,00,6e,00,70,00,75,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,\
  2d,00,35,00,30,00,39,00,33,00,00,00
"IconFile"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,\
  74,00,25,00,5c,00,53,00,59,00,53,00,54,00,45,00,4d,00,33,00,32,00,5c,00,69,\
  00,6d,00,65,00,5c,00,49,00,4d,00,45,00,54,00,43,00,31,00,30,00,5c,00,49,00,\
  6d,00,54,00,43,00,54,00,69,00,70,00,2e,00,44,00,4c,00,4c,00,00,00
"IconIndex"=dword:00000002
"Enable"=dword:00000000


--------------------------


3. 於輸入法中,新增新倉頡輸入法。



附件 (如有侵權請告知, 將儘速移除)

2012年9月9日 星期日

風景照調整

1. 影像 --> 調整 --> 選取顏色 --> [藍色] : 青色 +80%, 洋紅+80% ;    [青色] : 青色 +80%, 洋紅+80% ;  [黃色] : 綠色 +80%;  [綠色] : 黃色+30%

2. 複製背景圖層 --> 濾鏡 --> 模糊 --> 高斯模糊 --> 強度 4pixls --> 混合模式: 濾色

3. 背景拷貝圖層 :  圖層 --> 圖層遮色片 --> 全部顯現

4. 圖層遮色片 : 影像 --> 套用影像

5. 解除圖層遮色片鏈結

6.  背景拷貝圖層 : --> 濾鏡 --> 模糊 --> 高斯模糊 --> 強度 16pixls

7, 筆刷調整