陰陽乾坤－－由大機構陰陽乾坤改寫的指標公式(公式、源碼 主圖指標公式 演示圖)

相關標簽:

 

{陰陽乾坤}
A1:=1;
MID:EMA(CLOSE,17)*A1,LINETHICK1,colorFFFFFF;
UPPER:MID+2*STD(CLOSE,17),LINETHICK1;
LOWER:MID-2*STD(CLOSE,17),LINETHICK1,colorFFFF80;
UPPERO:MID+3*STD(CLOSE,17),LINETHICK1;
LOWERO:MID-3*STD(CLOSE,17),LINETHICK1,colorFFFF80;
DRAWICON(CROSS(LOW,LOWERO),LOW,1),ALIGN0;
DRAWICON(CROSS(HIGH,UPPERO),HIGH,2),ALIGN2;
DRAWTEXT(CROSS(LOWERO,LOW),LOW-0.01,''),ALIGN1;
DRAWTEXT(CROSS(LOWERO,LOW),LOW-0.01,''),ALIGN1;
LOCK:=IF(CURRENTDATE<1160101,1,0);
{VAR1:MD(CLOSE,20);
PARTLINE(VAR1>REF(VAR1,2),VAR1),LINETHICK2,colorFF00FF;}
{PARTLINE(VAR1=REF(VAR1,2),VAR1),LINETHICK2,colorFF0000;}
{PARTLINE(VAR1<REF(VAR1,2),VAR1),LINETHICK2;}
M1:=MA(CLOSE,5);
M2:=MA(CLOSE,10);
M3:=MA(CLOSE,20);
M4:=MA(CLOSE,60);
M5:=MA(CLOSE,120);
PM3:=MA(CLOSE,30);
DRAWICON(M1>M2
AND M2>M3 AND M2>M4 AND M2>M5 AND M2>PM3 AND REF(M1,1)<M1 AND
REF(M2,1)<M2 AND REF(M3,1)<M3 AND
REF(PM3,1)<PM3,OPEN,12);
{BB:=BARPOS=SYSPARAM(1);
VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
P:=SYSPARAM(1);
STR1:='今天是：'+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日,
'+WDAY[WD[P]+1];
EXPLAIN(BARPOS=P,STR1),colorFF;
EXPLAIN(1,STKLABEL+STKNAME+'\n所屬板塊:'+BLKNAME),colorFFFF80;
EXPLAIN(CLOSE>0,'〓
K 線形態分析 〓 '),colorFFFFFF;}
{大智慧K線自動解盤
:}
早晨之星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1)<REF(CLOSE,2) AND
ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND
CLOSE>REF(CLOSE,2);
黃昏之星:=REF(CLOSE,2)/REF(OPEN,2)>1.03 AND
REF(OPEN,1)>REF(CLOSE,2) AND
ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND
CLOSE<REF(CLOSE,2);
長十字:=CLOSE=OPEN AND HIGH/LOW
>1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND
CLOSE<>HIGH;
早晨十字星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND
REF(OPEN,1)<REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN>1.05
AND CLOSE>REF(CLOSE,2);
黃昏十字星:=REF(CLOSE,2)/REF(OPEN,2)>1.05 AND
REF(OPEN,1)>REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN<0.95
AND CLOSE<REF(CLOSE,2);
射擊之星:=MIN(OPEN,CLOSE)=LOW AND
HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND
CLOSE>MA(CLOSE,5);
倒轉錘頭:=MIN(OPEN,CLOSE)=LOW AND
HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE<MA(CLOSE,5);
錘頭:=HIGH =
MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND
CLOSE<MA(CLOSE,5);
吊頸:=HIGH = MAX(OPEN,CLOSE) AND
HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND
CLOSE>MA(CLOSE,5);
穿頭破腳:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND
CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1)) OR
(REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND
CLOSE>REF(OPEN,1) AND
OPEN<REF(CLOSE,1));
烏云蓋頂:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND
CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND
CLOSE<REF(CLOSE,1);
曙光初現:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND
CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND
CLOSE>REF(CLOSE,1);
身懷六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04
AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND
MAX(CLOSE,OPEN)<MAX(REF(CLOSE,1),REF(OPEN,1)) AND
MIN(CLOSE,OPEN)>MIN(REF(CLOSE,1),REF(OPEN,1));
十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04
AND CLOSE=OPEN AND CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE >
MIN(REF(CLOSE,1),REF(OPEN,1));
平頂:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001
and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001);
大陽燭:=CLOSE/OPEN>1.05
AND HIGH/LOW<CLOSE/OPEN+0.018;
三個白武士:=REF(CLOSE,2)>REF(OPEN,2) AND
REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN AND REF(CLOSE,1)>REF(CLOSE,2)
AND CLOSE>REF(CLOSE,1);
雙飛烏鴉:=REF(CLOSE,1)<REF(OPEN,1) AND
CLOSE<OPEN AND CLOSE/OPEN<0.98;
孕育線:=REF(CLOSE,2)>REF(OPEN,2) AND
(REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100 AND
REF(OPEN,1)>=REF(CLOSE,1) AND
(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND
REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND
(CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1)
AND
(MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2)
AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;
出水芙蓉:=(OPEN<EMA(C,20)
OR OPEN<EMA(C,40) OR OPEN<EMA(C,60)) AND
(C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60)))) AND (V/MA(V,30)>1.2 AND
C/REF(C,1)>1.049);
上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND
REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND
REF(CLOSE,1)<REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND
REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND
REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND
CLOSE>REF(CLOSE,4);
下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND
REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND
REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND
REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND
REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND
REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
CLOSE<REF(CLOSE,4);
跳空缺口:=HIGH<REF(LOW,1) OR
LOW>REF(HIGH,1);
三只烏鴉:=REF(CLOSE,2)<REF(OPEN,2) AND
REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2)
AND CLOSE<REF(CLOSE,1);
光腳陰線:=LOW=CLOSE AND
HIGH<>LOW;
光頭陽線:=HIGH=CLOSE AND
HIGH<>LOW;
分離:=OPEN=REF(OPEN,1) AND
(CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
長下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
長上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN
AND HIGH<>LOW;
大陰燭:=OPEN/CLOSE > 1.05 AND HIGH/LOW <
OPEN/CLOSE+0.018;
好友反攻:=(REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND
ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND
CLOSE<OPEN AND
ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);
傾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND
O<REF(C,1) AND O>REF(O,1) AND C<REF(O,1);
if DISPSTATUS=2 then
begin;
var1000:='.';
if 傾盆大雨 then var1000:=var1000+'傾盆大雨,見頂信號;';
if
大陰燭 then var1000:=var1000+'大陰燭,后市向淡,發生逆轉;';
if 好友反攻 then
var1000:=var1000+'好友反攻,底部反轉;';
if 跳空缺口 then
var1000:=var1000+'跳空缺口,注意向上還是向下跳空;';
if 光腳陰線 then
var1000:=var1000+'光腳陰線,下跌信號;';
IF 光頭陽線 then
var1000:=var1000+'光頭陽線,后市看漲;';
IF 三只烏鴉 then
var1000:=var1000+'三只烏鴉,可能見頂回落;';
IF 分離 then
var1000:=var1000+'分離,注意看漲分離和看跌分離;';
IF 長下影 then
var1000:=var1000+'長下影,持續下跌后出現,有可能止跌回升;在升勢末期出現,須多加留意;';
IF 長上影 then
var1000:=var1000+'長上影,表明行情上檔壓力沉重,升勢受阻;';
IF 下跌三部曲 then
var1000:=var1000+'下跌三部曲,下跌信號;';
IF 上升三部曲 then
var1000:=var1000+'上升三部曲,上漲信號;';
IF 早晨之星 then
var1000:=var1000+'早晨之星,見底回升;';
IF 黃昏之星 then
var1000:=var1000+'黃昏之星,見頂回落;';
IF 十字星 then
var1000:=var1000+'十字星,有轉向意味,注意股價位置在頂部還是底部;';
IF 長十字 then
var1000:=var1000+'長十字,注意在頂部還是底部;';
IF 垂死十字 then
var1000:=var1000+'垂死十字,下跌信號;';
IF 早晨十字星 then
var1000:=var1000+'早晨十字星,上漲信號,見底回升;';
IF 黃昏十字星 then
var1000:=var1000+'黃昏十字星,下跌信號,見頂回落;';
IF 射擊之星 then
var1000:=var1000+'射擊之星,可能見頂回落,可靠性低;';
IF 倒轉錘頭 then
var1000:=var1000+'倒轉錘頭,可能見底回升;';
IF 錘頭 then
var1000:=var1000+'錘頭,可能見底回升,如有量配合,信號強烈;';
IF 吊頸 then
var1000:=var1000+'吊頸,上升行情中見頂回落,頂部出現,見頂信號;';
IF 平頂 then
var1000:=var1000+'平頂,溫和的反轉;';
IF 穿頭破腳 then
var1000:=var1000+'穿頭破腳,頂部出現,見頂回落信號;';
IF 烏云蓋頂 then
var1000:=var1000+'烏云蓋頂,見頂回落信號;';
IF 曙光初現 then
var1000:=var1000+'曙光初現,后市見底回升;';
IF 身懷六甲 then
var1000:=var1000+'身懷六甲,出現在底部,是見底回升信號;出現在頂部,是見頂回落信號;';
IF 十字胎 then
var1000:=var1000+'十字胎;';
IF 平底 then var1000:=var1000+'平底,溫和的反轉;';
IF 大陽燭
then var1000:=var1000+'大陽燭,看漲;';
IF 三個白武士 then
var1000:=var1000+'三個白武士,每日收盤價上移,表示可能見底回升;';
IF 雙飛烏鴉 then
var1000:=var1000+'雙飛烏鴉,行情將見頂回落;';
IF 孕育線 then
var1000:=var1000+'孕育線,注意股價位置;';
IF 多方炮 then
var1000:=var1000+'多方炮,在底部出現有上漲意味,在中間出現有可能是上漲中繼,頂部出現是復合見頂信號;';
IF 出水芙蓉 then
var1000:=var1000+'出水芙蓉,見底回升;';
end;
TIPTEXT(DISPSTATUS=2,0,var1000);
A001:=CLOSE-REF(CLOSE,6);
A002:=MA(A001,6);
A003:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
A004:=SMA(A003,3,1);
A005:=SMA(A004,3,1);
A006:=EMA(3*A004-2*A005,2);
A007:=(HIGH+LOW+CLOSE)/3;
A008:=(A007-MA(A007,14))/(0.015*AVEDEV(A007,14))/2;
A009:=(A008+EMA((-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))+100)/100,3)*200-100)/2;
A010:=A009-REF(A009,14);
A011:=A009-REF(A009,26);
A012:=(A009+A010+A011)/3;
KKM:=EMA(A012,4);
A013:=HHV(HIGH,34);
A014:=(2*CLOSE+HIGH+LOW)/4;
A015:=LLV(LOW,34);
A016:=EMA((A014-A015)/(A013-A015)*100,13);
A017:=EMA(0.667*REF(A016,1)+0.333*A016,2);
KKMD:=A016-A017>1
AND A016<30 AND A017<30;
KKML:=A016-A017<0 AND A016>80 AND
A017>80 AND
REF(A016-A017,1)>0;
KKMQ:=COUNT(A016-A017>0,2)=2;
KKAL:=A016-A017<0;
{生命線:=MA(CLOSE,20);
取舍線:=MA(CLOSE,10);
EXPLAINICON(KKMD,4);
EXPLAINICON(KKAL,1);
EXPLAIN(KKMD,'最佳買入時機');
EXPLAIN(KKML,'最佳賣出時機');
EXPLAIN(KKMQ,'持倉區');
EXPLAIN(KKAL,'空倉區');
EXPLAIN(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),'該股強于大盤');
EXPLAIN(CLOSE/REF(CLOSE,1),'該股強于大盤');
EXPLAIN(CROSS(MA(CLOSE,5),MA(CLOSE,10)),'可出手');
EXPLAIN(CROSS(MA(CLOSE,10),MA(CLOSE,5)),'收手了');
EXPLAIN(KKM>EMA(KKM,4)
AND KKM>REF(KKM,1),'快速介入');
EXPLAIN(KKM>EMA(KKM,4) AND
KKM<REF(KKM,1),'休息觀望~');
EXPLAIN(KKM<EMA(KKM,4) AND
KKM>REF(KKM,1),'有防御能力');
EXPLAIN(KKM<EMA(KKM,4) AND
KKM<REF(KKM,1),'風險較大');
R:=REF(CLOSE,1)/CLOSE;
QY:=VOL;
QTT:=QY*R;
TL:=FILTER(VOL=HHV(VOL,20),20);
DL:=FILTER(VOL=LLV(VOL,20),20);
XD:=FILTER(LOW=LLV(LOW,20),20);
XG:=FILTER(HIGH=HHV(HIGH,20),20);
AQ標準攻擊量:=QTT*1.15;
HQ危險成交量:=QTT*1.5;
LQ防守量:=QTT*0.75;
AHQ平均高量:=(AQ標準攻擊量+HQ危險成交量)/2;
ALQ平均低量:=(AQ標準攻擊量+LQ防守量)/2;
市場實際量能:=QY;
EXPLAINEX(HQ危險成交量,'解盤：次日攻擊危險量=',HQ危險成交量,0,0),colorFF;
EXPLAINEX(AQ標準攻擊量,'解盤：次日攻擊標準量=',AQ標準攻擊量,0,0),coloryellow;
EXPLAINEX(LQ防守量,'解盤：次日攻擊防守量=',LQ防守量,0,0),colorFF00;
EXPLAINEX(TL,'解盤：今日為20日最大量=',VOL,0,0),colorFF;
EXPLAINEX(DL,'解盤：今日為20日最小量=',VOL,0,0),colorFF00;
EXPLAINEX(XD,'解盤：今日為20日最低價格=',LOW,2,0),colorFF00;
EXPLAINEX(XG,'解盤：今日為20日最高價格=',LOW,2,0),colorFF;
PT:=REF(HIGH,1)-REF(LOW,1);
CDP:=(HIGH+LOW+2*CLOSE)/4;
AH:=CDP+PT;
AL:=CDP-PT;
NH敏感阻力:=2*CDP-LOW;
NL:=2*CDP-HIGH;
EXPLAINEX(AH,'解盤：次日重大阻力價位=',AH,2,0),colorFF00;
EXPLAINEX(NH敏感阻力,'解盤：次日敏感阻力區域=',NH敏感阻力,2,0),colorFFFF;
EXPLAINEX(CDP,'解盤：次日關鍵均衡價位=',CDP,2,0),colorFFFFFF;
EXPLAINEX(NL,'解盤：次日重要支撐區域=',NL,2,0),colorFFFF80;
EXPLAINEX(AL,'解盤：次日關鍵支撐價位=',AL,2,0),colorFF;
EXPLAINICON(CLOSE>0,'szczxh'),ALIGN1;
VAR0:=REF(CLOSE,1)-REF(OPEN,1);
VAR1:=REF(OPEN,1);
VAR2:=CLOSE>=VAR1*1.05;
VAR3:=CLOSE>=2*VAR0/3*VAR1
AND
CLOSE<=VAR1*1.05;
VAR4:=CLOSE<VAR0*2/3*VAR1;
EXPLAINEX(VAR2,'解盤：個股目前態勢：超級強勢。漲幅
%f
%',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00FF;
EXPLAINEX(VAR3,'解盤：個股目前態勢：強勢。漲幅
%f
%',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF;
EXPLAINEX(VAR4,'解盤：個股目前態勢：弱勢。漲幅
%f
%',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00;
B1:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100<-12;
B3:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100>15;
B:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100;
EXPLAINEX(B<-18
AND
CLOSE/OPEN>1.06,'解盤：搶反彈!負乖離偏大,小單進場。此刻30日乖離率=',B,2,1),colorFF;
EXPLAINEX(B>40
AND
CLOSE/REF(CLOSE,1)<1.08,'解盤：高拋!正乖離偏大,按照短線技術系統高拋:',B,2,0),colorFF00;
EXPLAINEX(NOT(B<-18
AND CLOSE/OPEN>1.06) OR NOT(B>40 AND
CLOSE/REF(CLOSE,1)<1.08),'解盤：此刻30日乖離率=',B,2,0),colorFFFF;}
{陽線上下影}
STICKLINE(CLOSE>=OPEN,C,H,0,0),
colorRED;
STICKLINE(CLOSE>=OPEN,O,L,0,0),
colorRED;
{陰線上下影}
STICKLINE(CLOSE<OPEN,O,H,0,0),
Color00EC00;
STICKLINE(CLOSE<OPEN,C,L,0,0),
Color00EC00;
{陽K線}
STICKLINE(CLOSE>=OPEN,C,O,8,0),Color0000A1;
STICKLINE(CLOSE>=OPEN,C,O,6,0),Color0000B5;
STICKLINE(CLOSE>=OPEN,C,O,5,0),Color0000C5;
STICKLINE(CLOSE>=OPEN,C,O,4,0),Color0000D4;
STICKLINE(CLOSE>=OPEN,C,O,2.5,0),Color0000EC;
STICKLINE(CLOSE>=OPEN,C,O,1,0),Color0000FF;
{陰K線}
STICKLINE(CLOSE<OPEN,C,O,8,0),Color009000;
STICKLINE(CLOSE<OPEN,C,O,7,0),Color00B400;
STICKLINE(CLOSE<OPEN,C,O,5,0),Color00C700;
STICKLINE(CLOSE<OPEN,C,O,3,0),Color00DB00;
STICKLINE(CLOSE<OPEN,C,O,1,0),Color00EC00;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX(CLOSE
- LC,0),6,1))/(SMA(ABS(CLOSE -
LC),6,1)))*(100);
DRAWTEXT(CROSS(82,RSI),HIGH,' 頂'),COlorffcc66;
DRAWTEXT(CROSS(63,RSI),HIGH,' 賣'),COlorffcc66;
Y1:=REF(EMA(DMA((((HIGH + LOW) + (CLOSE * 2)) /
4.15),0.9),3),1);
DRAWtext(CROSS(CLOSE,Y1),LOW,'買'),Coloryellow;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');