[B厚德载物]副图原码
文章出处： 发布时间：2006-07-23
[B厚德载物]副图原码:VAR1:=SUMBARS(VOL,CAPITAL);
VAR2:=SUM(AMOUNT,VAR1);
VAR3:=((VAR2 / 100) / CAPITAL);
VAR4:=MA(VAR3,7);
VAR5S:=((MA(CLOSE,7) - VAR4) / VAR4);
VAR5:=IF((VAR5S < 0.3),VAR5S,0.3);
VAR6:=((((((((HHV(VAR5,5) + HHV(VAR5,10)) + HHV(VAR5,20)) + HHV(VAR5,30)) + HHV(VAR5,60)) + HHV(VAR5,120)) + HHV(VAR5,250)) * 1.15) / 7);
VAR7:=((((((((LLV(VAR5,5) + LLV(VAR5,10)) + LLV(VAR5,20)) + LLV(VAR5,30)) + LLV(VAR5,60)) + LLV(VAR5,120)) + LLV(VAR5,250)) * 1.15) / 7);
VAR8:=(((CLOSE - LLV(LOW,45)) / (HHV(HIGH,45) - LLV(LOW,45))) * 100);
VAR9:=SMA(VAR8,15,1);
VARA:=SMA(VAR9,15,1);
VARB:=((3 * VAR9) - (2 * VARA));
VARC:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
VARD:=(((REF(CLOSE,(VARC + 1)) > CLOSE) AND (REF("KDJ.K",(VARC + 1)) < "KDJ.K")) AND CROSS("KDJ.K","KDJ.D"));
VARE:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
VARF:=(((REF(CLOSE,(VARE + 1)) < CLOSE) AND (REF("KDJ.K",(VARE + 1)) > "KDJ.K")) AND CROSS("KDJ.D","KDJ.K"));
VAR10:=EMA((WINNER(CLOSE) * 70),3);
VAR11:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),3);
VAR12:=(((CLOSE / MA(CLOSE,40)) * 100) < 76);
VAR13:=(((CLOSE / MA(CLOSE,60)) * 100) < 74);
VAR14:=(HIGH > (LOW * 1.051));
VAR15:=(VAR14 AND (COUNT(VAR14,5) > 1));
VAR16:=(WINNER(((CLOSE * 100) / 100)) * 100);
VAR17:=EMA(VAR16,10);
VAR18:=MA(VAR17,5);
VAR19:=REF(CLOSE,1);
VAR1A:=((SMA(MAX((CLOSE - VAR19),0),7,1) / SMA(ABS((CLOSE - VAR19)),7,1)) * 100);
VAR1B:=((SMA(MAX((CLOSE - VAR19),0),13,1) / SMA(ABS((CLOSE - VAR19)),13,1)) * 100);
VAR1C:=BARSCOUNT(CLOSE);
VAR1D:=(((((4 * CLOSE) - MA(CLOSE,5)) - MA(CLOSE,10)) - MA(CLOSE,20)) - MA(CLOSE,30));
VAR1E:=((VOL / CAPITAL) * 100);
VAR1F:=((((VAR1D * VAR1D) * VAR1D) * VAR1E) * VAR1E);
VAR20:=((MA(VAR1F,5) + 1000) * 1.4);
VAR21:=HHV(CLOSE,115);
VAR22:=LLV(CLOSE,115);
VAR23:=(VAR21 - VAR22);
VAR24:=(MA((((CLOSE - VAR22) / VAR23) - 0.5),14) * 20);
VAR25:=REF(HHV(CLOSE,66),2);
VAR26:=((CROSS(CLOSE,VAR25) AND ((((HHV(CLOSE,110) / LLV(CLOSE,110)) - 1) * 100) < 45)) AND (VAR24 < 5.666));
VAR27:=(((LLV(VAR24,35) < (0 - 8.9)) AND CROSS(VAR24,(0 - 7.815))) AND (VAR24 < (0 - 1.2)));
VAR28:=(((CLOSE - LLV(LOW,100)) / (HHV(HIGH,100) - LLV(LOW,100))) * 200);
VAR29:=SMA(VAR28,3,1);
VAR2A:=SMA(VAR29,3,1);
VAR2B:=((3 * VAR29) - (2 * VAR2A));
VAR2C:=LLV(LOW,5);
VAR2D:=HHV(HIGH,5);
VAR2E:=(EMA((((CLOSE - VAR2C) / (VAR2D - VAR2C)) * 100),4) * 2);
VAR2F:=EMA(((0.667 * REF(VAR2E,1)) + (0.333 * VAR2E)),2);
VAR30:=((3 * VAR2E) - (2 * VAR2F));
VAR31:=(POW(MA(CLOSE,5),2) + MA(CLOSE,5));
VAR32:=(POW(MA(LOW,5),2) + MA(LOW,5));
VAR33:=(POW(MA(HIGH,5),2) + MA(HIGH,5));
VAR34:=(((((VAR31 - LLV(VAR32,64)) / (HHV(VAR33,64) - LLV(VAR32,64))) * 150) + 65) - 10);
VAR35:=((SMA(VAR34,3,1) * 1.5) - 100);
VAR36:=SMA(VAR35,3,1);
VAR37:=((3 * VAR35) - (2 * VAR36));
VAR38:=(((HIGH + LOW) + (CLOSE * 2)) / 4);
VAR39:=EMA(VAR38,13);
VAR3A:=STD(VAR38,13);
VAR3B:=(((VAR38 - VAR39) * 100) / VAR3A);
VAR3C:=EMA(VAR3B,5);
VAR3D:=EMA(VAR3C,13);
VAR3E:=((EMA(VAR3C,13) + 200) - 100);
VAR3F:=EMA(VAR3E,10);
VAR40:=((3 * VAR3E) - (2 * VAR3F));
VAR41:=(((VAR29 + VAR2E) + VAR35) + VAR3E);
VAR42:=(((VAR2A + VAR2F) + VAR36) + VAR3F);
VAR43:=(((VAR2B + VAR30) + VAR37) + VAR40);
VAR44:=(((HIGH + LOW) + CLOSE) / 3);
VAR45:=((AMOUNT / VOL) / 100);
VAR46:=((SUM(AMOUNT,5) / SUM(VOL,5)) / 100);
VAR47:=((VAR44 - MA(VAR44,34)) / (0.015 * AVEDEV(VAR44,34)));
VAR48:=DMA(((AMOUNT / VOL) / 100),(VOL / CAPITAL));
VAR49:=((((HIGH + LOW) + CLOSE) + VAR44) / 4);
VAR4A:=EMA(VAR49,24);
VAR4B:=STD(VAR49,24);
VAR4C:=(((VAR49 - VAR4A) / VAR4B) * 100);
VAR4D:=((VAR44 - MA(VAR44,24)) / (0.015 * AVEDEV(VAR44,24)));
VAR4E:=EMA(VAR4C,5);
VAR4F:=((VAR45 - MA(VAR45,21)) / (0.015 * AVEDEV(VAR45,21)));
VAR50:=((VAR46 - MA(VAR46,90)) / (0.015 * AVEDEV(VAR46,90)));
VAR51:=(((((((VAR50 + VAR4F) + VAR4E) + VAR4D) + VAR47) / 5) + 165) / 4);
VAR52:=(((EMA(EMA(EMA(VAR51,15),10),5) - 25) * 2) + VAR48);
VAR53:=(((((VAR41 + VAR42) + (VAR43 * 30)) / 32) / 5) - 15);
VAR54:=EMA(VAR53,13);
VAR55:=(((VAR51 + VAR53) / 2) / 1.1);
VAR56:=((VAR52 + VAR54) / 2);
乾:=MA(VAR6,5);
坤:=MA(VAR7,5);
路左:MA(VAR6,5),,colorFF00;
路右:MA(VAR7,5),,colorFF;
强:STICKLINE((VAR18 > REF(VAR18,1)),VAR5,REF(VAR5,1),8,1),,colorFF;
弱:STICKLINE((VAR18 <= REF(VAR18,1)),VAR5,REF(VAR5,1),8,1),,colorFF00;
太阳:DRAWTEXT((CROSS(乾,VAR5) AND (VARB > 85)),(乾 + 0.2),'●'),,color4EB9E6;
荆棘:DRAWTEXT(FILTER((VARD > 0),5),坤,'▲'),,colorEDE92D;
星:DRAWTEXT(FILTER((VARF > 0),5),乾,'★'),,colorFFFF;
■:DRAWTEXT((((VAR1A < 20) AND (VAR1B < 25)) AND (VAR1C > 50)),(坤 - 0.1),'■'),,colorFF00;
⊙:DRAWTEXT((CROSS(VAR1F,VAR20) AND (COUNT(CROSS(VAR1F,VAR20),20) = 1)),(乾 + 0.2),'⊙'),,colorFFFF;
载物:DRAWTEXT(FILTER(VAR27,41),坤,'←载物'),,colorFFFF;
厚德:DRAWTEXT(FILTER(VAR26,41),乾,'←厚德'),,colorFFFFFF;
辰:DRAWTEXT((CROSS(VAR56,VAR55) AND (VAR55 > 50)),乾,'☆'),,colorD0FFC4;
◆:DRAWTEXT(CROSS(VAR55,0),坤,'◆'),,colorFF;
裳:DRAWTEXT(((((VAR15 AND (VAR12 OR VAR13)) AND (VAR11 < 20)) AND (VAR10 < 20)) AND (((WINNER(((CLOSE * 125) / 100)) - WINNER(CLOSE)) * 100) < 7.5)),VAR5,'←裳'),,colorFFFF;
DRAWICON(CROSS(VARB,10),VAR5,1),;
DRAWICON(CROSS(VARB,90),VAR5,2),;{----------------} 牛熊分界选股公式源码 在2楼 . [牛熊分界]主图原码n:=21;
a:="1a0001$close";//D
b:=WMA(A,20);//DMIY
b1:=MA(b,3);
b2:=MA(b,5);
b3:=MA(b,21);
b4:=MA(b,34);//下面也可简化，懒了
x:=REF(CLOSE,1)<REF(CLOSE,2) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(VOL,1)>REF(MA(VOL,20),1)*1.1;
y:=IF(x,MIN(REF(LOW,1),LOW),0);
z1:REF(y,BARSLAST(x)),Linethick3,colormagenta;
x1:=REF(CLOSE,1)<REF(OPEN,1) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1) or REF(CLOSE,1)<REF(OPEN,1) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1);
y1:=IF(x1,REF(CLOSE,1),0);
z2:REF(y1,BARSLAST(x1)),Linethick3,coloryellow;
STICKLINE(CLOSE>0 and (MAX(z1,z2)-MIN(z1,z2))/MIN(z1,z2)*100<3 and MAX(B1,B2)>MIN(B3,B4),z1,z2,5,0),COLORred;
MA3:=MA(CLOSE,5); PARTLINE(c,MA3),colorred;
MA4:=MA(CLOSE,6); PARTLINE(c,MA4),colorred;
MA5:=MA(CLOSE,7); PARTLINE(c,MA5),colorred;
MA6:=MA(CLOSE,8); PARTLINE(c,MA6),colorred;
MA7:=MA(CLOSE,9); PARTLINE(c,MA7),colorred;
MA8:MA(CLOSE,10); PARTLINE(c,MA8),colorred;
MA9:=MA(CLOSE,11); PARTLINE(c,MA9),colorred;
MA10:=MA(CLOSE,12); PARTLINE(c,MA10),colorred;
MA11:=MA(CLOSE,13); PARTLINE(c,MA11),colorred;
MA12:=MA(CLOSE,14); PARTLINE(c,MA12),colorred;
MA13:=MA(CLOSE,15); PARTLINE(c,MA13),colorred;
MA14:=MA(CLOSE,n); 牛熊分界:PARTLINE(c,MA14),Color0098FF,Linethick3;
洼:= IF(MA14>MA3,MA3,MA14); PARTLINE(c,洼),coloryellow;
洼1:= IF(MA14>MA4,MA4,MA14); PARTLINE(c,洼1),coloryellow;
洼2:= IF(MA14>MA5,MA5,MA14); PARTLINE(c,洼2),coloryellow;
洼3:= IF(MA14>MA6,MA6,MA14); PARTLINE(c,洼3),coloryellow;
洼4:= IF(MA14>MA7,MA7,MA14); PARTLINE(c,洼4),coloryellow;
洼5:= IF(MA14>MA8,MA8,MA14); PARTLINE(c,洼5),coloryellow;
洼6:= IF(MA14>MA9,MA9,MA14); PARTLINE(c,洼6),coloryellow;
洼7:= IF(MA14>MA10,MA10,MA14); PARTLINE(c,洼7),coloryellow;
洼8:= IF(MA14>MA11,MA11,MA14); PARTLINE(c,洼8),coloryellow;
洼9:= IF(MA14>MA12,MA12,MA14); PARTLINE(c,洼9),coloryellow;
洼10:= IF(MA14>MA13,MA13,MA14);PARTLINE(c,洼10),coloryellow