四色K线状态指标升级,量化市场情绪冷热

LIJINZZ1:=STRCAT(HYBLOCK,'');

N:=6;

LIJINZZ2:=STRCAT(LIJINZZ1,DYBLOCK);

LIJINZZ3:=STRCAT(LIJINZZ2,'');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(LIJINZZ3,GNBLOCK)),COLOR00C0C0;

LIJINZZA1:=REF(H,N)=HHV(H,2*N+1);

LIJINZZB1:=FILTER(LIJINZZA1,N);

LIJINZZC1:=BACKSET(LIJINZZB1,N+1);

LIJINZZD1:=FILTER(LIJINZZC1,N);

LIJINZZA2:=REF(L,N)=LLV(L,2*N+1);

LIJINZZB2:=FILTER(LIJINZZA2,N);

LIJINZZC2:=BACKSET(LIJINZZB2,N+1);

LIJINZZD2:=FILTER(LIJINZZC2,N);

LIJINZZE1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;

LIJINZZE2:=(H+L)/2;

LIJINZZH1:=(LIJINZZD1&&NOT(LIJINZZD2&&LIJINZZE1>=LIJINZZE2))||ISLASTBAR||BARSCOUNT(C)=1;

LIJINZZL1:=(LIJINZZD2&&NOT(LIJINZZD1&&LIJINZZE1<LIJINZZE2));

LIJINZZH2:=LIJINZZD1&&NOT(LIJINZZD2&&LIJINZZE1>=LIJINZZE2);

LIJINZZX1:=REF(BARSLAST(LIJINZZH1),1)+1;

LIJINZZF1:=BACKSET(LIJINZZH1&&COUNT(LIJINZZL1,LIJINZZX1)>0,LLVBARS(IF(LIJINZZL1,L,10000),LIJINZZX1));

LIJINZZG1:=LIJINZZF1>REF(LIJINZZF1,1);

LIJINZZI1:=BACKSET(LIJINZZG1,2);

LIJINZZLD:=LIJINZZI1>REF(LIJINZZI1,1);

LIJINZZL2:=LIJINZZLD||ISLASTBAR||BARSCOUNT(C)=1;

LIJINZZX2:=REF(BARSLAST(LIJINZZL2),1)+1;

LIJINZZF2:=BACKSET(LIJINZZL2&&COUNT(LIJINZZH2,LIJINZZX2)>0,HHVBARS(IF(LIJINZZH2,H,0),LIJINZZX2));

LIJINZZG2:=LIJINZZF2>REF(LIJINZZF2,1);

LIJINZZI2:=BACKSET(LIJINZZG2,2);

LIJINZZHD:=LIJINZZI2>REF(LIJINZZI2,1);

LIJINZZR1:=BACKSET(ISLASTBAR,BARSLAST(LIJINZZHD)+1);

LIJINZZS1:=LIJINZZR1>REF(LIJINZZR1,1);

LIJINZZT1:=BACKSET(ISLASTBAR,BARSLAST(LIJINZZLD)+1);

LIJINZZU1:=LIJINZZT1>REF(LIJINZZT1,1);

LIJINZZR2:=BACKSET(LIJINZZS1,REF(BARSLAST(LIJINZZHD),1)+2);

LIJINZZS2:=LIJINZZR2>REF(LIJINZZR2,1);

LIJINZZT2:=BACKSET(LIJINZZU1,REF(BARSLAST(LIJINZZLD),1)+2);

LIJINZZU2:=LIJINZZT2>REF(LIJINZZT2,1);

NOTEXT1:DRAWLINE(LIJINZZS2,H,LIJINZZS1,H,1),LINETHICK2,COLORRED;

NOTEXT2:DRAWLINE(LIJINZZU2,L,LIJINZZU1,L,1),LINETHICK2,COLORGREEN;

LIJINZ1:=AMOUNT/100000000,COLORWHITE;

LIJINZ2:=LIJINZ1,VOLSTICK;

LIJINZ3:=V,VOLSTICK;

LIJINZ4:=LIJINZ3>REF(LIJINZ3,1);

LIJINZ5:=LIJINZ3<REF(LIJINZ3,1);

LIJINZ6:=EMA(((SLOPE(C,20)*5)+C),20);

STICKLINE(LIJINZ6<=C&&C>=O&&LIJINZ4,H,L,0.1,1),COLORRED;

STICKLINE(LIJINZ6<=C&&C>=O&&LIJINZ4,C,O,3,0),COLORRED;

STICKLINE(LIJINZ6<=C&&C>=O&&LIJINZ5,H,L,0.1,1),COLORYELLOW;

STICKLINE(LIJINZ6<=C&&C>=O&&LIJINZ5,C,O,3,0),COLORYELLOW;

STICKLINE(LIJINZ6<=C&&C<O,H,L,0.1,0),COLORYELLOW;

STICKLINE(LIJINZ6<=C&&C<O,C,O,3,0),COLORYELLOW;

STICKLINE(LIJINZ6>C&&C>=O&&LIJINZ4,H,L,0.1,1),COLORBLUE;

STICKLINE(LIJINZ6>C&&C>=O&&LIJINZ4,C,O,3,0),COLORBLUE;

STICKLINE(LIJINZ6>C&&C>=O&&LIJINZ5,H,L,0.1,1),COLORYELLOW;

STICKLINE(LIJINZ6>C&&C>=O&&LIJINZ5,C,O,3,0),COLORYELLOW;

STICKLINE(LIJINZ6>C&&C<O,H,L,0.1,0),COLORGREEN;

STICKLINE(LIJINZ6>C&&C<O,C,O,3,0),COLORGREEN;

LIJINZ7:=2000;

LIJINZ8:=CONST(HHV(H,LIJINZ7));

LIJINZ9:=CONST(LLV(L,LIJINZ7));

LIJINZ10:=LIJINZ8-(LIJINZ8-LIJINZ9)*0.191;

LIJINZ11:=LIJINZ8-(LIJINZ8-LIJINZ9)*0.382;

LIJINZ12:=LIJINZ8-(LIJINZ8-LIJINZ9)*0.5;

LIJINZ13:=LIJINZ8-(LIJINZ8-LIJINZ9)*0.618;

LIJINZ14:=LIJINZ8-(LIJINZ8-LIJINZ9)*0.809;

LIJINZ15:=LIJINZ8-(LIJINZ8-LIJINZ9)*0.764;

LIJINZ16:=LIJINZ8-(LIJINZ8-LIJINZ9)*0.236;

STICKLINE(CURRBARSCOUNT=8,LIJINZ8,LIJINZ8,0,1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=8,LIJINZ10,LIJINZ10,0,1),COLORCYAN;

STICKLINE(CURRBARSCOUNT=8,LIJINZ11,LIJINZ11,0,1),COLORCCCCCC;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ8,'1.000'),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ10,'0.809'),COLORCYAN;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ11,'0.618'),COLORFFFFFF;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ12,'0.500'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ13,'0.382'),COLORLIRED;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ15,'0.236'),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ14,'0.191'),COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ16,'0.764'),COLORRED;

DRAWTEXT(CURRBARSCOUNT=10,LIJINZ9,'0.000'),COLORRED;

STICKLINE(CURRBARSCOUNT=8,LIJINZ12,LIJINZ12,0,1),COLORYELLOW;

STICKLINE(CURRBARSCOUNT=8,LIJINZ13,LIJINZ13,0,1),COLORLIRED;

STICKLINE(CURRBARSCOUNT=8,LIJINZ15,LIJINZ15,0,1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=8,LIJINZ14,LIJINZ14,0,1),COLORMAGENTA;

STICKLINE(CURRBARSCOUNT=8,LIJINZ9,LIJINZ9,0,1),COLORRED;

STICKLINE(CURRBARSCOUNT=8,LIJINZ16,LIJINZ16,0,1),COLORRED;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ8*0.99,CON2STR(LIJINZ8,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ10,CON2STR(LIJINZ10,2)),COLORCYAN;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ11,CON2STR(LIJINZ11,2)),COLORFFFFFF;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ12,CON2STR(LIJINZ12,2)),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ15,CON2STR(LIJINZ15,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ13,CON2STR(LIJINZ13,2)),COLORLIRED;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ14,CON2STR(LIJINZ14,2)),COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ16,CON2STR(LIJINZ16,2)),COLORRED;

DRAWTEXT(CURRBARSCOUNT=50,LIJINZ9*1.01,CON2STR(LIJINZ9,2)),COLORRED;

LIJINZ17:=2000;

LIJINZ18:=2000;

LIJINZ19:=3;

LIJINZ20:=100;

LIJINZ21:=25;

LIJINZ22:=1;

LIJINZ23:=CURRBARSCOUNT;

LIJINZ24:=CONST(FINDHIGH(H,0,LIJINZ17*10,1));

LIJINZ25:=CONST(BARSLAST(LIJINZ24=H))+1;

LIJINZ26:=CONST(IF(LIJINZ25=1,H,REF(H,LIJINZ25-1)));

LIJINZ27:=CONST(FINDLOW(L,0,LIJINZ18*10,1));

LIJINZ28:=CONST(BARSLAST(LIJINZ27=L))+1;

LIJINZ29:=CONST(IF(LIJINZ28=1,L,REF(L,LIJINZ28-1)));

LIJINZ30:=BARSSINCE(SUM(ISLASTBAR,BARSLAST(L=LIJINZ29)+1));

LIJINZ31:=BARSSINCE(SUM(ISLASTBAR,BARSLAST(H=LIJINZ26)+1));

LIJINZ32:=IF(LIJINZ19=1,LIJINZ31,IF(LIJINZ19=2,LIJINZ30,IF(LIJINZ19=3,LIJINZ30,LIJINZ31)));

LIJINZ33:=LIJINZ20/IF(C<300,1000,10);

LIJINZ34:=IF(LIJINZ19=1,LIJINZ31,IF(LIJINZ19=2,LIJINZ30,IF(LIJINZ19=3,LIJINZ31,LIJINZ30)));

LIJINZ35:=LIJINZ20/IF(C<300,1000,10);

LIJINZ36:=((LIJINZ26-LIJINZ29)/6-(LIJINZ26-LIJINZ29)/8);

LIJINZ37:=LIJINZ26+(LIJINZ26-LIJINZ29)/8;

LIJINZ38:=LIJINZ29-(LIJINZ26-LIJINZ29)/8;

LIJINZ39:=IF(LIJINZ28>LIJINZ25,LIJINZ28,LIJINZ25);

LIJINZ40:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.000,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ40)*1.001,STRCAT('0.000',CON2STR(LIJINZ40,2))),COLORF5CCEB;

LIJINZ41:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.191,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ41)*1.001,STRCAT('0.191',CON2STR(LIJINZ41,2))),COLORF5CCEB;

LIJINZ42:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.236,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ42)*1.001,STRCAT('0.236',CON2STR(LIJINZ42,2))),COLORF5CCEB;

LIJINZ43:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.382,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ43)*1.001,STRCAT('0.382',CON2STR(LIJINZ43,2))),COLORF5CCEB;

LIJINZ44:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.500,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ44)*1.001,STRCAT('0.500',CON2STR(LIJINZ44,2))),COLORF5CCEB;

LIJINZ45:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.618,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ45)*1.001,STRCAT('0.618',CON2STR(LIJINZ45,2))),COLORF5CCEB;

LIJINZ46:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.764,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ46)*1.001,STRCAT('0.764',CON2STR(LIJINZ46,2))),COLORF5CCEB;

LIJINZ47:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*0.809,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ47)*1.001,STRCAT('0.809',CON2STR(LIJINZ47,2))),COLORF5CCEB;

LIJINZ48:IF(LIJINZ23<=LIJINZ39,LIJINZ26-(LIJINZ26-LIJINZ29)*1.000,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(LIJINZ23=LIJINZ39,(LIJINZ48)*1.001,STRCAT('1.000.',CON2STR(LIJINZ48,2))),COLORF5CCEB;