lillian2005 2007-5-4 06:09
朋友來了就走,殊感遺憾,我想大部分的人都還沒有緣份見到你的帖子呢,替你補上兩個網上最常見的"MACD狂歡"公式,以感謝朋友的美意
input:LONG(26,26,26),SHORT(12,12,12),M(9,9,9);
DIFF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),LINETHICK2,colorFFFF;
DEA:EMA(DIFF,M),colorFF00;
MACD:2 * (DIFF - DEA),COLORSTICK;
STICKLINE((MACD > 0),0,MACD,8,1),colorFF;
STICKLINE((MACD < 0),0,MACD,8,1),colorFFFF33;
AJ:=(DEA > DIFF);
AJ1:=(DEA > 0);
PARTLINE(AJ,DEA),colorFF00;
PARTLINE((AJ1 AND AJ),DEA),colorFF00;
BJ:=(DEA < DIFF);
BJ1:=(DEA <> 0);
PARTLINE((BJ1 AND BJ),DEA),colorFF00;
BJ2:=(((DEA < (0 - 1)) AND (DEA < DIFF)) AND (MACD < (0 - 1)));
PARTLINE(BJ2,DEA),colorFF00;
TJ:=(DIFF > DEA);
TJ1:=(DIFF > 0);
PARTLINE(TJ,DIFF),LINETHICK2,colorFF00FF;
PARTLINE((TJ1 AND TJ),DIFF),LINETHICK2,colorFF;
ZJ:=(DIFF < DEA);
ZJ1:=(DIFF < 0);
PARTLINE((ZJ1 AND ZJ),DIFF),LINETHICK2,colorFFFF;
TJ2:=(((DIFF < (0 - 1)) AND (DIFF < DEA)) AND (MACD < (0 - 1)));
PARTLINE(TJ2,DIFF),LINETHICK2,colorFF0000;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2 - B1);
C1:=LLV(LOW,999999);
C2:=HHV(HIGH,999999);
C3:=(C2 - C1);
D:=(B3 / C3);
高開高走:STICKLINE((LOW > REF(CLOSE,1)),0,0.25,1,0),color1598FF;
低開低走:STICKLINE((HIGH < REF(CLOSE,1)),0,(0 - 0.25),1,0),color7FB000;
DRAWICON(CROSS(DEA,DIFF),DEA,11);
DRAWICON(CROSS(DIFF,DEA),DIFF,10);
TJ1:=(MACD > 0);
TJ2:=(TJ1 > REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=HHVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJ3:=(TJ < REF(TJ,1));
DRAWICON(TJ3,MACD,5),ALIGN0;
TJ1:=(MACD < 0);
TJ2:=(TJ1 < REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=LLVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJA:=(TJ < REF(TJ,1));
DRAWICON(TJA,MACD,4),ALIGN1;
TJB:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VAR1:=LLV(LOW,5);
VAR2:=HHV(HIGH,4);
VAR3:=EMA((((TJB - VAR1) / (VAR2 - VAR1)) * 100),4);
VAR4:=EMA(((0.667 * REF(VAR3,1)) + (0.333 * VAR3)),2);
DRAWICON((CROSS(VAR3,VAR4) AND (VAR3 < 40)),MACD,4),ALIGN1,colorFF;
VAR5:=((((CLOSE * 2) + HIGH) + LOW) / 4);
VAR6:=(EMA(VAR5,13) - EMA(VAR5,34));
VAR7:=EMA(VAR6,5);
VAR8:=(((0 - 2) * (VAR6 - VAR7)) * 3.8);
DRAWICON((CROSS(VAR8,MA(VAR8,3)) AND (VAR8 < 0)),MACD,5),ALIGN0;
VAR9:=REF(CLOSE,1);
VAR10:=((SMA(MAX((CLOSE - VAR9),0),6,1) / SMA(ABS((CLOSE - VAR9)),6,1)) * 100);
VAR11:=(CROSS(80,VAR10) * 70);
DRAWICON(VAR11,MACD,5),ALIGN0;
賣出:=((((CLOSE / REF(CLOSE,1)) >= 1.062) AND ((HIGH / CLOSE) < 1.005)) AND ((MA(CLOSE,90) / CLOSE) >= 1.15));
VAR132:=(賣出 AND (COUNT(賣出,20) = 1));
VAR133:=((INDEXC - REF(INDEXC,1)) / REF(INDEXC,1));
VAR134:=((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1));
VAR135:=(IF((VAR133 > 0.01),0.9,1) AND IF((VAR133 > (0 - 0.025)),1,1.2));
VAR136:=((VAR135 * (VAR134 - VAR133)) * 100);
VAR137:=SUM(VAR136,10);
VAR138:=SMA(VAR137,40,1);
VAR139:=(VAR137 > 20);
VAR310:=(((CROSS(CLOSE,MA((CLOSE * 1.055),3)) AND (CLOSE > (OPEN * 1.06))) AND (VOL >= (REF(VOL,1) * 1.5))) AND (CLOSE >= MA(CLOSE,10)));
VAR311:=(VAR139 AND VAR310);
VAR312:=(((0 - 100) * (HHV(HIGH,3) - CLOSE)) / (HHV(HIGH,3) - LLV(LOW,3)));
VAR313:=(((CROSS(VAR312,(0 - 87)) AND (OPEN = (1.09 * REF(CLOSE,1)))) AND (INDEXC > (0.98 * REF(INDEXC,1)))) AND (CLOSE <= (1.47 * LLV(CLOSE,58))));
VAR314:=(EMA(CLOSE,12) - EMA(CLOSE,26));
VAR315:=EMA(VAR314,9);
VAR316:=(2 * (VAR314 - VAR315));
VAR317:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
VAR318:=SMA(VAR317,3,1);
VAR319:=SMA(VAR318,3,1);
VAR320:=(EMA(IF((VAR315 > REF(VAR315,1)),1,(0 - 1)),14) * 14);
VAR321:=((EMA(IF((VAR319 > REF(VAR319,1)),1,(0 - 1)),14) * 14) * 2);
VAR322:=(((MA(CLOSE,5) / MA(CLOSE,70)) - 1) * 100);
VAR323:=(((VAR322 + VAR321) + VAR320) / 3);
VAR324:=(MA(CLOSE,80) - (MA(CLOSE,10) / 3));
VAR325:=IF((((CLOSE AND (MA(VOL,5) / 240)) AND (CLOSE > (REF(CLOSE,1) * 1))) AND CLOSE),88,0);
VAR326:=IF((((((CLOSE / REF(CLOSE,1)) > 1.05) AND (((VOL / CAPITAL) * 100) < 10)) AND ((HIGH / CLOSE) < 1.01)) AND (VAR325 > 0)),91,0);
VAR327:=IF((((((VAR323 > REF(VAR323,1)) AND (REF(VAR323,1) < REF(VAR323,2))) AND ((VAR132 OR VAR311) OR VAR313)) OR (VAR325 > 0)) OR (VAR326 > 0)),85,0);
VAR328:=IF((VAR326 > 0),95,0);
VAR329:=IF(((VAR325 > 0) OR (VAR326 > 0)),91,0);
VAR330:=IF((((VAR327 > 0) OR (VAR326 > 0)) OR (VAR325 > 0)),88,0);
VAR331:=((100 * (CLOSE - LLV(LOW,42))) / (HHV(HIGH,42) - LLV(LOW,42)));
VAR332:=(COUNT((MA(CLOSE,3) > REF(MA(CLOSE,3),1)),1) = 1);
VAR333:=((((VAR331 < 93) AND VAR332) AND MAX(MAX(VAR328,VAR329),VAR330)) * 100);
DRAWICON((VAR326 > 90),0,6);
DRAWICON((CLOSE > (REF(CLOSE,1) * 1.096)),0,6);
TJ:=((WEEKDAY - REF(WEEKDAY,1)) <> DATEDIFF(REF(DATE,1),DATE));
VAR334:=CLOSE;
上周:REF(CLOSE,SUMBARS(TJ,1)),LINETHICK0,colorFFAF00;
上月:REF(CLOSE,SUMBARS(TJ,4)),LINETHICK0,colorE7ABAF;
三個月前:REF(CLOSE,SUMBARS(TJ,12)),LINETHICK0,color3CFFD4;
半年前:REF(CLOSE,SUMBARS(TJ,24)),LINETHICK0,colorFF30BB;
一年前:REF(CLOSE,SUMBARS(TJ,48)),LINETHICK0;
EXPLAIN((HIGH >= HHV(HIGH,5)),'創5日新高'),colorFF;
EXPLAINICON((HIGH >= HHV(HIGH,5)),4);
EXPLAIN((LOW <= LLV(LOW,5)),'創5日新低'),colorFFFF00;
EXPLAINICON((LOW <= LLV(LOW,5)),1);
本周:=CROSS(DIFF,DEA);
JC:=CROSS(DEA,DIFF);
SC:=(本周 AND (DEA > 0));
EXPLAIN(CROSS(DIFF,0),'空頭轉多頭行情'),color66FF;
EXPLAIN((((MACD > 0) AND (DIFF > 0)) AND (DIFF > REF(DIFF,1))),'當前多頭格局'),color66FF;
EXPLAIN((MACD > 0.35),'股價超買，隨時可能下跌'),colorCC00;
EXPLAIN((((((MACD > 0) AND (DIFF > 0)) AND (DIFF > DEA)) AND (DIFF > REF(DIFF,1))) AND (CLOSE > REF(CLOSE,1))),'上升趨勢不變'),colorCC33FF;
EXPLAIN(CROSS(0,DIFF),'多頭轉空頭行情'),colorCC99;
EXPLAIN((((MACD < 0) AND (DIFF < 0)) AND (DIFF < REF(DIFF,1))),'當前空頭格局'),colorCC99;
EXPLAIN((((((MACD < 0) AND (DIFF < 0)) AND (DIFF < DEA)) AND (DIFF < REF(DIFF,1))) AND (CLOSE < REF(CLOSE,1))),'下降趨勢不變'),colorFFCC99;
EXPLAIN((MACD < (0 - 0.35)),'股價超賣中'),colorCCFF00;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD > REF(MACD,1))),'有加速上漲趨勢'),colorFF;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD <= REF(MACD,1))),'逢高賣出，注意適時回補'),colorCCFF99;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD < REF(MACD,1))),'回落整理階段'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD < REF(MACD,1))),'趨勢加速向下'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD > REF(MACD,1))),'反彈階段,保持謹慎'),color66FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD < REF(MACD,1))),'短線反彈結束，謹慎'),color999933;
DCJC:=MA((VOL / (HIGH - LOW)),4);
VAR12:=ABS((CLOSE - OPEN));
VAR13:=(VOL / (HIGH - LOW));
EXPLAIN(((VAR13 < DCJC) AND (VAR12 < MA(VAR12,4))),'資金無入場意願'),color6600;
EXPLAIN(((VAR13 < DCJC) AND (VAR12 > MA(VAR12,4))),'場內資金運作行為'),colorAAAAAA;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 < MA(VAR12,4))),'多空雙方激烈爭奪'),color33CC;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 > MA(VAR12,4))),'資金介入或出局強烈'),colorFFFFFF;
VAR14:=(CLOSE - REF(CLOSE,6));
A001:=MA(VAR14,6);
A002:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
A003:=SMA(A002,3,1);
A004:=SMA(A003,3,1);
A005:=EMA(((3 * A003) - (2 * A004)),2);
A006:=(((HIGH + LOW) + CLOSE) / 3);
A007:=(((A006 - MA(A006,14)) / (0.015 * AVEDEV(A006,14))) / 2);
A008:=((A007 + ((EMA((((0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))) + 100) / 100),3) * 200) - 100)) / 2);
A009:=(A008 - REF(A008,14));
A010:=(A008 - REF(A008,26));
A011:=(((A008 + A009) + A010) / 3);
A012:=EMA(A011,4);
KKM:=HHV(HIGH,34);
A013:=((((2 * CLOSE) + HIGH) + LOW) / 4);
A014:=LLV(LOW,34);
A015:=EMA((((A013 - A014) / (KKM - A014)) * 100),13);
A016:=EMA(((0.667 * REF(A015,1)) + (0.333 * A015)),2);
A017:=((((A015 - A016) > 1) AND (A015 < 30)) AND (A016 < 30));
KKMD:=(((((A015 - A016) < 0) AND (A015 > 80)) AND (A016 > 80)) AND (REF((A015 - A016),1) > 0));
KKML:=(COUNT(((A015 - A016) > 0),2) = 2);
KKMQ:=((A015 - A016) < 0);
EXPLAIN(((CLOSE / REF(CLOSE,1)) > (INDEXC / REF(INDEXC,1))),'該股走勢強於大盤'),color66FFFF;
EXPLAIN(A017,'可以考慮買入'),colorFF;
EXPLAIN(KKMD,'可以考慮賣出'),colorFF00;
EXPLAIN(KKML,'建議持倉'),colorFF;
EXPLAIN(KKMQ,'建議減倉'),colorFFFF00;
EXPLAIN(CROSS(MA(CLOSE,5),MA(CLOSE,10)),'試盤買進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 > REF(A012,1))),'注意適時加倉跟進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時迴避風險'),colorCCFF33;
EXPLAIN(((A012 < EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時減倉出局'),colorFF00;
EXPLAIN((CROSS(DIFF,DEA) AND CROSS(MACD,0)),'MACD上穿0軸,可考慮買入'),color6633FF;
EXPLAIN((本周 AND (DEA > 0)),'解：MACD在0軸上金叉'),colorFF;
EXPLAIN((本周 AND (DEA < 0)),'解：MACD在0軸下金叉'),colorFF;
EXPLAIN((JC AND (DEA > 0)),'解：MACD在0軸上死叉'),colorFF0000;
EXPLAIN((JC AND (DEA < 0)),'解：MACD在0軸下死叉'),colorFF0000;
EXPLAIN(((MACD > 0) AND (MACD > REF(MACD,1))),'解：MACD的紅柱,增長'),colorFF;
EXPLAIN(((MACD > 0) AND (MACD < REF(MACD,1))),'解：MACD的紅柱,縮短'),color3366CC;
EXPLAIN(((MACD < 0) AND (ABS(MACD) > REF(ABS(MACD),1))),'解：MACD的綠柱,增長'),colorFF00;
EXPLAIN(((MACD < 0) AND (ABS(MACD) < REF(ABS(MACD),1))),'解：MACD的綠柱,縮短'),colorFFFF00;
EXPLAIN((((COUNT(SC,20) = 2) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,2'),colorFF;
EXPLAIN((((COUNT(SC,20) = 3) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,3'),colorFF;
EXPLAIN((((COUNT(SC,20) = 4) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,4'),colorFF;
EXPLAINEX((0 = 0),'解：MACD=',MACD,2,0),colorFF00FF;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK0;
D:SMA(K,3,1),ColorCF7690,LINETHICK0;
J:3*K-2*D,LINETHICK0;
EXPLAINEX((K > 0),'解：K值係數=',K,2,0),colorFF6699;
EXPLAINEX((D > 0),'解：D值係數=',D,2,0),color99CC;
EXPLAIN(CROSS(K,D),'解：K與D今日金叉'),colorFF;
EXPLAIN(CROSS(D,K),'解：K與D今日死叉'),colorFF0000;
RSV:=(((HIGH + LOW) + CLOSE) / 3);
TYP:=((RSV - MA(RSV,14)) / (0.015 * AVEDEV(RSV,14)));
CCI:=(0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
EXPLAINEX((1 = 1),'解：威廉指標=',CCI,2,0),colorFF66FF;
WR:=REF(CLOSE,1);
LC:=((SMA(MAX((CLOSE - WR),0),6,1) / SMA(ABS((CLOSE - WR)),6,1)) * 100);
RSI1:=((SMA(MAX((CLOSE - WR),0),12,1) / SMA(ABS((CLOSE - WR)),12,1)) * 100);
EXPLAINEX((1 = 1),'解：相對強弱RSI1=',LC,2,0),colorFFCC33;
EXPLAINEX((1 = 1),'流通盤（億）：',(CAPITAL / 1000000),2,0),colorFFFF00;
EXPLAINEX((1 = 1),'公積金（元）：',FINANCE(18),2,0),colorFF6666;
EXPLAINEX((1 = 1),'收益（元）：',FINANCE(33),2,0),color66FF;
EXPLAINEX((1 = 1),'淨資產收益率：％',FINANCE(37),2,0),colorFF00;
EXPLAINEX((1 = 1),'市盈率（倍）：',DYNAINFO(39),2,0),colorFF;
RSI2:=EMA(((AMOUNT / VOL) / 100),3);
EXPLAINEX((1 = 1),'成本價格（元）：',EMA(RSI2,88),2,0),LINETHICK0,colorE5679A;
EXPLAINEX((1 = 1),'伏擊價格（元）：',(EMA(RSI2,88) * 0.85),2,0),LINETHICK0,color5E9A;
EXPLAINEX((1 = 1),'莊籌估算：％',EMA((WINNER(CLOSE) * 70),5),2,0),LINETHICK0,colorFF00FF;
EXPLAINEX((1 = 1),'散籌估算：％',EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),5),2,0),LINETHICK0,colorFF00;
EXPLAINEX((1 = 1),'獲利盤比例：％',(WINNER(CLOSE) * 100),2,0),colorFF;
EXPLAINEX((1 = 1),'套牢盤比例：％',(100 - (WINNER(CLOSE) * 100)),2,0),colorFF00;
VAR15:=LLV(HIGH,240);
AA:=((100 * (CLOSE - VAR15)) / VAR15);
EXPLAINEX((AA >= 0.01),'年最大收益：％',AA,2,0),color66FF;
MYP:=HHV(HIGH,240);
BB:=((100 * (MYP - CLOSE)) / CLOSE);
EXPLAINEX((BB >= 0.01),'年最大虧損：％',BB,2,0),colorCCFF66;
EXPLAIN((1 = 1),'諸子百家：海納百川,有容乃大;溫故知新,無往不利。');
EXPLAIN((1 = 1),' '),color10000;
lillian2005 2007-5-4 06:10
input:LONG(26,26,26),SHORT(12,12,12),M(9,9,9);
DIFF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),LINETHICK2,colorFFFF;
DEA:EMA(DIFF,M),colorFF00;
MACD:2 * (DIFF - DEA),COLORSTICK;
STICKLINE((MACD > 0),0,MACD,8,1),colorFF;
STICKLINE((MACD < 0),0,MACD,8,1),colorFFFF33;
AJ:=(DEA > DIFF);
AJ1:=(DEA > 0);
PARTLINE(AJ,DEA),colorFF00;
PARTLINE((AJ1 AND AJ),DEA),colorFF00;
BJ:=(DEA < DIFF);
BJ1:=(DEA <> 0);
PARTLINE((BJ1 AND BJ),DEA),colorFF00;
BJ2:=(((DEA < (0 - 1)) AND (DEA < DIFF)) AND (MACD < (0 - 1)));
PARTLINE(BJ2,DEA),colorFF00;
TJ:=(DIFF > DEA);
TJ1:=(DIFF > 0);
PARTLINE(TJ,DIFF),LINETHICK2,colorFF00FF;
PARTLINE((TJ1 AND TJ),DIFF),LINETHICK2,colorFF;
ZJ:=(DIFF < DEA);
ZJ1:=(DIFF < 0);
PARTLINE((ZJ1 AND ZJ),DIFF),LINETHICK2,colorFFFF;
TJ2:=(((DIFF < (0 - 1)) AND (DIFF < DEA)) AND (MACD < (0 - 1)));
PARTLINE(TJ2,DIFF),LINETHICK2,colorFF0000;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2 - B1);
C1:=LLV(LOW,999999);
C2:=HHV(HIGH,999999);
C3:=(C2 - C1);
D:=(B3 / C3);
高開高走:STICKLINE((LOW > REF(CLOSE,1)),0,0.25,1,0),color1598FF;
低開低走:STICKLINE((HIGH < REF(CLOSE,1)),0,(0 - 0.25),1,0),color7FB000;
DRAWICON(CROSS(DEA,DIFF),DEA,11);
DRAWICON(CROSS(DIFF,DEA),DIFF,10);
TJ1:=(MACD > 0);
TJ2:=(TJ1 > REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=HHVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJ3:=(TJ < REF(TJ,1));
DRAWICON(TJ3,MACD,5),ALIGN0;
TJ1:=(MACD < 0);
TJ2:=(TJ1 < REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=LLVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJA:=(TJ < REF(TJ,1));
DRAWICON(TJA,MACD,4),ALIGN1;
TJB:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VAR1:=LLV(LOW,5);
VAR2:=HHV(HIGH,4);
VAR3:=EMA((((TJB - VAR1) / (VAR2 - VAR1)) * 100),4);
VAR4:=EMA(((0.667 * REF(VAR3,1)) + (0.333 * VAR3)),2);
DRAWICON((CROSS(VAR3,VAR4) AND (VAR3 < 40)),MACD,4),ALIGN1,colorFF;
VAR5:=((((CLOSE * 2) + HIGH) + LOW) / 4);
VAR6:=(EMA(VAR5,13) - EMA(VAR5,34));
VAR7:=EMA(VAR6,5);
VAR8:=(((0 - 2) * (VAR6 - VAR7)) * 3.8);
DRAWICON((CROSS(VAR8,MA(VAR8,3)) AND (VAR8 < 0)),MACD,5),ALIGN0;
VAR9:=REF(CLOSE,1);
VAR10:=((SMA(MAX((CLOSE - VAR9),0),6,1) / SMA(ABS((CLOSE - VAR9)),6,1)) * 100);
VAR11:=(CROSS(80,VAR10) * 70);
DRAWICON(VAR11,MACD,5),ALIGN0;
賣出:=((((CLOSE / REF(CLOSE,1)) >= 1.062) AND ((HIGH / CLOSE) < 1.005)) AND ((MA(CLOSE,90) / CLOSE) >= 1.15));
VAR132:=(賣出 AND (COUNT(賣出,20) = 1));
VAR133:=((INDEXC - REF(INDEXC,1)) / REF(INDEXC,1));
VAR134:=((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1));
VAR135:=(IF((VAR133 > 0.01),0.9,1) AND IF((VAR133 > (0 - 0.025)),1,1.2));
VAR136:=((VAR135 * (VAR134 - VAR133)) * 100);
VAR137:=SUM(VAR136,10);
VAR138:=SMA(VAR137,40,1);
VAR139:=(VAR137 > 20);
VAR310:=(((CROSS(CLOSE,MA((CLOSE * 1.055),3)) AND (CLOSE > (OPEN * 1.06))) AND (VOL >= (REF(VOL,1) * 1.5))) AND (CLOSE >= MA(CLOSE,10)));
VAR311:=(VAR139 AND VAR310);
VAR312:=(((0 - 100) * (HHV(HIGH,3) - CLOSE)) / (HHV(HIGH,3) - LLV(LOW,3)));
VAR313:=(((CROSS(VAR312,(0 - 87)) AND (OPEN = (1.09 * REF(CLOSE,1)))) AND (INDEXC > (0.98 * REF(INDEXC,1)))) AND (CLOSE <= (1.47 * LLV(CLOSE,58))));
VAR314:=(EMA(CLOSE,12) - EMA(CLOSE,26));
VAR315:=EMA(VAR314,9);
VAR316:=(2 * (VAR314 - VAR315));
VAR317:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
VAR318:=SMA(VAR317,3,1);
VAR319:=SMA(VAR318,3,1);
VAR320:=(EMA(IF((VAR315 > REF(VAR315,1)),1,(0 - 1)),14) * 14);
VAR321:=((EMA(IF((VAR319 > REF(VAR319,1)),1,(0 - 1)),14) * 14) * 2);
VAR322:=(((MA(CLOSE,5) / MA(CLOSE,70)) - 1) * 100);
VAR323:=(((VAR322 + VAR321) + VAR320) / 3);
VAR324:=(MA(CLOSE,80) - (MA(CLOSE,10) / 3));
VAR325:=IF((((CLOSE AND (MA(VOL,5) / 240)) AND (CLOSE > (REF(CLOSE,1) * 1))) AND CLOSE),88,0);
VAR326:=IF((((((CLOSE / REF(CLOSE,1)) > 1.05) AND (((VOL / CAPITAL) * 100) < 10)) AND ((HIGH / CLOSE) < 1.01)) AND (VAR325 > 0)),91,0);
VAR327:=IF((((((VAR323 > REF(VAR323,1)) AND (REF(VAR323,1) < REF(VAR323,2))) AND ((VAR132 OR VAR311) OR VAR313)) OR (VAR325 > 0)) OR (VAR326 > 0)),85,0);
VAR328:=IF((VAR326 > 0),95,0);
VAR329:=IF(((VAR325 > 0) OR (VAR326 > 0)),91,0);
VAR330:=IF((((VAR327 > 0) OR (VAR326 > 0)) OR (VAR325 > 0)),88,0);
VAR331:=((100 * (CLOSE - LLV(LOW,42))) / (HHV(HIGH,42) - LLV(LOW,42)));
VAR332:=(COUNT((MA(CLOSE,3) > REF(MA(CLOSE,3),1)),1) = 1);
VAR333:=((((VAR331 < 93) AND VAR332) AND MAX(MAX(VAR328,VAR329),VAR330)) * 100);
DRAWICON((VAR326 > 90),0,6);
DRAWICON((CLOSE > (REF(CLOSE,1) * 1.096)),0,6);
TJ:=((WEEKDAY - REF(WEEKDAY,1)) <> DATEDIFF(REF(DATE,1),DATE));
VAR334:=CLOSE;
上周:REF(CLOSE,SUMBARS(TJ,1)),LINETHICK0,colorFFAF00;
上月:REF(CLOSE,SUMBARS(TJ,4)),LINETHICK0,colorE7ABAF;
三個月前:REF(CLOSE,SUMBARS(TJ,12)),LINETHICK0,color3CFFD4;
半年前:REF(CLOSE,SUMBARS(TJ,24)),LINETHICK0,colorFF30BB;
一年前:REF(CLOSE,SUMBARS(TJ,48)),LINETHICK0;
EXPLAIN((HIGH >= HHV(HIGH,5)),'創5日新高'),colorFF;
EXPLAINICON((HIGH >= HHV(HIGH,5)),4);
EXPLAIN((LOW <= LLV(LOW,5)),'創5日新低'),colorFFFF00;
EXPLAINICON((LOW <= LLV(LOW,5)),1);
本周:=CROSS(DIFF,DEA);
JC:=CROSS(DEA,DIFF);
SC:=(本周 AND (DEA > 0));
EXPLAIN(CROSS(DIFF,0),'空頭轉多頭行情'),color66FF;
EXPLAIN((((MACD > 0) AND (DIFF > 0)) AND (DIFF > REF(DIFF,1))),'當前多頭格局'),color66FF;
EXPLAIN((MACD > 0.35),'股價超買，隨時可能下跌'),colorCC00;
EXPLAIN((((((MACD > 0) AND (DIFF > 0)) AND (DIFF > DEA)) AND (DIFF > REF(DIFF,1))) AND (CLOSE > REF(CLOSE,1))),'上升趨勢不變'),colorCC33FF;
EXPLAIN(CROSS(0,DIFF),'多頭轉空頭行情'),colorCC99;
EXPLAIN((((MACD < 0) AND (DIFF < 0)) AND (DIFF < REF(DIFF,1))),'當前空頭格局'),colorCC99;
EXPLAIN((((((MACD < 0) AND (DIFF < 0)) AND (DIFF < DEA)) AND (DIFF < REF(DIFF,1))) AND (CLOSE < REF(CLOSE,1))),'下降趨勢不變'),colorFFCC99;
EXPLAIN((MACD < (0 - 0.35)),'股價超賣中'),colorCCFF00;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD > REF(MACD,1))),'有加速上漲趨勢'),colorFF;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD <= REF(MACD,1))),'逢高賣出，注意適時回補'),colorCCFF99;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD < REF(MACD,1))),'回落整理階段'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD < REF(MACD,1))),'趨勢加速向下'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD > REF(MACD,1))),'反彈階段,保持謹慎'),color66FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD < REF(MACD,1))),'短線反彈結束，謹慎'),color999933;
DCJC:=MA((VOL / (HIGH - LOW)),4);
VAR12:=ABS((CLOSE - OPEN));
VAR13:=(VOL / (HIGH - LOW));
EXPLAIN(((VAR13 < DCJC) AND (VAR12 < MA(VAR12,4))),'資金無入場意願'),color6600;
EXPLAIN(((VAR13 < DCJC) AND (VAR12 > MA(VAR12,4))),'場內資金運作行為'),colorAAAAAA;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 < MA(VAR12,4))),'多空雙方激烈爭奪'),color33CC;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 > MA(VAR12,4))),'資金介入或出局強烈'),colorFFFFFF;
VAR14:=(CLOSE - REF(CLOSE,6));
A001:=MA(VAR14,6);
A002:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
A003:=SMA(A002,3,1);
A004:=SMA(A003,3,1);
A005:=EMA(((3 * A003) - (2 * A004)),2);
A006:=(((HIGH + LOW) + CLOSE) / 3);
A007:=(((A006 - MA(A006,14)) / (0.015 * AVEDEV(A006,14))) / 2);
A008:=((A007 + ((EMA((((0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))) + 100) / 100),3) * 200) - 100)) / 2);
A009:=(A008 - REF(A008,14));
A010:=(A008 - REF(A008,26));
A011:=(((A008 + A009) + A010) / 3);
A012:=EMA(A011,4);
KKM:=HHV(HIGH,34);
A013:=((((2 * CLOSE) + HIGH) + LOW) / 4);
A014:=LLV(LOW,34);
A015:=EMA((((A013 - A014) / (KKM - A014)) * 100),13);
A016:=EMA(((0.667 * REF(A015,1)) + (0.333 * A015)),2);
A017:=((((A015 - A016) > 1) AND (A015 < 30)) AND (A016 < 30));
KKMD:=(((((A015 - A016) < 0) AND (A015 > 80)) AND (A016 > 80)) AND (REF((A015 - A016),1) > 0));
KKML:=(COUNT(((A015 - A016) > 0),2) = 2);
KKMQ:=((A015 - A016) < 0);
EXPLAIN(((CLOSE / REF(CLOSE,1)) > (INDEXC / REF(INDEXC,1))),'該股走勢強於大盤'),color66FFFF;
EXPLAIN(A017,'可以考慮買入'),colorFF;
EXPLAIN(KKMD,'可以考慮賣出'),colorFF00;
EXPLAIN(KKML,'建議持倉'),colorFF;
EXPLAIN(KKMQ,'建議減倉'),colorFFFF00;
EXPLAIN(CROSS(MA(CLOSE,5),MA(CLOSE,10)),'試盤買進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 > REF(A012,1))),'注意適時加倉跟進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時迴避風險'),colorCCFF33;
EXPLAIN(((A012 < EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時減倉出局'),colorFF00;
EXPLAIN((CROSS(DIFF,DEA) AND CROSS(MACD,0)),'MACD上穿0軸,可考慮買入'),color6633FF;
EXPLAIN((本周 AND (DEA > 0)),'解：MACD在0軸上金叉'),colorFF;
EXPLAIN((本周 AND (DEA < 0)),'解：MACD在0軸下金叉'),colorFF;
EXPLAIN((JC AND (DEA > 0)),'解：MACD在0軸上死叉'),colorFF0000;
EXPLAIN((JC AND (DEA < 0)),'解：MACD在0軸下死叉'),colorFF0000;
EXPLAIN(((MACD > 0) AND (MACD > REF(MACD,1))),'解：MACD的紅柱,增長'),colorFF;
EXPLAIN(((MACD > 0) AND (MACD < REF(MACD,1))),'解：MACD的紅柱,縮短'),color3366CC;
EXPLAIN(((MACD < 0) AND (ABS(MACD) > REF(ABS(MACD),1))),'解：MACD的綠柱,增長'),colorFF00;
EXPLAIN(((MACD < 0) AND (ABS(MACD) < REF(ABS(MACD),1))),'解：MACD的綠柱,縮短'),colorFFFF00;
EXPLAIN((((COUNT(SC,20) = 2) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,2'),colorFF;
EXPLAIN((((COUNT(SC,20) = 3) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,3'),colorFF;
EXPLAIN((((COUNT(SC,20) = 4) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,4'),colorFF;
EXPLAINEX((0 = 0),'解：MACD=',MACD,2,0),colorFF00FF;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK0;
D:SMA(K,3,1),ColorCF7690,LINETHICK0;
J:3*K-2*D,LINETHICK0;
EXPLAINEX((K > 0),'解：K值係數=',K,2,0),colorFF6699;
EXPLAINEX((D > 0),'解：D值係數=',D,2,0),color99CC;
EXPLAIN(CROSS(K,D),'解：K與D今日金叉'),colorFF;
EXPLAIN(CROSS(D,K),'解：K與D今日死叉'),colorFF0000;
RSV:=(((HIGH + LOW) + CLOSE) / 3);
TYP:=((RSV - MA(RSV,14)) / (0.015 * AVEDEV(RSV,14)));
CCI:=(0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
EXPLAINEX((1 = 1),'解：威廉指標=',CCI,2,0),colorFF66FF;
WR:=REF(CLOSE,1);
LC:=((SMA(MAX((CLOSE - WR),0),6,1) / SMA(ABS((CLOSE - WR)),6,1)) * 100);
RSI1:=((SMA(MAX((CLOSE - WR),0),12,1) / SMA(ABS((CLOSE - WR)),12,1)) * 100);
EXPLAINEX((1 = 1),'解：相對強弱RSI1=',LC,2,0),colorFFCC33;
EXPLAINEX((1 = 1),'流通盤（億）：',(CAPITAL / 1000000),2,0),colorFFFF00;
EXPLAINEX((1 = 1),'公積金（元）：',FINANCE(18),2,0),colorFF6666;
EXPLAINEX((1 = 1),'收益（元）：',FINANCE(33),2,0),color66FF;
EXPLAINEX((1 = 1),'淨資產收益率：％',FINANCE(37),2,0),colorFF00;
EXPLAINEX((1 = 1),'市盈率（倍）：',DYNAINFO(39),2,0),colorFF;
RSI2:=EMA(((AMOUNT / VOL) / 100),3);
EXPLAINEX((1 = 1),'成本價格（元）：',EMA(RSI2,88),2,0),LINETHICK0,colorE5679A;
EXPLAINEX((1 = 1),'伏擊價格（元）：',(EMA(RSI2,88) * 0.85),2,0),LINETHICK0,color5E9A;
EXPLAINEX((1 = 1),'莊籌估算：％',EMA((WINNER(CLOSE) * 70),5),2,0),LINETHICK0,colorFF00FF;
EXPLAINEX((1 = 1),'散籌估算：％',EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),5),2,0),LINETHICK0,colorFF00;
EXPLAINEX((1 = 1),'獲利盤比例：％',(WINNER(CLOSE) * 100),2,0),colorFF;
EXPLAINEX((1 = 1),'套牢盤比例：％',(100 - (WINNER(CLOSE) * 100)),2,0),colorFF00;
VAR15:=LLV(HIGH,240);
AA:=((100 * (CLOSE - VAR15)) / VAR15);
EXPLAINEX((AA >= 0.01),'年最大收益：％',AA,2,0),color66FF;
MYP:=HHV(HIGH,240);
BB:=((100 * (MYP - CLOSE)) / CLOSE);
EXPLAINEX((BB >= 0.01),'年最大虧損：％',BB,2,0),colorCCFF66;
EXPLAIN((1 = 1),'諸子百家：海納百川,有容乃大;溫故知新,無往不利。');
EXPLAIN((1 = 1),' '),color10000;
雕得尊 2007-9-29 08:58
一级狐友
个人空间 发短消息 加为好友 当前离线 1楼 大 中 小 发表于 2007-5-4 02:30 只看该作者
MACD狂欢--原码
EXPLAIN((1 = 1),'诸子百家：海纳百川,有容乃大;温故知新,无往不利。');
已删除
[ 本帖最后由 w86272420 于 2007-5-4 02:43 编辑 ]
本帖最近评分记录
mssz103 积分 -10 2007-5-10 11:36
lillian2005 热心 +5 請繼續支持 2007-5-4 06:12
UID22624 帖子3 精华0 积分12 阅读权限10 在线时间1 小时 注册时间2006-5-2 最后登录2007-9-6 查看详细资料
引用 使用道具 报告 评分 回复 TOP
w86272420
一级狐友
个人空间 发短消息 加为好友 当前离线 2楼 大 中 小 发表于 2007-5-4 02:32 只看该作者
发个公式给1分，以后不发了。。。。。。
[ 本帖最后由 w86272420 于 2007-5-4 02:42 编辑 ]
本帖最近评分记录
mssz103 积分 -3 2007-5-10 12:08
UID22624 帖子3 精华0 积分12 阅读权限10 在线时间1 小时 注册时间2006-5-2 最后登录2007-9-6 查看详细资料
引用 使用道具 报告 评分 回复 TOP
lillian2005
公式团组
个人空间 发短消息 加为好友 当前离线 3楼 大 中 小 发表于 2007-5-4 06:09 只看该作者
朋友來了就走,殊感遺憾,我想大部分的人都還沒有緣份見到你的帖子呢,替你補上兩個網上最常見的"MACD狂歡"公式,以感謝朋友的美意
input:LONG(26,26,26),SHORT(12,12,12),M(9,9,9);
DIFF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),LINETHICK2,colorFFFF;
DEA:EMA(DIFF,M),colorFF00;
MACD:2 * (DIFF - DEA),COLORSTICK;
STICKLINE((MACD > 0),0,MACD,8,1),colorFF;
STICKLINE((MACD < 0),0,MACD,8,1),colorFFFF33;
AJ:=(DEA > DIFF);
AJ1:=(DEA > 0);
PARTLINE(AJ,DEA),colorFF00;
PARTLINE((AJ1 AND AJ),DEA),colorFF00;
BJ:=(DEA < DIFF);
BJ1:=(DEA <> 0);
PARTLINE((BJ1 AND BJ),DEA),colorFF00;
BJ2:=(((DEA < (0 - 1)) AND (DEA < DIFF)) AND (MACD < (0 - 1)));
PARTLINE(BJ2,DEA),colorFF00;
TJ:=(DIFF > DEA);
TJ1:=(DIFF > 0);
PARTLINE(TJ,DIFF),LINETHICK2,colorFF00FF;
PARTLINE((TJ1 AND TJ),DIFF),LINETHICK2,colorFF;
ZJ:=(DIFF < DEA);
ZJ1:=(DIFF < 0);
PARTLINE((ZJ1 AND ZJ),DIFF),LINETHICK2,colorFFFF;
TJ2:=(((DIFF < (0 - 1)) AND (DIFF < DEA)) AND (MACD < (0 - 1)));
PARTLINE(TJ2,DIFF),LINETHICK2,colorFF0000;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2 - B1);
C1:=LLV(LOW,999999);
C2:=HHV(HIGH,999999);
C3:=(C2 - C1);
D:=(B3 / C3);
高開高走:STICKLINE((LOW > REF(CLOSE,1)),0,0.25,1,0),color1598FF;
低開低走:STICKLINE((HIGH < REF(CLOSE,1)),0,(0 - 0.25),1,0),color7FB000;
DRAWICON(CROSS(DEA,DIFF),DEA,11);
DRAWICON(CROSS(DIFF,DEA),DIFF,10);
TJ1:=(MACD > 0);
TJ2:=(TJ1 > REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=HHVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJ3:=(TJ < REF(TJ,1));
DRAWICON(TJ3,MACD,5),ALIGN0;
TJ1:=(MACD < 0);
TJ2:=(TJ1 < REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=LLVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJA:=(TJ < REF(TJ,1));
DRAWICON(TJA,MACD,4),ALIGN1;
TJB:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VAR1:=LLV(LOW,5);
VAR2:=HHV(HIGH,4);
VAR3:=EMA((((TJB - VAR1) / (VAR2 - VAR1)) * 100),4);
VAR4:=EMA(((0.667 * REF(VAR3,1)) + (0.333 * VAR3)),2);
DRAWICON((CROSS(VAR3,VAR4) AND (VAR3 < 40)),MACD,4),ALIGN1,colorFF;
VAR5:=((((CLOSE * 2) + HIGH) + LOW) / 4);
VAR6:=(EMA(VAR5,13) - EMA(VAR5,34));
VAR7:=EMA(VAR6,5);
VAR8:=(((0 - 2) * (VAR6 - VAR7)) * 3.8);
DRAWICON((CROSS(VAR8,MA(VAR8,3)) AND (VAR8 < 0)),MACD,5),ALIGN0;
VAR9:=REF(CLOSE,1);
VAR10:=((SMA(MAX((CLOSE - VAR9),0),6,1) / SMA(ABS((CLOSE - VAR9)),6,1)) * 100);
VAR11:=(CROSS(80,VAR10) * 70);
DRAWICON(VAR11,MACD,5),ALIGN0;
賣出:=((((CLOSE / REF(CLOSE,1)) >= 1.062) AND ((HIGH / CLOSE) < 1.005)) AND ((MA(CLOSE,90) / CLOSE) >= 1.15));
VAR132:=(賣出 AND (COUNT(賣出,20) = 1));
VAR133:=((INDEXC - REF(INDEXC,1)) / REF(INDEXC,1));
VAR134:=((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1));
VAR135:=(IF((VAR133 > 0.01),0.9,1) AND IF((VAR133 > (0 - 0.025)),1,1.2));
VAR136:=((VAR135 * (VAR134 - VAR133)) * 100);
VAR137:=SUM(VAR136,10);
VAR138:=SMA(VAR137,40,1);
VAR139:=(VAR137 > 20);
VAR310:=(((CROSS(CLOSE,MA((CLOSE * 1.055),3)) AND (CLOSE > (OPEN * 1.06))) AND (VOL >= (REF(VOL,1) * 1.5))) AND (CLOSE >= MA(CLOSE,10)));
VAR311:=(VAR139 AND VAR310);
VAR312:=(((0 - 100) * (HHV(HIGH,3) - CLOSE)) / (HHV(HIGH,3) - LLV(LOW,3)));
VAR313:=(((CROSS(VAR312,(0 - 87)) AND (OPEN = (1.09 * REF(CLOSE,1)))) AND (INDEXC > (0.98 * REF(INDEXC,1)))) AND (CLOSE <= (1.47 * LLV(CLOSE,58))));
VAR314:=(EMA(CLOSE,12) - EMA(CLOSE,26));
VAR315:=EMA(VAR314,9);
VAR316:=(2 * (VAR314 - VAR315));
VAR317:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
VAR318:=SMA(VAR317,3,1);
VAR319:=SMA(VAR318,3,1);
VAR320:=(EMA(IF((VAR315 > REF(VAR315,1)),1,(0 - 1)),14) * 14);
VAR321:=((EMA(IF((VAR319 > REF(VAR319,1)),1,(0 - 1)),14) * 14) * 2);
VAR322:=(((MA(CLOSE,5) / MA(CLOSE,70)) - 1) * 100);
VAR323:=(((VAR322 + VAR321) + VAR320) / 3);
VAR324:=(MA(CLOSE,80) - (MA(CLOSE,10) / 3));
VAR325:=IF((((CLOSE AND (MA(VOL,5) / 240)) AND (CLOSE > (REF(CLOSE,1) * 1))) AND CLOSE),88,0);
VAR326:=IF((((((CLOSE / REF(CLOSE,1)) > 1.05) AND (((VOL / CAPITAL) * 100) < 10)) AND ((HIGH / CLOSE) < 1.01)) AND (VAR325 > 0)),91,0);
VAR327:=IF((((((VAR323 > REF(VAR323,1)) AND (REF(VAR323,1) < REF(VAR323,2))) AND ((VAR132 OR VAR311) OR VAR313)) OR (VAR325 > 0)) OR (VAR326 > 0)),85,0);
VAR328:=IF((VAR326 > 0),95,0);
VAR329:=IF(((VAR325 > 0) OR (VAR326 > 0)),91,0);
VAR330:=IF((((VAR327 > 0) OR (VAR326 > 0)) OR (VAR325 > 0)),88,0);
VAR331:=((100 * (CLOSE - LLV(LOW,42))) / (HHV(HIGH,42) - LLV(LOW,42)));
VAR332:=(COUNT((MA(CLOSE,3) > REF(MA(CLOSE,3),1)),1) = 1);
VAR333:=((((VAR331 < 93) AND VAR332) AND MAX(MAX(VAR328,VAR329),VAR330)) * 100);
DRAWICON((VAR326 > 90),0,6);
DRAWICON((CLOSE > (REF(CLOSE,1) * 1.096)),0,6);
TJ:=((WEEKDAY - REF(WEEKDAY,1)) <> DATEDIFF(REF(DATE,1),DATE));
VAR334:=CLOSE;
上周:REF(CLOSE,SUMBARS(TJ,1)),LINETHICK0,colorFFAF00;
上月:REF(CLOSE,SUMBARS(TJ,4)),LINETHICK0,colorE7ABAF;
三個月前:REF(CLOSE,SUMBARS(TJ,12)),LINETHICK0,color3CFFD4;
半年前:REF(CLOSE,SUMBARS(TJ,24)),LINETHICK0,colorFF30BB;
一年前:REF(CLOSE,SUMBARS(TJ,48)),LINETHICK0;
EXPLAIN((HIGH >= HHV(HIGH,5)),'創5日新高'),colorFF;
EXPLAINICON((HIGH >= HHV(HIGH,5)),4);
EXPLAIN((LOW <= LLV(LOW,5)),'創5日新低'),colorFFFF00;
EXPLAINICON((LOW <= LLV(LOW,5)),1);
本周:=CROSS(DIFF,DEA);
JC:=CROSS(DEA,DIFF);
SC:=(本周 AND (DEA > 0));
EXPLAIN(CROSS(DIFF,0),'空頭轉多頭行情'),color66FF;
EXPLAIN((((MACD > 0) AND (DIFF > 0)) AND (DIFF > REF(DIFF,1))),'當前多頭格局'),color66FF;
EXPLAIN((MACD > 0.35),'股價超買，隨時可能下跌'),colorCC00;
EXPLAIN((((((MACD > 0) AND (DIFF > 0)) AND (DIFF > DEA)) AND (DIFF > REF(DIFF,1))) AND (CLOSE > REF(CLOSE,1))),'上升趨勢不變'),colorCC33FF;
EXPLAIN(CROSS(0,DIFF),'多頭轉空頭行情'),colorCC99;
EXPLAIN((((MACD < 0) AND (DIFF < 0)) AND (DIFF < REF(DIFF,1))),'當前空頭格局'),colorCC99;
EXPLAIN((((((MACD < 0) AND (DIFF < 0)) AND (DIFF < DEA)) AND (DIFF < REF(DIFF,1))) AND (CLOSE < REF(CLOSE,1))),'下降趨勢不變'),colorFFCC99;
EXPLAIN((MACD < (0 - 0.35)),'股價超賣中'),colorCCFF00;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD > REF(MACD,1))),'有加速上漲趨勢'),colorFF;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD <= REF(MACD,1))),'逢高賣出，注意適時回補'),colorCCFF99;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD < REF(MACD,1))),'回落整理階段'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD < REF(MACD,1))),'趨勢加速向下'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD > REF(MACD,1))),'反彈階段,保持謹慎'),color66FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD < REF(MACD,1))),'短線反彈結束，謹慎'),color999933;
DCJC:=MA((VOL / (HIGH - LOW)),4);
VAR12:=ABS((CLOSE - OPEN));
VAR13:=(VOL / (HIGH - LOW));
EXPLAIN(((VAR13 < DCJC) AND (VAR12 < MA(VAR12,4))),'資金無入場意願'),color6600;
EXPLAIN(((VAR13 < DCJC) AND (VAR12 > MA(VAR12,4))),'場內資金運作行為'),colorAAAAAA;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 < MA(VAR12,4))),'多空雙方激烈爭奪'),color33CC;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 > MA(VAR12,4))),'資金介入或出局強烈'),colorFFFFFF;
VAR14:=(CLOSE - REF(CLOSE,6));
A001:=MA(VAR14,6);
A002:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
A003:=SMA(A002,3,1);
A004:=SMA(A003,3,1);
A005:=EMA(((3 * A003) - (2 * A004)),2);
A006:=(((HIGH + LOW) + CLOSE) / 3);
A007:=(((A006 - MA(A006,14)) / (0.015 * AVEDEV(A006,14))) / 2);
A008:=((A007 + ((EMA((((0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))) + 100) / 100),3) * 200) - 100)) / 2);
A009:=(A008 - REF(A008,14));
A010:=(A008 - REF(A008,26));
A011:=(((A008 + A009) + A010) / 3);
A012:=EMA(A011,4);
KKM:=HHV(HIGH,34);
A013:=((((2 * CLOSE) + HIGH) + LOW) / 4);
A014:=LLV(LOW,34);
A015:=EMA((((A013 - A014) / (KKM - A014)) * 100),13);
A016:=EMA(((0.667 * REF(A015,1)) + (0.333 * A015)),2);
A017:=((((A015 - A016) > 1) AND (A015 < 30)) AND (A016 < 30));
KKMD:=(((((A015 - A016) < 0) AND (A015 > 80)) AND (A016 > 80)) AND (REF((A015 - A016),1) > 0));
KKML:=(COUNT(((A015 - A016) > 0),2) = 2);
KKMQ:=((A015 - A016) < 0);
EXPLAIN(((CLOSE / REF(CLOSE,1)) > (INDEXC / REF(INDEXC,1))),'該股走勢強於大盤'),color66FFFF;
EXPLAIN(A017,'可以考慮買入'),colorFF;
EXPLAIN(KKMD,'可以考慮賣出'),colorFF00;
EXPLAIN(KKML,'建議持倉'),colorFF;
EXPLAIN(KKMQ,'建議減倉'),colorFFFF00;
EXPLAIN(CROSS(MA(CLOSE,5),MA(CLOSE,10)),'試盤買進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 > REF(A012,1))),'注意適時加倉跟進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時迴避風險'),colorCCFF33;
EXPLAIN(((A012 < EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時減倉出局'),colorFF00;
EXPLAIN((CROSS(DIFF,DEA) AND CROSS(MACD,0)),'MACD上穿0軸,可考慮買入'),color6633FF;
EXPLAIN((本周 AND (DEA > 0)),'解：MACD在0軸上金叉'),colorFF;
EXPLAIN((本周 AND (DEA < 0)),'解：MACD在0軸下金叉'),colorFF;
EXPLAIN((JC AND (DEA > 0)),'解：MACD在0軸上死叉'),colorFF0000;
EXPLAIN((JC AND (DEA < 0)),'解：MACD在0軸下死叉'),colorFF0000;
EXPLAIN(((MACD > 0) AND (MACD > REF(MACD,1))),'解：MACD的紅柱,增長'),colorFF;
EXPLAIN(((MACD > 0) AND (MACD < REF(MACD,1))),'解：MACD的紅柱,縮短'),color3366CC;
EXPLAIN(((MACD < 0) AND (ABS(MACD) > REF(ABS(MACD),1))),'解：MACD的綠柱,增長'),colorFF00;
EXPLAIN(((MACD < 0) AND (ABS(MACD) < REF(ABS(MACD),1))),'解：MACD的綠柱,縮短'),colorFFFF00;
EXPLAIN((((COUNT(SC,20) = 2) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,2'),colorFF;
EXPLAIN((((COUNT(SC,20) = 3) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,3'),colorFF;
EXPLAIN((((COUNT(SC,20) = 4) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,4'),colorFF;
EXPLAINEX((0 = 0),'解：MACD=',MACD,2,0),colorFF00FF;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK0;
D:SMA(K,3,1),ColorCF7690,LINETHICK0;
J:3*K-2*D,LINETHICK0;
EXPLAINEX((K > 0),'解：K值係數=',K,2,0),colorFF6699;
EXPLAINEX((D > 0),'解：D值係數=',D,2,0),color99CC;
EXPLAIN(CROSS(K,D),'解：K與D今日金叉'),colorFF;
EXPLAIN(CROSS(D,K),'解：K與D今日死叉'),colorFF0000;
RSV:=(((HIGH + LOW) + CLOSE) / 3);
TYP:=((RSV - MA(RSV,14)) / (0.015 * AVEDEV(RSV,14)));
CCI:=(0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
EXPLAINEX((1 = 1),'解：威廉指標=',CCI,2,0),colorFF66FF;
WR:=REF(CLOSE,1);
LC:=((SMA(MAX((CLOSE - WR),0),6,1) / SMA(ABS((CLOSE - WR)),6,1)) * 100);
RSI1:=((SMA(MAX((CLOSE - WR),0),12,1) / SMA(ABS((CLOSE - WR)),12,1)) * 100);
EXPLAINEX((1 = 1),'解：相對強弱RSI1=',LC,2,0),colorFFCC33;
EXPLAINEX((1 = 1),'流通盤（億）：',(CAPITAL / 1000000),2,0),colorFFFF00;
EXPLAINEX((1 = 1),'公積金（元）：',FINANCE(18),2,0),colorFF6666;
EXPLAINEX((1 = 1),'收益（元）：',FINANCE(33),2,0),color66FF;
EXPLAINEX((1 = 1),'淨資產收益率：％',FINANCE(37),2,0),colorFF00;
EXPLAINEX((1 = 1),'市盈率（倍）：',DYNAINFO(39),2,0),colorFF;
RSI2:=EMA(((AMOUNT / VOL) / 100),3);
EXPLAINEX((1 = 1),'成本價格（元）：',EMA(RSI2,88),2,0),LINETHICK0,colorE5679A;
EXPLAINEX((1 = 1),'伏擊價格（元）：',(EMA(RSI2,88) * 0.85),2,0),LINETHICK0,color5E9A;
EXPLAINEX((1 = 1),'莊籌估算：％',EMA((WINNER(CLOSE) * 70),5),2,0),LINETHICK0,colorFF00FF;
EXPLAINEX((1 = 1),'散籌估算：％',EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),5),2,0),LINETHICK0,colorFF00;
EXPLAINEX((1 = 1),'獲利盤比例：％',(WINNER(CLOSE) * 100),2,0),colorFF;
EXPLAINEX((1 = 1),'套牢盤比例：％',(100 - (WINNER(CLOSE) * 100)),2,0),colorFF00;
VAR15:=LLV(HIGH,240);
AA:=((100 * (CLOSE - VAR15)) / VAR15);
EXPLAINEX((AA >= 0.01),'年最大收益：％',AA,2,0),color66FF;
MYP:=HHV(HIGH,240);
BB:=((100 * (MYP - CLOSE)) / CLOSE);
EXPLAINEX((BB >= 0.01),'年最大虧損：％',BB,2,0),colorCCFF66;
EXPLAIN((1 = 1),'諸子百家：海納百川,有容乃大;溫故知新,無往不利。');
EXPLAIN((1 = 1),' '),color10000;学习,交流
UID19130 帖子1473 精华1 积分8530 阅读权限100 在线时间1374 小时 注册时间2005-10-21 最后登录2007-9-29 查看详细资料
引用 使用道具 报告 评分 回复 TOP
lillian2005
公式团组
个人空间 发短消息 加为好友 当前离线 4楼 大 中 小 发表于 2007-5-4 06:10 只看该作者
input:LONG(26,26,26),SHORT(12,12,12),M(9,9,9);
DIFF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),LINETHICK2,colorFFFF;
DEA:EMA(DIFF,M),colorFF00;
MACD:2 * (DIFF - DEA),COLORSTICK;
STICKLINE((MACD > 0),0,MACD,8,1),colorFF;
STICKLINE((MACD < 0),0,MACD,8,1),colorFFFF33;
AJ:=(DEA > DIFF);
AJ1:=(DEA > 0);
PARTLINE(AJ,DEA),colorFF00;
PARTLINE((AJ1 AND AJ),DEA),colorFF00;
BJ:=(DEA < DIFF);
BJ1:=(DEA <> 0);
PARTLINE((BJ1 AND BJ),DEA),colorFF00;
BJ2:=(((DEA < (0 - 1)) AND (DEA < DIFF)) AND (MACD < (0 - 1)));
PARTLINE(BJ2,DEA),colorFF00;
TJ:=(DIFF > DEA);
TJ1:=(DIFF > 0);
PARTLINE(TJ,DIFF),LINETHICK2,colorFF00FF;
PARTLINE((TJ1 AND TJ),DIFF),LINETHICK2,colorFF;
ZJ:=(DIFF < DEA);
ZJ1:=(DIFF < 0);
PARTLINE((ZJ1 AND ZJ),DIFF),LINETHICK2,colorFFFF;
TJ2:=(((DIFF < (0 - 1)) AND (DIFF < DEA)) AND (MACD < (0 - 1)));
PARTLINE(TJ2,DIFF),LINETHICK2,colorFF0000;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2 - B1);
C1:=LLV(LOW,999999);
C2:=HHV(HIGH,999999);
C3:=(C2 - C1);
D:=(B3 / C3);
高開高走:STICKLINE((LOW > REF(CLOSE,1)),0,0.25,1,0),color1598FF;
低開低走:STICKLINE((HIGH < REF(CLOSE,1)),0,(0 - 0.25),1,0),color7FB000;
DRAWICON(CROSS(DEA,DIFF),DEA,11);
DRAWICON(CROSS(DIFF,DEA),DIFF,10);
TJ1:=(MACD > 0);
TJ2:=(TJ1 > REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=HHVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJ3:=(TJ < REF(TJ,1));
DRAWICON(TJ3,MACD,5),ALIGN0;
TJ1:=(MACD < 0);
TJ2:=(TJ1 < REFX(TJ1,1));
D:=BARSLAST((TJ1 > REF(TJ1,1)));
TS1:=LLVBARS(MACD,(D + 1));
TS2:=BACKSET(TJ2,(TS1 + 1));
TJ:=(TS2 > REF(TS2,1));
TJA:=(TJ < REF(TJ,1));
DRAWICON(TJA,MACD,4),ALIGN1;
TJB:=((((2 * CLOSE) + HIGH) + LOW) / 4);
VAR1:=LLV(LOW,5);
VAR2:=HHV(HIGH,4);
VAR3:=EMA((((TJB - VAR1) / (VAR2 - VAR1)) * 100),4);
VAR4:=EMA(((0.667 * REF(VAR3,1)) + (0.333 * VAR3)),2);
DRAWICON((CROSS(VAR3,VAR4) AND (VAR3 < 40)),MACD,4),ALIGN1,colorFF;
VAR5:=((((CLOSE * 2) + HIGH) + LOW) / 4);
VAR6:=(EMA(VAR5,13) - EMA(VAR5,34));
VAR7:=EMA(VAR6,5);
VAR8:=(((0 - 2) * (VAR6 - VAR7)) * 3.8);
DRAWICON((CROSS(VAR8,MA(VAR8,3)) AND (VAR8 < 0)),MACD,5),ALIGN0;
VAR9:=REF(CLOSE,1);
VAR10:=((SMA(MAX((CLOSE - VAR9),0),6,1) / SMA(ABS((CLOSE - VAR9)),6,1)) * 100);
VAR11:=(CROSS(80,VAR10) * 70);
DRAWICON(VAR11,MACD,5),ALIGN0;
賣出:=((((CLOSE / REF(CLOSE,1)) >= 1.062) AND ((HIGH / CLOSE) < 1.005)) AND ((MA(CLOSE,90) / CLOSE) >= 1.15));
VAR132:=(賣出 AND (COUNT(賣出,20) = 1));
VAR133:=((INDEXC - REF(INDEXC,1)) / REF(INDEXC,1));
VAR134:=((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1));
VAR135:=(IF((VAR133 > 0.01),0.9,1) AND IF((VAR133 > (0 - 0.025)),1,1.2));
VAR136:=((VAR135 * (VAR134 - VAR133)) * 100);
VAR137:=SUM(VAR136,10);
VAR138:=SMA(VAR137,40,1);
VAR139:=(VAR137 > 20);
VAR310:=(((CROSS(CLOSE,MA((CLOSE * 1.055),3)) AND (CLOSE > (OPEN * 1.06))) AND (VOL >= (REF(VOL,1) * 1.5))) AND (CLOSE >= MA(CLOSE,10)));
VAR311:=(VAR139 AND VAR310);
VAR312:=(((0 - 100) * (HHV(HIGH,3) - CLOSE)) / (HHV(HIGH,3) - LLV(LOW,3)));
VAR313:=(((CROSS(VAR312,(0 - 87)) AND (OPEN = (1.09 * REF(CLOSE,1)))) AND (INDEXC > (0.98 * REF(INDEXC,1)))) AND (CLOSE <= (1.47 * LLV(CLOSE,58))));
VAR314:=(EMA(CLOSE,12) - EMA(CLOSE,26));
VAR315:=EMA(VAR314,9);
VAR316:=(2 * (VAR314 - VAR315));
VAR317:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
VAR318:=SMA(VAR317,3,1);
VAR319:=SMA(VAR318,3,1);
VAR320:=(EMA(IF((VAR315 > REF(VAR315,1)),1,(0 - 1)),14) * 14);
VAR321:=((EMA(IF((VAR319 > REF(VAR319,1)),1,(0 - 1)),14) * 14) * 2);
VAR322:=(((MA(CLOSE,5) / MA(CLOSE,70)) - 1) * 100);
VAR323:=(((VAR322 + VAR321) + VAR320) / 3);
VAR324:=(MA(CLOSE,80) - (MA(CLOSE,10) / 3));
VAR325:=IF((((CLOSE AND (MA(VOL,5) / 240)) AND (CLOSE > (REF(CLOSE,1) * 1))) AND CLOSE),88,0);
VAR326:=IF((((((CLOSE / REF(CLOSE,1)) > 1.05) AND (((VOL / CAPITAL) * 100) < 10)) AND ((HIGH / CLOSE) < 1.01)) AND (VAR325 > 0)),91,0);
VAR327:=IF((((((VAR323 > REF(VAR323,1)) AND (REF(VAR323,1) < REF(VAR323,2))) AND ((VAR132 OR VAR311) OR VAR313)) OR (VAR325 > 0)) OR (VAR326 > 0)),85,0);
VAR328:=IF((VAR326 > 0),95,0);
VAR329:=IF(((VAR325 > 0) OR (VAR326 > 0)),91,0);
VAR330:=IF((((VAR327 > 0) OR (VAR326 > 0)) OR (VAR325 > 0)),88,0);
VAR331:=((100 * (CLOSE - LLV(LOW,42))) / (HHV(HIGH,42) - LLV(LOW,42)));
VAR332:=(COUNT((MA(CLOSE,3) > REF(MA(CLOSE,3),1)),1) = 1);
VAR333:=((((VAR331 < 93) AND VAR332) AND MAX(MAX(VAR328,VAR329),VAR330)) * 100);
DRAWICON((VAR326 > 90),0,6);
DRAWICON((CLOSE > (REF(CLOSE,1) * 1.096)),0,6);
TJ:=((WEEKDAY - REF(WEEKDAY,1)) <> DATEDIFF(REF(DATE,1),DATE));
VAR334:=CLOSE;
上周:REF(CLOSE,SUMBARS(TJ,1)),LINETHICK0,colorFFAF00;
上月:REF(CLOSE,SUMBARS(TJ,4)),LINETHICK0,colorE7ABAF;
三個月前:REF(CLOSE,SUMBARS(TJ,12)),LINETHICK0,color3CFFD4;
半年前:REF(CLOSE,SUMBARS(TJ,24)),LINETHICK0,colorFF30BB;
一年前:REF(CLOSE,SUMBARS(TJ,48)),LINETHICK0;
EXPLAIN((HIGH >= HHV(HIGH,5)),'創5日新高'),colorFF;
EXPLAINICON((HIGH >= HHV(HIGH,5)),4);
EXPLAIN((LOW <= LLV(LOW,5)),'創5日新低'),colorFFFF00;
EXPLAINICON((LOW <= LLV(LOW,5)),1);
本周:=CROSS(DIFF,DEA);
JC:=CROSS(DEA,DIFF);
SC:=(本周 AND (DEA > 0));
EXPLAIN(CROSS(DIFF,0),'空頭轉多頭行情'),color66FF;
EXPLAIN((((MACD > 0) AND (DIFF > 0)) AND (DIFF > REF(DIFF,1))),'當前多頭格局'),color66FF;
EXPLAIN((MACD > 0.35),'股價超買，隨時可能下跌'),colorCC00;
EXPLAIN((((((MACD > 0) AND (DIFF > 0)) AND (DIFF > DEA)) AND (DIFF > REF(DIFF,1))) AND (CLOSE > REF(CLOSE,1))),'上升趨勢不變'),colorCC33FF;
EXPLAIN(CROSS(0,DIFF),'多頭轉空頭行情'),colorCC99;
EXPLAIN((((MACD < 0) AND (DIFF < 0)) AND (DIFF < REF(DIFF,1))),'當前空頭格局'),colorCC99;
EXPLAIN((((((MACD < 0) AND (DIFF < 0)) AND (DIFF < DEA)) AND (DIFF < REF(DIFF,1))) AND (CLOSE < REF(CLOSE,1))),'下降趨勢不變'),colorFFCC99;
EXPLAIN((MACD < (0 - 0.35)),'股價超賣中'),colorCCFF00;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD > REF(MACD,1))),'有加速上漲趨勢'),colorFF;
EXPLAIN((((DIFF >= 0) AND (MACD >= 0)) AND (MACD <= REF(MACD,1))),'逢高賣出，注意適時回補'),colorCCFF99;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF >= 0) AND (MACD < 0)) AND (MACD < REF(MACD,1))),'回落整理階段'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD < REF(MACD,1))),'趨勢加速向下'),colorCC00;
EXPLAIN((((DIFF < 0) AND (MACD <= 0)) AND (MACD >= REF(MACD,1))),'整理即將結束，逢低買入'),colorFF99FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD > REF(MACD,1))),'反彈階段,保持謹慎'),color66FF;
EXPLAIN((((DIFF < 0) AND (MACD > 0)) AND (MACD < REF(MACD,1))),'短線反彈結束，謹慎'),color999933;
DCJC:=MA((VOL / (HIGH - LOW)),4);
VAR12:=ABS((CLOSE - OPEN));
VAR13:=(VOL / (HIGH - LOW));
EXPLAIN(((VAR13 < DCJC) AND (VAR12 < MA(VAR12,4))),'資金無入場意願'),color6600;
EXPLAIN(((VAR13 < DCJC) AND (VAR12 > MA(VAR12,4))),'場內資金運作行為'),colorAAAAAA;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 < MA(VAR12,4))),'多空雙方激烈爭奪'),color33CC;
EXPLAIN(((VAR13 > DCJC) AND (VAR12 > MA(VAR12,4))),'資金介入或出局強烈'),colorFFFFFF;
VAR14:=(CLOSE - REF(CLOSE,6));
A001:=MA(VAR14,6);
A002:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
A003:=SMA(A002,3,1);
A004:=SMA(A003,3,1);
A005:=EMA(((3 * A003) - (2 * A004)),2);
A006:=(((HIGH + LOW) + CLOSE) / 3);
A007:=(((A006 - MA(A006,14)) / (0.015 * AVEDEV(A006,14))) / 2);
A008:=((A007 + ((EMA((((0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))) + 100) / 100),3) * 200) - 100)) / 2);
A009:=(A008 - REF(A008,14));
A010:=(A008 - REF(A008,26));
A011:=(((A008 + A009) + A010) / 3);
A012:=EMA(A011,4);
KKM:=HHV(HIGH,34);
A013:=((((2 * CLOSE) + HIGH) + LOW) / 4);
A014:=LLV(LOW,34);
A015:=EMA((((A013 - A014) / (KKM - A014)) * 100),13);
A016:=EMA(((0.667 * REF(A015,1)) + (0.333 * A015)),2);
A017:=((((A015 - A016) > 1) AND (A015 < 30)) AND (A016 < 30));
KKMD:=(((((A015 - A016) < 0) AND (A015 > 80)) AND (A016 > 80)) AND (REF((A015 - A016),1) > 0));
KKML:=(COUNT(((A015 - A016) > 0),2) = 2);
KKMQ:=((A015 - A016) < 0);
EXPLAIN(((CLOSE / REF(CLOSE,1)) > (INDEXC / REF(INDEXC,1))),'該股走勢強於大盤'),color66FFFF;
EXPLAIN(A017,'可以考慮買入'),colorFF;
EXPLAIN(KKMD,'可以考慮賣出'),colorFF00;
EXPLAIN(KKML,'建議持倉'),colorFF;
EXPLAIN(KKMQ,'建議減倉'),colorFFFF00;
EXPLAIN(CROSS(MA(CLOSE,5),MA(CLOSE,10)),'試盤買進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 > REF(A012,1))),'注意適時加倉跟進'),color6633FF;
EXPLAIN(((A012 > EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時迴避風險'),colorCCFF33;
EXPLAIN(((A012 < EMA(A012,4)) AND (A012 < REF(A012,1))),'注意適時減倉出局'),colorFF00;
EXPLAIN((CROSS(DIFF,DEA) AND CROSS(MACD,0)),'MACD上穿0軸,可考慮買入'),color6633FF;
EXPLAIN((本周 AND (DEA > 0)),'解：MACD在0軸上金叉'),colorFF;
EXPLAIN((本周 AND (DEA < 0)),'解：MACD在0軸下金叉'),colorFF;
EXPLAIN((JC AND (DEA > 0)),'解：MACD在0軸上死叉'),colorFF0000;
EXPLAIN((JC AND (DEA < 0)),'解：MACD在0軸下死叉'),colorFF0000;
EXPLAIN(((MACD > 0) AND (MACD > REF(MACD,1))),'解：MACD的紅柱,增長'),colorFF;
EXPLAIN(((MACD > 0) AND (MACD < REF(MACD,1))),'解：MACD的紅柱,縮短'),color3366CC;
EXPLAIN(((MACD < 0) AND (ABS(MACD) > REF(ABS(MACD),1))),'解：MACD的綠柱,增長'),colorFF00;
EXPLAIN(((MACD < 0) AND (ABS(MACD) < REF(ABS(MACD),1))),'解：MACD的綠柱,縮短'),colorFFFF00;
EXPLAIN((((COUNT(SC,20) = 2) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,2'),colorFF;
EXPLAIN((((COUNT(SC,20) = 3) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,3'),colorFF;
EXPLAIN((((COUNT(SC,20) = 4) AND 本周) AND (DEA > 0)),'解：0軸上金叉次數,4'),colorFF;
EXPLAINEX((0 = 0),'解：MACD=',MACD,2,0),colorFF00FF;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK0;
D:SMA(K,3,1),ColorCF7690,LINETHICK0;
J:3*K-2*D,LINETHICK0;
EXPLAINEX((K > 0),'解：K值係數=',K,2,0),colorFF6699;
EXPLAINEX((D > 0),'解：D值係數=',D,2,0),color99CC;
EXPLAIN(CROSS(K,D),'解：K與D今日金叉'),colorFF;
EXPLAIN(CROSS(D,K),'解：K與D今日死叉'),colorFF0000;
RSV:=(((HIGH + LOW) + CLOSE) / 3);
TYP:=((RSV - MA(RSV,14)) / (0.015 * AVEDEV(RSV,14)));
CCI:=(0 - ((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
EXPLAINEX((1 = 1),'解：威廉指標=',CCI,2,0),colorFF66FF;
WR:=REF(CLOSE,1);
LC:=((SMA(MAX((CLOSE - WR),0),6,1) / SMA(ABS((CLOSE - WR)),6,1)) * 100);
RSI1:=((SMA(MAX((CLOSE - WR),0),12,1) / SMA(ABS((CLOSE - WR)),12,1)) * 100);
EXPLAINEX((1 = 1),'解：相對強弱RSI1=',LC,2,0),colorFFCC33;
EXPLAINEX((1 = 1),'流通盤（億）：',(CAPITAL / 1000000),2,0),colorFFFF00;
EXPLAINEX((1 = 1),'公積金（元）：',FINANCE(18),2,0),colorFF6666;
EXPLAINEX((1 = 1),'收益（元）：',FINANCE(33),2,0),color66FF;
EXPLAINEX((1 = 1),'淨資產收益率：％',FINANCE(37),2,0),colorFF00;
EXPLAINEX((1 = 1),'市盈率（倍）：',DYNAINFO(39),2,0),colorFF;
RSI2:=EMA(((AMOUNT / VOL) / 100),3);
EXPLAINEX((1 = 1),'成本價格（元）：',EMA(RSI2,88),2,0),LINETHICK0,colorE5679A;
EXPLAINEX((1 = 1),'伏擊價格（元）：',(EMA(RSI2,88) * 0.85),2,0),LINETHICK0,color5E9A;
EXPLAINEX((1 = 1),'莊籌估算：％',EMA((WINNER(CLOSE) * 70),5),2,0),LINETHICK0,colorFF00FF;
EXPLAINEX((1 = 1),'散籌估算：％',EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),5),2,0),LINETHICK0,colorFF00;
EXPLAINEX((1 = 1),'獲利盤比例：％',(WINNER(CLOSE) * 100),2,0),colorFF;
EXPLAINEX((1 = 1),'套牢盤比例：％',(100 - (WINNER(CLOSE) * 100)),2,0),colorFF00;
VAR15:=LLV(HIGH,240);
AA:=((100 * (CLOSE - VAR15)) / VAR15);
EXPLAINEX((AA >= 0.01),'年最大收益：％',AA,2,0),color66FF;
MYP:=HHV(HIGH,240);
BB:=((100 * (MYP - CLOSE)) / CLOSE);
EXPLAINEX((BB >= 0.01),'年最大虧損：％',BB,2,0),colorCCFF66;
EXPLAIN((1 = 1),'諸子百家：海納百川,有容乃大;溫故知新,無往不利。');
EXPLAIN((1 = 1),' '),color10000;学习,交流
UID19130 帖子1473 精华1 积分8530 阅读权限100 在线时间1374 小时 注册时间2005-10-21 最后登录2007-9-29 查看详细资料
引用 使用道具 报告 评分 回复 TOP
天天-----
三级狐友
个人空间 发短消息 加为好友 当前离线 5楼 大 中 小 发表于 2007-5-4 06:20 只看该作者
顶上来！！
附件
1.gif (18.26 KB)
2007-5-4 06:20
UID3243 帖子240 精华0 积分401 阅读权限30 来自河南 在线时间78 小时 注册时间2003-12-15 最后登录2007-5-21 查看详细资料
引用 使用道具 报告 评分 回复 TOP
随风1216
三级狐友
个人空间 发短消息 加为好友 当前离线 6楼 大 中 小 发表于 2007-5-4 09:52 只看该作者
引用:
原帖由 w86272420 于 2007-5-4 02:30 发表
EXPLAIN((1 = 1),'诸子百家：海纳百川,有容乃大;温故知新,无往不利。');
已删除 准确的告诉你一句话,离开这里是你的失误,这是学习的好地方,不过要走也没人挽留
UID28266 帖子104 精华0 积分677 阅读权限30 在线时间285 小时 注册时间2006-12-3 最后登录2007-9-28 查看详细资料
引用 使用道具 报告 评分 回复 TOP
zhangmeng
四级狐友
个人空间 发短消息 加为好友 当前离线 7楼 大 中 小 发表于 2007-5-6 12:51 只看该作者
准确的告诉你一句话,离开这里是你的失误!谢谢提醒
UID13329 帖子538 精华0 积分1064 阅读权限40 在线时间270 小时 注册时间2004-11-7 最后登录2007-8-27 查看详细资料
引用 使用道具 报告 评分 回复 TOP
chenjiaq
三级狐友
个人空间 发短消息 加为好友 当前离线 8楼 大 中 小 发表于 2007-5-9 16:19 只看该作者
谢谢支持原码分享
UID16210 帖子383 精华0 积分488 阅读权限30 在线时间52 小时 注册时间2005-4-20 最后登录2007-9-28 查看详细资料
引用 使用道具 报告 评分 回复 TOP
fanxu999
一级狐友
个人空间 发短消息 加为好友 当前离线 9楼 大 中 小 发表于 2007-5-12 13:25 只看该作者
感谢lillian2005源码提供！！！
UID37217 帖子12 精华0 积分24 阅读权限10 在线时间6 小时 注册时间2007-4-30 最后登录2007-8-19 查看详细资料
引用 使用道具 报告 评分 回复 TOP
zn2677
二级狐友
个人空间 发短消息 加为好友 当前离线 10楼 大 中 小 发表于 2007-5-16 08:54 只看该作者
谢谢支持
UID22435 帖子51 精华0 积分140 阅读权限20 在线时间44 小时 注册时间2006-4-21 最后登录2007-7-9 查看详细资料
引用 使用道具 报告 评分 回复 TOP
zdq18201
五级狐友
个人空间 发短消息 加为好友 当前离线 11楼 大 中 小 发表于 2007-5-19 10:52 只看该作者
顶了,试用,谢谢!
UID34432 帖子754 精华0 积分1523 阅读权限50 在线时间546 小时 注册时间2007-4-16 最后登录2007-9-28 查看详细资料
引用 使用道具 报告 评分 回复 TOP
zdq18201
五级狐友
个人空间 发短消息 加为好友 当前离线 12楼 大 中 小 发表于 2007-5-19 11:36 只看该作者
灌水!!!!!!!!!!!
本帖最近评分记录
mssz103 积分 -10 2007-9-14 08:41
UID34432 帖子754 精华0 积分1523 阅读权限50 在线时间546 小时 注册时间2007-4-16 最后登录2007-9-28 查看详细资料
引用 使用道具 报告 评分 回复 TOP
浆糊浪子
一级狐友
个人空间 发短消息 加为好友 当前离线 13楼 大 中 小 发表于 2007-5-20 21:00 只看该作者
木桶效应！
你是哪块板？？？
UID40970 帖子2 精华0 积分6 阅读权限10 在线时间2 小时 注册时间2007-5-20 最后登录2007-6-4 查看详细资料
引用 使用道具 报告 评分 回复 TOP
追击涨停
一级狐友
个人空间 发短消息 加为好友 当前离线 14楼 大 中 小 发表于 2007-9-1 17:53 只看该作者
谢谢公式团的提供
UID55801 帖子21 精华0 积分33 阅读权限10 在线时间6 小时 注册时间2007-8-25 最后登录2007-9-26 查看详细资料
引用 使用道具 报告 评分 回复 TOP
myfst
一级狐友
个人空间 发短消息 加为好友 当前离线 15楼 大 中 小 发表于 2007-9-2 04:34 只看该作者
谢谢 lillian2005的提供 ......
UID51520 帖子13 精华0 积分19 阅读权限10 在线时间3 小时 注册时间2007-7-23 最后登录2007-9-7 查看详细资料
引用 使用道具 报告 评分 回复 TOP
有一一一
二级狐友
个人空间 发短消息 加为好友 当前离线 16楼 大 中 小 发表于 2007-9-7 08:25 只看该作者
111111111111111111111
UID17917 帖子15 精华0 积分71 阅读权限20 在线时间28 小时 注册时间2005-8-7 最后登录2007-9-20 查看详细资料
引用 使用道具 报告 评分 回复 TOP
靓月
一级狐友
个人空间 发短消息 加为好友 当前离线 17楼 大 中 小 发表于 2007-9-8 08:07 只看该作者
要是能注上使用说明就好了，谢谢
UID57440 帖子27 精华0 积分45 阅读权限10 在线时间9 小时 注册时间2007-9-7 最后登录2007-9-22 查看详细资料
引用 使用道具 报告 评分 回复 TOP
老老木易
一级狐友
个人空间 发短消息 加为好友 当前离线 18楼 大 中 小 发表于 2007-9-14 03:52 只看该作者
谢谢lillian2005
如图:解盘内容无法完全显示----解盘内容太长又不会换行...
附件
macd.gif (8.05 KB)
2007-9-14 03:52
macd.gif
UID58051 帖子3 精华0 积分5 阅读权限10 在线时间1 小时 注册时间2007-9-13 最后登录2007-9-14 查看详细资料
引用 使用道具 报告 评分 回复 TOP
菲妃
一级狐友
个人空间 发短消息 加为好友 当前离线 19楼 大 中 小 发表于 2007-9-14 14:17 只看该作者
顶
UID58130 帖子1 精华0 积分1 阅读权限10 在线时间0 小时 注册时间2007-9-14 最后登录2007-9-14 查看详细资料
引用 使用道具 报告 评分 回复 TOP
lillian2005
公式团组
个人空间 发短消息 加为好友 当前离线 20楼 大 中 小 发表于 2007-9-15 07:29 只看该作者
引用:
原帖由 老老木易 于 2007-9-14 03:52 发表
谢谢lillian2005
如图:解盘内容无法完全显示----解盘内容太长又不会换行... 可以換個方式顯示,能增加顯示範圍
上周:=REF(CLOSE,SUMBARS(TJ,1)),LINETHICK0,colorFFAF00;
上月:=REF(CLOSE,SUMBARS(TJ,4)),LINETHICK0,colorE7ABAF;
三個月前:=REF(CLOSE,SUMBARS(TJ,12)),LINETHICK0,color3CFFD4;
半年前:=REF(CLOSE,SUMBARS(TJ,24)),LINETHICK0,colorFF30BB;
一年前:=REF(CLOSE,SUMBARS(TJ,48)),LINETHICK0;
drawtext(barpos=sysparam(2),diff,'上周: '+numtostr(上周[sysparam(1)],2)+' 上月: '+numtostr(上月[sysparam(1)],2)+' 三個月前: '+numtostr(三個月前[sysparam(1)],2)),colorFFAF00,align4;
drawtext(barpos=sysparam(2),diff,'半年前: '+numtostr(半年前[sysparam(1)],2)+' 一年前: '+numtostr(一年前[sysparam(1)],2)),colorFFAF00,align4,pxdn30;学习,交流
UID19130 帖子1473 精华1 积分8530 阅读权限100 在线时间1374 小时 注册时间2005-10-21 最后登录2007-9-29 查看详细资料
引用 使用道具 报告 评分 回复 TOP
千里快哉风
实战团组
个人空间 发短消息 加为好友 当前离线 21楼 大 中 小 发表于 2007-9-15 09:41 只看该作者
谢谢风来疏竹 风过而竹不留声
雁过寒潭 雁过而潭不留影
事来劳心 事去而心随之空
UID19838 帖子377 精华0 积分3378 阅读权限100 在线时间254 小时 注册时间2005-12-2 最后登录2007-9-24 查看详细资料
引用 使用道具 报告 评分 回复 TOP
靓月
一级狐友
个人空间 发短消息 加为好友 当前离线 22楼 大 中 小 发表于 2007-9-15 11:40 只看该作者
风来疏竹 风过而竹不留声
雁过寒潭 雁过而潭不留影
事来劳心 事去而心随之空
UID57440 帖子27 精华0 积分45 阅读权限10 在线时间9 小时 注册时间2007-9-7 最后登录2007-9-22 查看详细资料
引用 使用道具 报告 评分 回复 TOP
zdq18201
五级狐友
个人空间 发短消息 加为好友 当前离线 23楼 大 中 小 发表于 2007-9-15 21:23 只看该作者
本帖最近评分记录
mssz103 积分 -10 2007-9-15 21:41
UID34432 帖子754 精华0 积分1523 阅读权限50 在线时间546 小时 注册时间2007-4-16 最后登录2007-9-28 查看详细资料
引用 使用道具 报告 评分 回复 TOP
zdq18201
五级狐友
个人空间 发短消息 加为好友 当前离线 24楼 大 中 小 发表于 2007-9-15 21:35 只看该作者
UID34432 帖子754 精华0 积分1523 阅读权限50 在线时间546 小时 注册时间2007-4-16 最后登录2007-9-28 查看详细资料
引用 使用道具 报告 评分 回复 TOP
‹‹ 上一主题 | 下一主题 ›› 26 12››
查看积分策略说明
快速回复主题
选项
禁用 URL 识别
禁用 Smilies
禁用 Discuz!代码
使用个人签名
接收新回复邮件通知
标题
内容
发表帖子[完成后可按 Ctrl+Enter 发布] 预览帖子 恢复数据 清空内容
默认表情
12