奇狐社區論壇
在這個頁面顯示本主題全部的 6 個文章

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- {跟蹤庄家 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=8395)

由 21769136 在 2007-09-10 16:10 發表:

{跟蹤庄家

{跟蹤庄家}
DRAWGBK(1, COLORRGB(60,60,60),COLORRGB(50,50,50),1);

{-------------------☆功能--------------------}
{基礎---張三丰与泡哥的混合思路}
VAR1:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,1);
Zx1:=EMA(WINNER(C)*70,1);//主力籌碼:
Zx2:=(MA(Zx1,90)+MA(Zx1,120)+MA(Zx1,180)+MA(Zx1,250))/4;//主力籌碼長期均量（有了時間了）
Zx3:=EMA(Zx1,21);//主力籌碼月均量（哈哈，有了時間了）
Zx4:=VAR1-Zx1;//散籌控值
{信號}
ZW1:=EMA(WINNER(C)*70,3);//主力籌碼估算
ZW2:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,3);//散戶籌碼估算
主力:ZW1,PRECISION2,LINETHICK,COLORRED;//主力籌碼-----主
警戒:Zx2,LINETHICK,PRECISION2,COLORYELLOW;//主力長期均量---副1
主均:EMA(Zx1,21),LINETHICK,PRECISION2,Color1D6C1B;//主力月均量---副2
散籌:(VAR1-Zx1),LINETHICK,PRECISION2,COLORWHITE;//散籌控值---副3
{黑洞}
ZZLKP:=ZW1/(ZW1+ZW2)*100;//主力控籌碼比率
ZSHTL:=ZW2/(ZW1+ZW2)*100;//散戶套牢籌碼比率
黑洞:=BARSLAST(REF(ZSHTL,1)>90 AND ZSHTL<90);
主力控盤:=ROUND(ZZLKP);//系數
{庄家行蹤}
{XL}
XL1:=C;
XL2:=EMA(H,7);
XL3:=EMA(L,3);
FOR I=8 TO DATACOUNT DO BEGIN
IF XL1[I]>XL2[I-1] THEN B[I]:=1 ELSE
IF XL1[I]<XL3[I-1] THEN B[I]:=-1 ELSE
B[I]:=B[I-1];
END;
XL4:=IF(B=-1,MA(H,7),MA(L,3));//顯示線
XL5:=EMA(SLOPE(C,21)*20+C,55);//分界
ZJ1:=EMA(EMA(C,13),13);
ZJ2:=100*WINNER(C*0.95);
控盤:=(ZJ1-REF(ZJ1,1))/REF(ZJ1,1)*100;
無庄控盤:= 控盤<0;
有庄控盤:= 控盤>REF(控盤,1) AND 控盤>0;
高度控盤:= ZJ2>50 AND COST(85)<C AND 控盤>0;
主力出貨:= 控盤<REF(控盤,1) AND 控盤>0;
极弱股:=IF(控盤<0&&控盤<0&&C<XL4,控盤,0);
弱勢股:=IF(控盤<0&&控盤>ref(控盤,1),控?,0);
轉型股:=IF(C>XL4&&C<XL5,控盤,0);
強勢股:=IF(控盤>0&&C>XL4&&C>XL5,控盤,0);
{資金}
QJ1:=SUM(V*C,1)/SUM(V,1);
QJ2:=EMA(QJ1,13);
資金:FORCAST((QJ1-QJ2)*100/QJ1,5),LINETHICK,PRECISION2,Color0098FF;

{-----------------【圖解模板】---------------------}
{柱線}
STICKLINE(控盤<0,控盤*2.6,0,4,1),color888000;//無庄
STICKLINE(控盤>REF(控盤*0.8,1) AND 控盤>0,控盤*2.8,0,4,1),colorred;//有庄
STICKLINE(ZJ2>50 AND COST(85)<CLOSE AND 控盤>0,控盤*2,0,4,1),colorff00ff;//高控
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤*2,0,4,1),color00ff00;//出貨
{分級}
STICKLINE(极弱股<0,极弱股*3,0,0,0),ColorFF7850;
STICKLINE(弱勢股<0,弱勢股*2.8,0,0,0),ColorFFE76A;
STICKLINE(轉型股<0,轉型股*2,0,0,0),Color21BEE5;
STICKLINE(控盤>ref(控盤,1)&&控盤<0,控盤*2,0,0,0),Color21BEE5;
STICKLINE(強勢股>0,控盤*3,0,0,0),ColorBC57FF;
{寫字}
DRAWTEXT(BARPOS=SYSPARAM(2),0,'無庄控:'+NUMTOSTR(?庄控?[SYSPARAM(1)],0)),align4,color888000;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 有庄控:'+NUMTOSTR(有庄控盤[SYSPARAM(1)],0)),align4,colorred;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 高度控:'+NUMTOSTR(高度控盤[SYSPARAM(1)],0)),align4,colorff00ff;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 主力出:'+NUMTOSTR(主力出貨[SYSPARAM(1)],0)),align4,color00ff00;
{信號}
DRAWICON(CROSS(控盤,0) and 資金>ref(資金,1),-1.6,4),ALIGN;//信號
DRAWICON(CROSS(主力,散籌),散籌/10-2,8),PXDN6;//信號
{資金}
PARTLINE(C,資金*0.2),Color0098FF;
{信號}
PARTLINE(C,主力/10-2),COLORRED;//主力籌碼-----主
PARTLINE(C,警戒/10-2),COLORYELLOW;//主力長期均量---副1
PARTLINE(C,主均/10-2),LINETHICK2,Color1D6C1B;//主力月均量---副2
PARTLINE(C,散?/10-2),COLORWHITE;//散籌控值---副3
{標字}
DRAWTEXT(BARPOS=SYSPARAM(2),0,'黑洞距今:'+NUMTOSTR(黑洞[SYSPARAM(1)],0)+'天'),align5,ColorFFC5FF;
DRAWTEXT(FILTER(REF(ZSHTL,1)>90 AND ZSHTL<90,5),-0.26,'↑\n 黑洞'),ALIGN2,ColorFFC5FF;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 控盤系數：'+NUMTOSTR(主力控?[SYSPARAM(1)],0)),align5,COLORRED;

//

ZZLKP:=ZW1/(ZW1+ZW2)*100;//主力控籌碼比率?此處出現未標示
定義,請問如何修正?

由 ifuian 在 2007-09-10 18:43 發表:

{跟蹤庄家}
DRAWGBK(1, COLORRGB(60,60,60),COLORRGB(50,50,50),1);

{-------------------☆功能--------------------}
{基礎---張三丰与泡哥的混合思路}
VAR1:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,1);
Zx1:=EMA(WINNER(C)*70,1);//主力籌碼:
Zx2:=(MA(Zx1,90)+MA(Zx1,120)+MA(Zx1,180)+MA(Zx1,250))/4;//主力籌碼長期均量（有了時間了）
Zx3:=EMA(Zx1,21);//主力籌碼月均量（哈哈，有了時間了）
Zx4:=VAR1-Zx1;//散籌控值
{信號}
ZW1:=EMA(WINNER(C)*70,3);//主力籌碼估算
ZW2:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,3);//散戶籌碼估算
主力:ZW1,PRECISION2,LINETHICK,COLORRED;//主力籌碼-----主
警戒:Zx2,LINETHICK,PRECISION2,COLORYELLOW;//主力長期均量---副1
主均:EMA(Zx1,21),LINETHICK,PRECISION2,Color1D6C1B;//主力月均量---副2
散籌:(VAR1-Zx1),LINETHICK,PRECISION2,COLORWHITE;//散籌控值---副3
//黑洞
ZZLKP:=ZW1/(ZW1+ZW2)*100;//主力控籌碼比率
ZSHTL:=ZW2/(ZW1+ZW2)*100;//散戶套牢籌碼比率
黑洞:=BARSLAST(REF(ZSHTL,1)>90 AND ZSHTL<90);
主力控盤:=ROUND(ZZLKP);//系數
{庄家行蹤}
{XL}
XL1:=C;
XL2:=EMA(H,7);
XL3:=EMA(L,3);
FOR I=8 TO DATACOUNT DO BEGIN
IF XL1[I]>XL2[I-1] THEN B[I]:=1 ELSE
IF XL1[I]<XL3[I-1] THEN B[I]:=-1 ELSE
B[I]:=B[I-1];
END;
XL4:=IF(B=-1,MA(H,7),MA(L,3));//顯示線
XL5:=EMA(SLOPE(C,21)*20+C,55);//分界
ZJ1:=EMA(EMA(C,13),13);
ZJ2:=100*WINNER(C*0.95);
控盤:=(ZJ1-REF(ZJ1,1))/REF(ZJ1,1)*100;
無庄控盤:= 控盤<0;
有庄控盤:= 控盤>REF(控盤,1) AND 控盤>0;
高度控盤:= ZJ2>50 AND COST(85)<C AND 控盤>0;
主力出貨:= 控盤<REF(控盤,1) AND 控盤>0;
极弱股:=IF(控盤<0&&控盤<0&&C<XL4,控盤,0);
弱勢股:=IF(控盤<0&&控盤>ref(控盤,1),控盤,0);
轉型股:=IF(C>XL4&&C<XL5,控盤,0);
強勢股:=IF(控盤>0&&C>XL4&&C>XL5,控盤,0);
{資金}
QJ1:=SUM(V*C,1)/SUM(V,1);
QJ2:=EMA(QJ1,13);
資金:FORCAST((QJ1-QJ2)*100/QJ1,5),LINETHICK,PRECISION2,Color0098FF;

{-----------------【圖解模板】---------------------}
{柱線}
STICKLINE(控盤<0,控盤*2.6,0,4,1),color888000;//無庄
STICKLINE(控盤>REF(控盤*0.8,1) AND 控盤>0,控盤*2.8,0,4,1),colorred;//有庄
STICKLINE(ZJ2>50 AND COST(85)<CLOSE AND 控盤>0,控盤*2,0,4,1),colorff00ff;//高控
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤*2,0,4,1),color00ff00;//出貨
{分級}
STICKLINE(极弱股<0,极弱股*3,0,0,0),ColorFF7850;
STICKLINE(弱勢股<0,弱勢股*2.8,0,0,0),ColorFFE76A;
STICKLINE(轉型股<0,轉型股*2,0,0,0),Color21BEE5;
STICKLINE(控盤>ref(控盤,1)&&控盤<0,控盤*2,0,0,0),Color21BEE5;
STICKLINE(強勢股>0,控盤*3,0,0,0),ColorBC57FF;
{寫字}
DRAWTEXT(BARPOS=SYSPARAM(2),0,'無庄控:'+NUMTOSTR(無庄控盤[SYSPARAM(1)],0)),align4,color888000;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 有庄控:'+NUMTOSTR(有庄控盤[SYSPARAM(1)],0)),align4,colorred;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 高度控:'+NUMTOSTR(高度控盤[SYSPARAM(1)],0)),align4,colorff00ff;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 主力出:'+NUMTOSTR(主力出貨[SYSPARAM(1)],0)),align4,color00ff00;
{信號}
DRAWICON(CROSS(控盤,0) and 資金>ref(資金,1),-1.6,4),ALIGN;//信號
DRAWICON(CROSS(主力,散籌),散籌/10-2,8),PXDN6;//信號
{資金}
PARTLINE(C,資金*0.2),Color0098FF;
{信號}
PARTLINE(C,主力/10-2),COLORRED;//主力籌碼-----主
PARTLINE(C,警戒/10-2),COLORYELLOW;//主力長期均量---副1
PARTLINE(C,主均/10-2),LINETHICK2,Color1D6C1B;//主力月均量---副2
PARTLINE(C,散籌/10-2),COLORWHITE;//散籌控值---副3
{標字}
DRAWTEXT(BARPOS=SYSPARAM(2),0,'黑洞距今:'+NUMTOSTR(黑洞[SYSPARAM(1)],0)+'天'),align5,ColorFFC5FF;
DRAWTEXT(FILTER(REF(ZSHTL,1)>90 AND ZSHTL<90,5),-0.26,'↑\n 黑洞'),ALIGN2,ColorFFC5FF;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 控盤系數：'+NUMTOSTR(主力控盤[SYSPARAM(1)],0)),align5,COLORRED;

__________________
人外有人 天外有天 不懼不貪 亦富亦安

由 21769136 在 2007-09-11 15:38 發表:

引用:
最初由 ifuian 發表
{跟蹤庄家}
DRAWGBK(1, COLORRGB(60,60,60),COLORRGB(50,50,50),1);

{-------------------☆功能--------------------}
{基礎---張三丰与泡哥的混合思路}
VAR1:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,1);
Zx1:=EMA(WINNER(C)*70,1);//主力籌碼:
Zx2:=(MA(Zx1,90)+MA(Zx1,120)+MA(Zx1,180)+MA(Zx1,250))/4;//主力籌碼長期均量（有了時間了）
Zx3:=EMA(Zx1,21);//主力籌碼月均量（哈哈，有了時間了）
Zx4:=VAR1-Zx1;//散籌控值
{信號}
ZW1:=EMA(WINNER(C)*70,3);//主力籌碼估算
ZW2:=EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,3);//散戶籌碼估算
主力:ZW1,PRECISION2,LINETHICK,COLORRED;//主力籌碼-----主
警戒:Zx2,LINETHICK,PRECISION2,COLORYELLOW;//主力長期均量---副1
主均:EMA(Zx1,21),LINETHICK,PRECISION2,Color1D6C1B;//主力月均量---副2
散籌:(VAR1-Zx1),LINETHICK,PRECISION2,COLORWHITE;//散籌控值---副3
//黑洞
ZZLKP:=ZW1/(ZW1+ZW2)*100;//主力控籌碼比率
ZSHTL:=ZW2/(ZW1+ZW2)*100;//散戶套牢籌碼比率
黑洞:=BARSLAST(REF(ZSHTL,1)>90 AND ZSHTL<90);
主力控盤:=ROUND(ZZLKP);//系數
{庄家行蹤}
{XL}
XL1:=C;
XL2:=EMA(H,7);
XL3:=EMA(L,3);
FOR I=8 TO DATACOUNT DO BEGIN
IF XL1[I]>XL2[I-1] THEN B[I]:=1 ELSE
IF XL1[I]<XL3[I-1] THEN B[I]:=-1 ELSE
B[I]:=B[I-1];
END;
XL4:=IF(B=-1,MA(H,7),MA(L,3));//顯示線
XL5:=EMA(SLOPE(C,21)*20+C,55);//分界
ZJ1:=EMA(EMA(C,13),13);
ZJ2:=100*WINNER(C*0.95);
控盤:=(ZJ1-REF(ZJ1,1))/REF(ZJ1,1)*100;
無庄控盤:= 控盤<0;
有庄控盤:= 控盤>REF(控盤,1) AND 控盤>0;
高度控盤:= ZJ2>50 AND COST(85)<C AND 控盤>0;
主力出貨:= 控盤<REF(控盤,1) AND 控盤>0;
极弱股:=IF(控盤<0&&控盤<0&&C<XL4,控盤,0);
弱勢股:=IF(控盤<0&&控盤>ref(控盤,1),控盤,0);
轉型股:=IF(C>XL4&&C<XL5,控盤,0);
強勢股:=IF(控盤>0&&C>XL4&&C>XL5,控盤,0);
{資金}
QJ1:=SUM(V*C,1)/SUM(V,1);
QJ2:=EMA(QJ1,13);
資金:FORCAST((QJ1-QJ2)*100/QJ1,5),LINETHICK,PRECISION2,Color0098FF;

{-----------------【圖解模板】---------------------}
{柱線}
STICKLINE(控盤<0,控盤*2.6,0,4,1),color888000;//無庄
STICKLINE(控盤>REF(控盤*0.8,1) AND 控盤>0,控盤*2.8,0,4,1),colorred;//有庄
STICKLINE(ZJ2>50 AND COST(85)<CLOSE AND 控盤>0,控盤*2,0,4,1),colorff00ff;//高控
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤*2,0,4,1),color00ff00;//出貨
{分級}
STICKLINE(极弱股<0,极弱股*3,0,0,0),ColorFF7850;
STICKLINE(弱勢股<0,弱勢股*2.8,0,0,0),ColorFFE76A;
STICKLINE(轉型股<0,轉型股*2,0,0,0),Color21BEE5;
STICKLINE(控盤>ref(控盤,1)&&控盤<0,控盤*2,0,0,0),Color21BEE5;
STICKLINE(強勢股>0,控盤*3,0,0,0),ColorBC57FF;
{寫字}
DRAWTEXT(BARPOS=SYSPARAM(2),0,'無庄控:'+NUMTOSTR(無庄控盤[SYSPARAM(1)],0)),align4,color888000;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 有庄控:'+NUMTOSTR(有庄控盤[SYSPARAM(1)],0)),align4,colorred;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 高度控:'+NUMTOSTR(高度控盤[SYSPARAM(1)],0)),align4,colorff00ff;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 主力出:'+NUMTOSTR(主力出貨[SYSPARAM(1)],0)),align4,color00ff00;
{信號}
DRAWICON(CROSS(控盤,0) and 資金>ref(資金,1),-1.6,4),ALIGN;//信號
DRAWICON(CROSS(主力,散籌),散籌/10-2,8),PXDN6;//信號
{資金}
PARTLINE(C,資金*0.2),Color0098FF;
{信號}
PARTLINE(C,主力/10-2),COLORRED;//主力籌碼-----主
PARTLINE(C,警戒/10-2),COLORYELLOW;//主力長期均量---副1
PARTLINE(C,主均/10-2),LINETHICK2,Color1D6C1B;//主力月均量---副2
PARTLINE(C,散籌/10-2),COLORWHITE;//散籌控值---副3
{標字}
DRAWTEXT(BARPOS=SYSPARAM(2),0,'黑洞距今:'+NUMTOSTR(黑洞[SYSPARAM(1)],0)+'天'),align5,ColorFFC5FF;
DRAWTEXT(FILTER(REF(ZSHTL,1)>90 AND ZSHTL<90,5),-0.26,'↑\n 黑洞'),ALIGN2,ColorFFC5FF;
DRAWTEXT(BARPOS=SYSPARAM(2),0,' 控盤系數：'+NUMTOSTR(主力控盤[SYSPARAM(1)],0)),align5,COLORRED;



感激不盡............3Q 3Q 3Q.......

由 hy911 在 2007-09-16 17:19 發表:

需要进一步优化更好，谢谢

由 a27183526 在 2024-09-29 11:05 發表:

選股程式

這個改成選股程式,要如何修改,紅色箭頭出現時買進,

__________________
1

由 cgjj 在 2024-09-29 19:25 發表:

回覆: 選股程式

引用:
最初由 a27183526 發表
這個改成選股程式,要如何修改,紅色箭頭出現時買進,


末端加入此行，利用它做選股，就可以得到結果

選中:CROSS(控盤,0) and 資金>ref(資金,1) linethick0;
全部時間均為台灣時間, 現在時間為12:31
在這個頁面顯示本主題全部的 6 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.