丽仁堂peeling foam:李莜阳将军令

1,由於机子系统不同，有的机子不认"周线"为名的引用公式。根据朋友朋的
  建意，现改名"引AAA"。并且一定要先建立引用公式，然后再建主图公式。
2,参数是上次写说明时大意写借，正确的是：
          参数 K0： 最小=0 ,最大=1 ,缺省=0
3,为利用还可用的空间，修正后的主程序增加了"MACD'提高走势判断。
4,为方便初学的朋，同时上传引用公式和三将军_马后炮的导入公式。
================================================================
      主要资料来至网站，释到通达信加抖而成。
满版未来函数多多，但不飘移。因为它是三天后定形后补上的信号，
所以叫马后炮。
一，信号分两种，凡前面有↖斜箭头的都是三天后定形后补上的信号。
    三天的时间，足以走出股价趋势。主信号〈将军柱〉和〈黄金柱〉
   重要一点：股价三天股价不创新低，为寻底创造了条件。尤其是
   〈将军柱〉信号的当天有量的异动，后市一般都有调整。可以找到
   较好的买点。近期涨幅过高，放大量的地方要用这些信号(不是
   未来函数信号也同样)。
       〈将军柱〉和〈黄金柱 〉后面都有一定时期的水平横线。对后
  市有一定撑压作用。参数K可调整它们的有无。
二，黄金线EMA(C,21)是股价走势的强弱表现。彩带中彩色的变化线
  为EMA(C,3)、EMA(C,5)、EMA(C,10)可以看出它门间的上穿和下穿。
     兰色的导火线可以邦你寻底或找较好的买点。
三，图中带KCJ指标不用多说。周K线只用筒单作图，但一看就明。
    但先要建立名为"引AAA"的引用公式
===========================================
{引AAA}
DAYS1990:=DATETODAY(DATE);   {从1990.12.19开始计算到当前的总天数}
Z:=((DAYS1990-REF(DAYS1990,1))>(WEEKDAY-REF(WEEKDAY,1))) OR BARSCOUNT(C)=1;  {看两个相邻周期是否跨周}
T:=BARSLAST(Z);
O1:IF(T,REF(O,T),O);
H1:HHV(H,T+1);
L1:LLV(L,T+1);
C1:C;
============================================
  在一个朋友的贴上有朋友想要把它用到KDJ,MACD上。我是这样回答的：
日线、周线、月线、不管怎样，它们用的数源都是"c"。KDJ,MACD都点是计算过
的。日、周、月数据完全不一样。用筒单的引用公式来代替复杂计算，目前还
作不到。
  【三将军_马后炮】只能用在日线或周线上！
{三将军_马后炮    参数 K0： 最小=0 ,最大=1 ,缺省=0}
YLZC:=IF(CLOSE=INDEXC,(INDEXC+INDEXH+INDEXL+INDEXO)/4,AMOUNT/(VOL+0.01)/100);
阻价:=IF(CLOSE=INDEXC,YLZC+INDEXC-INDEXL,YLZC+(CLOSE-LOW));
支价:=IF(CLOSE=INDEXC,INDEXL+INDEXC-YLZC,LOW+(CLOSE-YLZC));
今压:REF(阻价,1),NODRAW,COLORGREEN;
今撑:REF(支价,1),NODRAW;
NN:=125;
最高:=CONST(HHV(H,NN));
最低:=CONST(LLV(L,NN));
RCC:=最高*0.9-(最高-最低);
RHL:=RCC;
HLMAX:=最高;
HLMIN:=最低;
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=(100-0)/2*1.3;
HLMN4:=(100-0)/1*1.3;
DRAWBAND(((90-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,RGB(50,50,50),((10-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,RGB(00,00,00));
DRAWBAND(EMA(C,3),RGB(255,00,00),EMA(C,21),RGB(00,255,00));
黄金线:=EMA(CLOSE,21),COLOR00FFFF;
导火线:=EMA(CLOSE,3);
DRAWBAND(导火线,RGB(150,150,150),黄金线,RGB(00,255,00));
DRAWBAND(EMA(CLOSE,5),RGB(150,00,00),黄金线,RGB(00,200,00));
DRAWBAND(EMA(CLOSE,10),RGB(180,00,00),黄金线,RGB(00,150,00));
EMA(CLOSE,3),COLORFFFFFF;
EMA(CLOSE,21),COLOR00FFFF,LINETHICK2;
AR:=(2*(C+L)/2+REF((C+L)/2,1))/3;
BR:=(7*(C+L)/2+6*REF((C+L)/2,1)+5*REF((C+L)/2,2)
+4*REF((C+L)/2,3)+3*REF((C+L)/2,4)
+2*REF((C+L)/2,5)+REF((C+L)/2,6))/28;
AAR:=(AR+(((C+L)/2-STD((C+L)/2,2))+3*(AR+0.3*8)/2)/4)/2;
BBR:=(BR+(((C+L)/2-STD((C+L)/2,2))+3*(AR+0.3*8)/2)/4)/2;
寻底线:IF(((AAR-BBR)/AAR<0.0001),黄金线, 黄金线+黄金线*0.02), COLORBB0000,LINETHICK2;
X:=21;
TTY:=H;
AAT:=REF(TTY,X)=HHV(TTY,2*X+1);
BBT:=FILTER(AAT,X);
CCT:=BACKSET(BBT,X+1);
HD10T:=FILTER(CCT,X);
AA1T:=REF(TTY,X)=LLV(TTY,2*X+1);
BB1T:=FILTER(AA1T,X);
CC1T:=BACKSET(BB1T,X+1);
LD10T:=FILTER(CC1T,X);
前期高位:IF(K0=0 AND BARSLAST(HD10T)<50,REF(H,BARSLAST(HD10T)),DRAWNULL),COLORBLUE,NODRAW;
前期低位:IF(K0=0 AND BARSLAST(LD10T)<50,REF(L,BARSLAST(LD10T)),DRAWNULL),COLORRED,NODRAW;
T10T:=BARSLAST(HD10T) AND BARSLAST(LD10T) AND NOT(LD10T);
STICKLINE(T10T AND K0=0,前期高位,前期高位,4,0),COLORBLUE;
STICKLINE(T10T AND K0=0,前期低位,前期低位,4,0),COLORRED;
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
RRRSV:=SMA(下档线,3,1);
KKK:=SMA(RRRSV,3,1);
DDD:=((3 * RRRSV) - (2 * KKK));
JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
RSV24:=SMA(JJ12,3,1);
K24:=SMA(RSV24,3,1);
D24:=((3 * RSV24) - (2 * K24));
压力2:=IF(CROSS(D24,DDD),HIGH,REF(HIGH,BARSLAST(CROSS(D24,DDD)))),COLORFFFFFF,LINETHICK1;
压力位:=IF(ISLASTBAR,压力2,DRAWNULL),COLORFFFFFF;
STICKLINE(ISLASTBAR ,压力位,压力位,120,1),LINETHICK3,COLORFFFFFF;
底部:=LLV(HIGH,30),COLOR00FF00;
底部位:=IF(ISLASTBAR,底部,DRAWNULL),COLOR00FF00;
STICKLINE(ISLASTBAR ,底部位,底部位,100,1),LINETHICK3,COLOR00FF00;
DRAWKLINE(H,O,L,C);
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);
三日量缩:=(MAX(MAX(V,REF(V,1)),REF(V,2))三日价涨A:=C>=REF(C,1);
三日价涨B:=C三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3);
缩倍柱:=(VOL*1.95<=REF(VOL,1));
百日低量:=(VOL=LLV(VOL,100));
倍量柱:=C>REF(C,1)*1.04 AND (VOL>=1.9*REF(VOL,1));
四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4));
四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩);
前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0;
倍量黄金柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
高量黄金柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
黄金柱:=倍量黄金柱 OR 高量黄金柱;
次倍量黄金柱:=NOT(黄金柱) AND 四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次高量黄金柱:=NOT(黄金柱) AND 四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次黄金柱:=次倍量黄金柱 OR 次高量黄金柱;
准倍量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前倍量柱 AND ((三日量缩 AND 三日价涨C) OR (COUNT(倍量柱,3)>=1 AND 三日不破)) AND 前三引用不成立;
准高量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前高量柱 AND (三日量缩 AND 三日价涨C) AND 前三引用不成立;
准黄金柱:=准倍量黄金柱 OR 准高量黄金柱;
倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
将军柱:=倍量将军柱 OR 高量将军柱;
次倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次将军柱:=次倍量将军柱 OR 次高量将军柱;
准倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱) AND 四日前倍量柱 AND 三日价涨C AND 前三引用不成立;
准高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱) AND 四日前高量柱 AND 三日价涨C AND 前三引用不成立;
准将军柱:=准倍量将军柱 OR 准高量将军柱;
BACKSET100:=BACKSET(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱 OR 准将军柱,4);
FILTER100:=FILTER(BACKSET100,3);
BACKSET101:=BACKSET(黄金柱,4);
FILTER101:=FILTER(BACKSET101,3);
BACKSET102:=BACKSET(次黄金柱,4);
FILTER102:=FILTER(BACKSET102,3);
BACKSET103:=BACKSET(准黄金柱,4);
FILTER103:=FILTER(BACKSET103,3);
BACKSET104:=BACKSET(将军柱,4);
FILTER104:=FILTER(BACKSET104,3);
BACKSET105:=BACKSET(次将军柱,4);
FILTER105:=FILTER(BACKSET105,3);
BACKSET106:=BACKSET(准将军柱,4);
FILTER106:=FILTER(BACKSET106,3);
DRAWTEXT(FILTER101,LOW*0.986,'↖黄金柱'),COLORYELLOW;
STICKLINE(FILTER101,OPEN,CLOSE,2.5,0),COLORYELLOW;
DRAWTEXT(FILTER102,LOW*0.986,'↖次黄'),COLORYELLOW;
STICKLINE(FILTER102,OPEN,CLOSE,2.5,0),COLORYELLOW;
DRAWTEXT(FILTER103,LOW*0.986,'↖准黄'),COLORFF00FF;
STICKLINE(FILTER103,OPEN,CLOSE,2.5,0),COLORYELLOW;
DRAWTEXT(FILTER104,LOW*0.986,'↖将军柱'),COLORRED;
STICKLINE(FILTER104,OPEN,CLOSE,2.5,0),COLORYELLOW;
DRAWTEXT(FILTER105,LOW*0.986,'↖次将'),COLORFF00FF;
STICKLINE(FILTER105,OPEN,CLOSE,2.5,0),COLORYELLOW;
DRAWTEXT(FILTER106,LOW*0.986,'↖准将'),COLORFF00FF;
STICKLINE(FILTER106,OPEN,CLOSE,2.5,0),COLORYELLOW;
K1:=IF(K0=0 AND BARSLAST(FILTER104)<200,SUMBARS(FILTER104 ,1),DRAWNULL),NODRAW;
STICKLINE(K1 AND K1>3 AND BARSLAST(FILTER104)<200 ,REF(L,K1-2),REF(L,K1-2),5,0),COLORYELLOW;
STICKLINE(K1 AND K1>3 AND BARSLAST(FILTER104)<200,REF(L,K1-1),REF(L,K1-1),1,0),COLORGREEN;{低位线}
K2:IF( K0=0 AND BARSLAST(FILTER101)<200,SUMBARS(FILTER101 ,1),DRAWNULL),NODRAW;
STICKLINE(K2 AND K2>3 AND BARSLAST(FILTER101)<200,REF(L,K2-2),REF(L,K2-2),4,0),COLORYELLOW;
立桩量:=VOL=HHV(VOL,40) AND VOL>1.9*REF(VOL,1);
立桩量三日突破:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(HIGH,3),1,0)));
立桩量三日不破:=BARSLAST(立桩量)=3 AND REF(LOW,3)<=MIN(MIN(C,REF(C,1)),REF(C,2));
BACKSET300:=BACKSET(立桩量三日不破,4);
BACKSET301:=BACKSET(立桩量三日突破,4);
立桩量成立:=FILTER(BACKSET300,3) AND BACKSET301 AND 立桩量;
DRAWTEXT(立桩量成立,HIGH,'←立柱'),COLORGREEN;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA120:=MA(CLOSE,120);
MA240:=MA(CLOSE,240);
AA1:=BARSLAST(MA60>MA30 AND (MA30=MA10 OR MA30>MA10));
BB1:=REF(COUNT(CCC1:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3;
芙蓉出水:=BB1 AND CC1;
DRAWTEXT(芙蓉出水,H+0.3,'芙蓉出水'),COLORFF00FF;
STICKLINE(芙蓉出水,H,L,1,1),COLORFF00FF;
STICKLINE(芙蓉出水,O,C,2,1),LINETHICK2,COLORFF00FF;
MA1:=MA(CLOSE,5);
MA2:=MA(CLOSE,10);
MA3:=MA(CLOSE,20);
ZJ:=AMOUNT/10000;
TM:=V-MA(V,10);
一穿三:=MA1>O AND MA2>O AND MA3>O AND MA1OPEN ;
DRAWTEXT(一穿三,L-0.012,'一穿三'),COLORFF00FF;
STICKLINE(一穿三,OPEN,CLOSE,2,0),COLORFF00FF;
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.95999998),'大胆搏 '),COLOR00FFFF;
DIF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA)+((50-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,COLORSTICK;
WO:="引AAA.O1#WEEK"/5*3+RCC/3;
WC:="引AAA.C1#WEEK"/5*3+RCC/3;
WH:="引AAA.H1#WEEK"/5*3+RCC/3;
WL:="引AAA.L1#WEEK"/5*3+RCC/3;
DRAWKLINE(WH,WO,WL,WC);
STICKLINE(MACD>=((50-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,((50-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,MACD,0,1),COLOR00FFFF;
STICKLINE(MACD<((50-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,((50-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,MACD,0,1),COLORFFFFFF;

((50-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,COLORCCCCCC,LINETHICK1;
VARA2:=LLV(MA(LOW,3),3);
VARA3:=HHV(MA(HIGH,3),3);
K:=EMA((CLOSE-VARA2)/(VARA3-VARA2)*100,4),COLORFF00FF,LINETHICK2;
D:=EMA(0.667*REF(K,1)+0.333*K,2),COLORFFFFFF;
J:=3*K-2*D;
((K-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,COLORFFF111;
((D-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,COLOR00FF00;
((J-HLMN3)*HLMN2/HLMN4+HLMN1)/3+RCC/9*6,COLORFF1111;
FH1:=REF(MACD,1)FH2:=MACD>=0 AND COUNT(MACD>REF(MACD,1),1)=1;
FH3:=FH1 AND FH2 AND EMA(C,13)>REF(EMA(C,13),1);
FH4:=FH1 AND FH2 AND ABS((DIF-DEA)/C)<0.018;
FH5:=FH1 AND FH2 AND MACD<0.10;