1. 求大師分享，告訴我這個紅綠背景主圖是什麼指標公式源碼。那裡可以下載
NA:=STRCAT(CON2STR(YEAR,0),' 年 ');
YA:=STRCAT(CON2STR(MONTH,0),' 月 ');
RA:=STRCAT(CON2STR(DAY,0),' 日 ');
SJ:=STRCAT(STRCAT(NA,YA), RA);
DRAWTEXT_FIX(C>0,0.88,0,0,SJ);
{布林+寶塔+藍灰操盤}
{藍灰底}
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(買線>=賣線,HHV(H,60),LLV(L,60),5,0),COLOR000045;
STICKLINE(買線<賣線,HHV(H,60),LLV(L,60),5,0),COLOR004500;
{紅軌道}
紅軌道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW;
軌道:MA(MA(CLOSE,3),3),COLOR32CD32,LINETHICK2;
SHENG:=IF(紅軌道>=軌道,軌道,DRAWNULL);
升:SHENG,COLORMAGENTA,LINETHICK2;
{變色K線}
N1:=14;
M:=6;
TR1:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N1);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N1);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N1);
PDI:=DMP*100/TR1,LINETHICK2;
MDI:=DMM*100/TR1;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:=EXPMEMA(ADX,M);
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLOR0000FF;
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORC08000;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORMAGENTA ;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0) ,COLOR00FF00; }
{箱體線}
N:=7;
T1:=CONST(LLVBARS(LOW,N));
T1HIGH:=CONST(REF(HIGH,T1));
CC:=CONST(CURRBARSCOUNT);
T2:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T1)) AND (HIGH>T1HIGH)));
T2HIGH:=CONST(REF(HIGH,T2));
T3:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T2)) AND (HIGH>T2HIGH)));
T3HIGH:=CONST(REF(HIGH,T3));
突破殺入線:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK1,COLORYELLOW;
DRAWTEXT(ISLASTBAR, T3HIGH, '殺入線!'),LINETHICK1,COLORYELLOW;
AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);
BA:=EMA(AB,5);
A1{高}:=REFDATE(REF(HHV(H,96),5),DATE);
B1{低}:=REFDATE(REF(LLV(L,96),5),DATE);
DY{中}:=((A1)+(B1))/2;
箱頂:IF(AB>0 AND AB-BA<=0,A1,A1),COLORGREEN,DOTLINE;
箱腰:IF(AB>0 AND AB-BA<=0,DY,DY),COLORYELLOW,DOTLINE;
箱低:IF(AB>0 AND AB-BA<=0,B1,B1),COLORRED,DOTLINE;
DRAWTEXT(ISLASTBAR,箱頂,'箱頂'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,箱腰,'箱腰'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,箱低,'箱低'),COLORYELLOW;
VARAA:=IF(CLOSE>150,91.3,0.913);
{突破:INTPART(CLOSE/VARAA )*VARAA,POINTDOT,LINETHICK4,COLORRED;
再突破:突破+VARAA,POINTDOT,LINETHICK4,COLOR00FF00 ;
回踩:(突破+再突破)/2,POINTDOT,COLORWHITE,LINETHICK4;}
STICKLINE(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱低,箱腰,0.1,-1),COLORRED;
STICKLINE(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱頂,箱腰,0.1,-1),COLORGREEN;
DRAWICON(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱腰,1);
DRAWICON(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱腰,2);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.01,0,'K線底部出紅色或粉色，可低吸建倉！'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.05,0,'綠點表示長期的壓力點！'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.10,0,'白點表示中短期的壓力和支撐點，'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.02,0.16,0,'紅點表示有效支撐或突破長中短期壓力點！股價向下跌破，原則清倉！'),COLORGREEN;
EE:=(H+L+O+2*C)/5;
CRTP:=EE+(H-L);
CRZL:=2*EE-L;
CRZC:=2*EE-H;
CRFZ:=EE-(H-L);
高:CONST(CRTP),COLORRED;
阻:CONST(CRZL),COLORC7C9FF;
支:CONST(CRZC),COLOR7C9CFF;
反:CONST(CRFZ),COLORDD00DD;
DRAWTEXT(ISLASTBAR, 反, '反轉價'),LINETHICK1,COLORDD00DD;
DRAWTEXT(ISLASTBAR, 支, '支撐'),LINETHICK1,COLOR7C9CFF;
DRAWTEXT(ISLASTBAR, 阻, '阻力'),LINETHICK1,COLORC7C9FF;
DRAWTEXT(ISLASTBAR, 高, ' 高破線'),LINETHICK1,COLORGREEN;
均線:=EXPMA(C,12),COLORGRAY,LINETHICK2;
日:=50;
昨前:=3;
高2:=REF(HHV(H,日),昨前);
低2:=REF(LLV(L,日),昨前);
H4:=高2-(高2-低2)*0.618;
H5:=高2-(高2-低2)*0.809;
支撐80.9%:REFDATE(H5,DATE),COLORRED;
支撐61.8%:REFDATE(H4,DATE),COLORGREEN,;
STICKLINE(CURRBARSCOUNT=1,支撐80.9%,支撐80.9%,300,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=1,支撐61.8%,支撐61.8%,300,-1),COLORRED;
DRAWTEXT(CURRBARSCOUNT=1 AND 支撐80.9%,支撐80.9%,'備錢'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1 AND 支撐61.8%,支撐61.8%,'轉運'),COLORRED;
WH1:=IF(L=LLV(L,9),L,0);
WH2:=CONST(BARSLAST(WH1!=0));
WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
WH7:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORRED,DOTLINE;
STICKLINE(CURRBARSCOUNT<=WH2+1 AND L=LLV(L,9),O,C,3,0),COLORRED;
DRAWTEXT(CURRBARSCOUNT=WH2+10,WH7,'LINE'),COLORRED;
DRAWTEXT(ISLASTBAR,WH7,'進場'),COLORRED;
WH8:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,9),L,DRAWNULL),DRAWNULL),CIRCLEDOT;
H81:=IF(H=HHV(H,9),H,DRAWNULL);
H82:=CONST(BARSLAST(H81!=DRAWNULL));
H83:=CONST(IF(H82=0,L,REF(L,H82)));
H84:=CONST(REF(BARSLAST(L<H83),H82+1)+H82+1);
H85:=CONST(IF(H84=0,L,REF(L,H84)));
H86:=CONST(REF(BARSLAST(L<H85),H84+1)+H84+1);
H87:=IF(CURRBARSCOUNT<=H82+10,CONST(IF(H86=0,L,REF(L,H86))),DRAWNULL),DOTLINE;
H88:=IF(CURRBARSCOUNT<=H82+1,IF(H=HHV(H,9),H,DRAWNULL),DRAWNULL),CIRCLEDOT;
DRAWTEXT(CURRBARSCOUNT=H82+10,H87,'LINE'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,H87,'止損'),COLORYELLOW;
DIF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA:=EMA(DIF,9);
AAA:=(DIF-DEA)*2*60;
起爆:=CROSS(AAA-REF(AAA,1),15);
DRAWTEXT(起爆,MA(L,3),'↖暴張'),COLORYELLOW,LINETHICK2;
LC:=REF((O+H+L+2*C)/5,1);
{短線擒黑碼}
RSI:=SMA(MAX(C-LC,0),7,1)/SMA(ABS(C-LC),7,1)*10;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,23))/(0.015*AVEDEV(TYP,23));
買:=CROSS(RSI,7.1) AND MA(V,5)>MA(V,10),COLORRED;
DRAWTEXT(CROSS(RSI,7.1) AND MA(V,5)>MA(V,10),MA(L,3),'↖◆短線擒黑碼◆'),COLORWHITE;
DRAWICON(買,MA(L,3),17);
賣:=CROSS(7.1,RSI) AND MA(V,10)>MA(V,5),COLORGREEN;
DRAWTEXT(CROSS(7.1,RSI) AND MA(V,10)>MA(V,5),箱頂,'■■逃跑■■'),COLORGREEN;
DRAWICON(賣,MA(H,3),28);
{絕密買點}
A81:=EMA(C,3),COLORWHITE;
A82:=EMA(C,5),COLORYELLOW;
A83:=EMA(C,7),COLORMAGENTA;
A84:=EMA(C,12),COLORGREEN;
A85:=EMA(C,20),COLORRED;
A86:=EMA(C,50),COLORBLUE,LINETHICK2;
SS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 ;
SSS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018;
DRAWICON(SS8 ,MA(L,3),5);
DRAWTEXT(SS8,MA(L,3),'↖絕密買點'),COLORYELLOW;
ZYX1:="DMI.PDI"(12,6);
ZYX2:="DMI.MDI"(12,6);
ZYX3:=ZYX1>65 AND ZYX1>REF(ZYX1,1);
ZYX4:=LLV(ZYX1,0);
ZYX5:=BARSLAST(ZYX4=ZYX1);
ZYX6:=(0-REF(ZYX2,4))/(ZYX4-REF(ZYX2,ZYX5))>2;
ZYX7:=ZYX1>REF(ZYX1,1);
ZYX8:=VOL>2*MA(VOL,30);
ZYX9:="DMI.ADX"(12,6);
ZYXA:="DMI.ADXR"(12,6);
ZYXB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
ZYXC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
ZYXD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
{ZYXE:=0-"MACD.DIFF"(7,21,3);}
ZYXF:=TROUGHBARS(3,15,1)<4;
ZYX10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
ZYX11:=IF(ZYXF=1,50,0);
ZYX12:=CROSS(ZYX2,ZYX1) AND CROSS(ZYXA,ZYX9);
ZYX13:=CROSS(ZYX2,ZYX1) AND CROSS(ZYX9,ZYXA);
ZYX14:=ZYXB AND ZYXC AND ZYXD AND ZYX10 AND ZYX6 AND ZYX7 AND ZYX8*50;
ZYX15:=BARSLAST(CROSS(ZYX2,ZYX1)=1);
ZYX16:=BARSLAST(CROSS(ZYX1,ZYX2)=1);
ZYX17:=HHV(ZYX1,ZYX16);
ZYX18:=BARSLAST(ZYX1=ZYX17);
{STICKLINE(FILTER(ZYXF=1,5),50,0,10,0),COLORRED;}
ZYX19:=ZYX3 OR ZYX12 OR ZYX13*100;
ZYX1A:=ZYX13*100;
DRAWICON(FILTER(ZYXF=1,3),MA(L,3),23);
DRAWTEXT(FILTER(ZYXF=1,3),箱低,'■■鐵底■■'),COLORGREEN;
{量能平台}
ND:=10;
PTD:=CONST(LLVBARS(V,ND));
TDPX:IF(CURRBARSCOUNT<=ND,CONST(IF(PTD=0,O,REF(O,PTD))),DRAWNULL),COLORFF0000;
IF(CURRBARSCOUNT=PTD+1,TDPX,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
DRAWTEXT(ISLASTBAR,TDPX,' 【地平線】'),COLORFF0000;
G21:=30;
T112:=CONST(HHVBARS(V,G21));
T122:=IF(CURRBARSCOUNT<=G21+7,CONST(IF(T112=0,H,REF(H,T112))),DRAWNULL);
T122A:=IF(CURRBARSCOUNT=T112+1,T122,DRAWNULL),CIRCLEDOT,COLORWHITE;
DRAWTEXT(ISLASTBAR,T122,'30天量能平台'),COLORWHITE;
W10:=10;
TW1:=CONST(HHVBARS(V,W10));
TW0:=IF(CURRBARSCOUNT<=W10+7,CONST(IF(TW1=0,C,REF(C,TW1))),DRAWNULL);
TW0A:=IF(CURRBARSCOUNT=TW1+1,TW0,DRAWNULL),CIRCLEDOT,COLORWHITE;
DRAWTEXT(ISLASTBAR,TW0,'10量能平台'),COLORWHITE;
W20:=20;
TW20:=CONST(HHVBARS(V,W20));
TW22:=IF(CURRBARSCOUNT<=W20+7,CONST(IF(TW20=0,C,REF(C,TW20))),DRAWNULL);
TW22A:=IF(CURRBARSCOUNT=TW20+1,TW22,DRAWNULL),COLORWHITE;
DRAWTEXT(ISLASTBAR,TW22,'20量能平台'),COLORWHITE;
MW:=10;
MW1:=CONST(LLVBARS(V,MW));
MW0:=IF(CURRBARSCOUNT<=MW+7,CONST(IF(MW1=0,O,REF(O,MW1))),DRAWNULL);
MW0A:=IF(CURRBARSCOUNT=MW1+1,MW0,DRAWNULL),CIRCLEDOT,COLORWHITE;
DRAWTEXT(ISLASTBAR,MW0,'地量反彈量能平台'),COLORWHITE;
{N1:=18;N2:=36;N3:=55;}
EM1:=EMA(C,18),NODRAW;
EM2:=EMA(C,36),COLORRED;
EM3:=EMA(C,55),COLORGREEN;
TJ8:=BETWEEN(EM2,EM1,EM3);
{DRAWICON(TJ8=0,L,14);}
B18:='<-----------------財富平台';
DRAWTEXT(VOL=HHV(VOL,20),C ,B18),COLORRED;
{超跌反彈}
RSV:=(CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*100;
短期底部:=LLV(OPEN,30);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=(3*K-2*D),LINETHICK2;
D2:=SMA(J,3,1)*0.82;
2. 你很會寫指標，我急求四度空間指標源碼，請附上用法，非常感謝
***
用法主圖上有解盤
集成資訊全線主圖加四度空間解盤主圖(大智慧)
INPUT:M(10,3,250,3);均線:(MA(CLOSE,M) * 1),Colorred,linethick2;早晨之星:=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)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
長十字:=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
射擊之星:=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
錘頭:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE
吊頸:=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 CLOSEREF(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(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE
曙光初現:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPENREF(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)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="" close="" open
孕育線:=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)OPEN;
出水芙蓉:=(OPEN<ema(c,20) or="" open<ema(c,40)="" openMAX(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)="" ref(close,1)<ref(open,1)="" and
REF(LOW,4)<ref(low,3) and="" ref(low,4)<ref(low,2)="" ref(low,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(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND
CLOSE
跳空缺口:=HIGHREF(HIGH,1);
三隻烏鴉:=REF(CLOSE,2)<ref(open,2) and="" ref(close,1)<ref(open,1)="" close<open="" ref(close,1)<ref(close,2)="" close
光腳陰線:=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)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
傾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND OREF(O,1) AND C
解盤:='【解盤】'+
IFs(傾盆大雨,'★傾盆大雨,見頂信號;','')+
IFs(大陰燭,'★大陰燭,後市向淡,發生逆轉;','')+
IFs(好友反攻,'★好友反攻,底部反轉;','')+
IFs(跳空缺口,'★跳空缺口,注意向上還是向下跳空;','')+
IFs(光腳陰線,'★光腳陰線,下跌信號;','')+
IFs(光頭陽線,'★光頭陽線,後市看漲;','')+
IFs(三隻烏鴉,'★三隻烏鴉,可能見頂回落;','')+
IFs(分離,'★分離,注意看漲分離和看跌分離;','')+
IFs(長下影,'★長下影,持續下跌後出現,有可能止跌回升;在升勢末期出現,須多加留意;','')+
IFs(長上影,'★長上影,表明行情上檔壓力沉重,升勢受阻;','')+
IFs(下跌三部曲,'★下跌三部曲,下跌信號;','')+
IFs(上升三部曲,'★上升三部曲,上漲信號;','')+
IFs(早晨之星,'★早晨之星,見底回升;','')+
IFs(黃昏之星,'★黃昏之星,見頂回落;','')+
IFs(十字星,'★十字星,有轉向意味,注意股價位置在頂部還是底部;','')+
IFs(長十字,'★長十字,注意在頂部還是底部;','')+
IFs(垂死十字,'★垂死十字,下跌信號;','')+
IFs(早晨十字星,'★早晨十字星,上漲信號,見底回升;','')+
IFs(黃昏十字星,'★黃昏十字星,下跌信號,見頂回落;','')+
IFs(射擊之星,'★射擊之星,可能見頂回落,可靠性低;','')+
IFs(倒轉錘頭,'★倒轉錘頭,可能見底回升;','')+
IFs(錘頭,'★錘頭,可能見底回升,如有量配合,信號強烈;','')+
IFs(吊頸,'★吊頸,上升行情中見頂回落,頂部出現,見頂信號;','')+
IFs(平頂,'★平頂,溫和的反轉;','')+
IFs(穿頭破腳,'★穿頭破腳,頂部出現,見頂回落信號;','')+
IFs(烏雲蓋頂,'★烏雲蓋頂,見頂回落信號;','')+
IFs(曙光初現,'★曙光初現,後市見底回升;','')+
IFs(身懷六甲,'★身懷六甲,出現在底部,是見底回升信號;出現在頂部,是見頂回落信號;','')+
IFs(十字胎,'★十字胎;','')+
IFs(平底,'★平底,溫和的反轉;','')+
IFs(大陽燭,'★大陽燭,看漲;','')+
IFs(三個白武士,'★三個白武士,每日收盤價上移,表示可能見底回升;','')+
IFs(雙飛烏鴉,'★雙飛烏鴉,行情將見頂回落;','')+
IFs(孕育線,'★孕育線,注意股價位置;','')+
IFs(多方炮,'★多方炮,在底部出現有上漲意味,在中間出現有可能是上漲中繼,頂部出現是復合見頂信號;','')+
IFs(出水芙蓉,'★出水芙蓉,見底回升;','');
DRAWTEXTABS(0,0,解盤);
MA5:MA(C,5),COLORF00FF0;
MA21:MA(C,21),COLORE66878;
MA30:MA(C,30),COLORYELLOW; MA55:MA(CLOSE,55),LINETHICK1,ColorGREEN;
半年線:MA(C,120),COLOR399C7F,POINTDOT;
年線:MA(C,240),COLOR000999,POINTDOT;X1:=(C+L+H)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
DRAWICON(CROSS(X2,X3),L*0.98,7);
DRAWICON(CROSS(X3,X2),H*1.02,8);
DRAWGBKLAST(C>0,STRIP(RGB(10,10,50),RGB(50,10,10),0));
均價:=(3*C+H+L+O)/6;
VAR1:=(8*均價+7*REF(均價,1)+6*REF(均價,2)+5*REF(均價,3)+
4*REF(均價,4)+3*REF(均價,5)+2*REF(均價,6)+REF(均價,8))/36;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)
AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)
AND CLOSE>VAR2 AND CLOSE
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1)
AND CLOSEVAR2 AND VAR1
AND VAR2<ref(var2,1) and="" close
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE
XD1:=VAR1=VAR2 AND CLOSE<var2 or="" (var1<ref(var1,1)="" and="" var2
AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE
XD2:=VAR1=VAR2 AND CLOSE>VAR1;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能飽和度:=IF(SAT>1,1,SAT)*100;
IF BARSTATUS=2 AND SZ1 THEN BEGIN
DRAWTEXTABS(390,25,'調整結束短線介入'),LINETHICK2,COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ2 THEN BEGIN
DRAWTEXTABS(390,25,'上升通道走勢良好'),LINETHICK2,COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ3 THEN BEGIN
DRAWTEXTABS(390,25,'股價偏離注意調整'),LINETHICK2,COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ4 THEN BEGIN
DRAWTEXTABS(390,25,'上升通道調整洗盤'),LINETHICK2,COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND SZ5 THEN BEGIN
DRAWTEXTABS(390,25,'轉向特徵注意離場'),LINETHICK2,COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND SZ6 THEN BEGIN
DRAWTEXTABS(390,25,'通道改變堅決離場'),LINETHICK2,COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND XD1 THEN BEGIN
DRAWTEXTABS(390,25,'下跌通道只宜觀望'),LINETHICK2,COLORGREEN;
END
ELSE
IF BARSTATUS=2 AND XD2 THEN BEGIN
DRAWTEXTABS(390,25,'短期底部准備進入'),LINETHICK2,COLORYELLOW;
END;
;a:="LTFunc5@FORLT2";
s1:="LTFunc5@LT_S1";
hs:="LTFunc5@LT_HS";
ls:="LTFunc5@LT_LS";
p1:="LTFunc5@LT_P1";
upp:="LTFunc5@LT_UPP";
udd:="LTFunc5@LT_UDD";
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
買入:p1=1 and ref(p1,1)=0,LineThick0,Precis0,ColorRed;
d1:=ema(abs("ddx.ddx"),60);
d2:=max("ddx.ddx"/d1+7.5,7.5);
d3:=min("ddx.ddx"/d1,10);
fb:=if(s1=0,hs,ls);
tr0:=ifs(p1=1,'明日收盤價<'+numtostrn(udd,2)+',出現S點\n','若明日收盤價> '+numtostrn(upp,2)+',出現B點\n');
tr1:=ifs(s1=1,'明日收盤價<'+numtostrn(ls,2)+',短線賣出機會','若明日收盤價> '+numtostrn(hs,2)+'短線買入機會');
tr2:=ifs(p1=1,ifs(cross(p1,0),'B點','持股'),ifs(cross(1,p1),'S點','持幣'));
tr3:=ifs(s1=0,'向下,','向上,');
tr4:='3.能量級別:'+numtostrn(d3,1)+'級';
bs:=''+datestr(date)+'買賣點決策系統提示\n'+'1.BS點:'+tr2+','+tr0+'2.短線:'+tr3+tr1+'\n'+tr4;
drawflagtext(1,fb,bs);
STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack;
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54;
drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;閃:EMA(c+(h- l)*0.618,3),Color0099FF,LINETHICK0; 進:EMA((o+h+l)/3,4),COLORCYAN,LINETHICK0;
預測明日買點:=EMA((o+h+l)/3,4)+((h+l)/2-ref((o+h+l)/3,3))/4;
DRAWTEXTREL(800,950,'測今日低點：'+NUMTOSTRN(ref(預測明日買點,1),2 )),ColorGREEN;
預測明日賣點:=EMA(c+(h-l)*0.618,3)+(EMA(c+(h-l)*0.618,3)-進)*0.618;
DRAWTEXTREL(580,950,'測今日高點：'+NUMTOSTRN(ref(預測明日賣點,1),2 )),Colorred;gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);