飆股的長相如何寫成選股程式

網友寄來今週刊的一篇文章，林則行的飆股的長相，問我能否寫成腳本及回測，這篇文章中提到林則行先生列舉了幾個選擇飆股的方法

一，平穩期之後急漲

二，成交量很重要

三，嚴守8%停損線

我寫了幾個，都沒有把其中的精神寫的很精準，後來請公司的高手出馬，寫了一個腳本如下

複製
1settotalbar(30);
2
3array:attack[10](0);
4variable:i(1);
5stochastic(9,3,3,value1,value2,value3);
6//計算KD
7condition1=value2>value3;
8//K>D的時候
9if H>value4 and condition1 
10//K>D的時候且創新高(抓高點)
11then begin
12	value4=H;
13	attack[1]=value4;
14end;
15if condition1[1] and not condition1
16//KD死亡交叉的時候統計攻頂的戰果
17then begin
18	for i=10 downto 2 attack[i]=attack[i-1];
19	//在陣列中依序發生順序向後排
20	value4=0;
21end;
22///////////////
23value5=attack[1];
24value6=attack[1];
25for i=2 to 4
26begin
27	if attack[i]>value5 then value5=attack[i];
28	if attack[i]<value6 and attack[i]>0 then value6=attack[i];
29end;
30//////////////最近5次攻頂戰果的最高與最低
31if value6>0 then value7=value5/value6-1;
32condition2=value7<0.05;
33///攻頂戰果最高與最低不超過5%
34if condition2[1] and not condition2 and H>attack[2]
35and volume>2000
36and GetField("主力買賣超張數","D")>2000
37and GetField("法人買賣超張數","D")>1000
38
39 then ret=1;
40///脫離攻頂戰果5%的區間而且本次還創攻頂戰果的新高
settotalbar(30);

array:attack[10](0);
variable:i(1);
stochastic(9,3,3,value1,value2,value3);
//計算KD
condition1=value2>value3;
//K>D的時候
if H>value4 and condition1 
//K>D的時候且創新高(抓高點)
then begin
	value4=H;
	attack[1]=value4;
end;
if condition1[1] and not condition1
//KD死亡交叉的時候統計攻頂的戰果
then begin
	for i=10 downto 2 attack[i]=attack[i-1];
	//在陣列中依序發生順序向後排
	value4=0;
end;
///////////////
value5=attack[1];
value6=attack[1];
for i=2 to 4
begin
	if attack[i]>value5 then value5=attack[i];
	if attack[i]<value6 and attack[i]>0 then value6=attack[i];
end;
//////////////最近5次攻頂戰果的最高與最低
if value6>0 then value7=value5/value6-1;
condition2=value7<0.05;
///攻頂戰果最高與最低不超過5%
if condition2[1] and not condition2 and H>attack[2]
and volume>2000
and GetField("主力買賣超張數","D")>2000
and GetField("法人買賣超張數","D")>1000

 then ret=1;
///脫離攻頂戰果5%的區間而且本次還創攻頂戰果的新高

根據這個腳本，如果去跑所有的股票，停損停利都設為8%，回測報告如下

看起來效果不錯

今天挑到的股票是這一檔

以上算是回覆網友的提問，抱歉拖的有點久，原因是我自己寫的腳本都不夠好。

歡迎各位把看到的文章分享給我來寫腳本及回測

我如果寫不出來會去請教公司的高手