{公式名称:黄金分割多空}
{公式描述:通过K线四种颜色变化直观感知市场情绪}
GSPT1:=AMOUNT/100000000,COLORWHITE;
GSPT2:=GSPT1,VOLSTICK;
GSPT3:=V,VOLSTICK;
GSPT4:=GSPT3>REF(GSPT3,1);
GSPT5:=GSPT3< REF(GSPT3,1);
GSPT6:=EMA(((SLOPE(C,20)*5)+C),20);
STICKLINE(GSPT6<=C&&C>=O&&GSPT4,H,L,0,1),COLORRED;
STICKLINE(GSPT6<=C&&C>=O&&GSPT4,C,O,3,0),COLORRED;
STICKLINE(GSPT6<=C&&C>=O&&GSPT5,H,L,0,1),COLORYELLOW;
STICKLINE(GSPT6<=C&&C>=O&&GSPT5,C,O,3,0),COLORYELLOW;
STICKLINE(GSPT6<=C&&C< O,H,L,0,0),COLORYELLOW;
STICKLINE(GSPT6<=C&&C< O,C,O,3,0),COLORYELLOW;
STICKLINE(GSPT6>C&&C>=O&&GSPT4,H,L,0,1),COLORBLUE;
STICKLINE(GSPT6>C&&C>=O&&GSPT4,C,O,3,0),COLORBLUE;
STICKLINE(GSPT6>C&&C>=O&&GSPT5,H,L,0,1),COLORYELLOW;
STICKLINE(GSPT6>C&&C>=O&&GSPT5,C,O,3,0),COLORYELLOW;
STICKLINE(GSPT6>C&&C< O,H,L,0,0),COLORGREEN;
STICKLINE(GSPT6>C&&C< O,C,O,3,0),COLORGREEN;
GSPT7:=2000;
GSPT8:=CONST(HHV(H,GSPT7));
GSPT9:=CONST(LLV(L,GSPT7));
GSPT10:=GSPT8-(GSPT8-GSPT9)*0.191;
GSPT11:=GSPT8-(GSPT8-GSPT9)*0.382;
GSPT12:=GSPT8-(GSPT8-GSPT9)*0.5;
GSPT13:=GSPT8-(GSPT8-GSPT9)*0.618;
GSPT14:=GSPT8-(GSPT8-GSPT9)*0.809;
GSPT15:=GSPT8-(GSPT8-GSPT9)*0.764;
GSPT16:=GSPT8-(GSPT8-GSPT9)*0.236;
STICKLINE(CURRBARSCOUNT=8,GSPT8,GSPT8,0,1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=8,GSPT10,GSPT10,0,1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=8,GSPT11,GSPT11,0,1),COLORCCCCCC;
DRAWTEXT(CURRBARSCOUNT=10,GSPT8,'1.000'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,GSPT10,'0.809'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=10,GSPT11,'0.618'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=10,GSPT12,'0.500'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=10,GSPT13,'0.382'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=10,GSPT15,'0.236'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,GSPT14,'0.191'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=10,GSPT16,'0.764'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=10,GSPT9,'0.000'),COLORRED;
STICKLINE(CURRBARSCOUNT=8,GSPT12,GSPT12,0,1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=8,GSPT13,GSPT13,0,1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=8,GSPT15,GSPT15,0,1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=8,GSPT14,GSPT14,0,1),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=8,GSPT9,GSPT9,0,1),COLORRED;
STICKLINE(CURRBARSCOUNT=8,GSPT16,GSPT16,0,1),COLORRED;
DRAWTEXT(CURRBARSCOUNT=50,GSPT8*0.99,CON2STR(GSPT8,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=50,GSPT10,CON2STR(GSPT10,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=50,GSPT11,CON2STR(GSPT11,2)),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=50,GSPT12,CON2STR(GSPT12,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=50,GSPT15,CON2STR(GSPT15,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=50,GSPT13,CON2STR(GSPT13,2)),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=50,GSPT14,CON2STR(GSPT14,2)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=50,GSPT16,CON2STR(GSPT16,2)),COLORRED;
DRAWTEXT(CURRBARSCOUNT=50,GSPT9*1.01,CON2STR(GSPT9,2)),COLORRED;
DRAWTEXT_FIX(1,0.980,20,1,'公式平台,公式源码 http://www.gspt.com'),COLOR333333;
GSPT17:=2000;
GSPT18:=2000;
GSPT19:=3;
GSPT20:=100;
GSPT21:=25;
GSPT22:=1;
GSPT23:=CURRBARSCOUNT;
GSPT24:=CONST(FINDHIGH(H,0,GSPT17*10,1));
GSPT25:=CONST(BARSLAST(GSPT24=H))+1;
GSPT26:=CONST(IF(GSPT25=1,H,REF(H,GSPT25-1)));
GSPT27:=CONST(FINDLOW(L,0,GSPT18*10,1));
GSPT28:=CONST(BARSLAST(GSPT27=L))+1;
GSPT29:=CONST(IF(GSPT28=1,L,REF(L,GSPT28-1)));
GSPT30:=BARSSINCE(SUM(ISLASTBAR,BARSLAST(L=GSPT29)+1));
GSPT31:=BARSSINCE(SUM(ISLASTBAR,BARSLAST(H=GSPT26)+1));
GSPT32:=IF(GSPT19=1,GSPT31,IF(GSPT19=2,GSPT30,IF(GSPT19=3,GSPT30,GSPT31)));
GSPT33:=GSPT20/IF(C< 300,1000,10);
GSPT34:=IF(GSPT19=1,GSPT31,IF(GSPT19=2,GSPT30,IF(GSPT19=3,GSPT31,GSPT30)));
GSPT35:=GSPT20/IF(C< 300,1000,10);
GSPT36:=((GSPT26-GSPT29)/6-(GSPT26-GSPT29)/8);
GSPT37:=GSPT26+(GSPT26-GSPT29)/8;
GSPT38:=GSPT29-(GSPT26-GSPT29)/8;
GSPT39:=IF(GSPT28>GSPT25,GSPT28,GSPT25);
GSPT40:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.000,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT40)*1.001,STRCAT('0.000',CON2STR(GSPT40,2))),COLORF5CCEB;
GSPT41:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.191,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT41)*1.001,STRCAT('0.191',CON2STR(GSPT41,2))),COLORF5CCEB;
GSPT42:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.236,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT42)*1.001,STRCAT('0.236',CON2STR(GSPT42,2))),COLORF5CCEB;
GSPT43:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.382,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT43)*1.001,STRCAT('0.382',CON2STR(GSPT43,2))),COLORF5CCEB;
GSPT44:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.500,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT44)*1.001,STRCAT('0.500',CON2STR(GSPT44,2))),COLORF5CCEB;
GSPT45:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.618,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT45)*1.001,STRCAT('0.618',CON2STR(GSPT45,2))),COLORF5CCEB;
GSPT46:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.764,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT46)*1.001,STRCAT('0.764',CON2STR(GSPT46,2))),COLORF5CCEB;
GSPT47:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*0.809,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT47)*1.001,STRCAT('0.809',CON2STR(GSPT47,2))),COLORF5CCEB;
GSPT48:IF(GSPT23<=GSPT39,GSPT26-(GSPT26-GSPT29)*1.000,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(GSPT23=GSPT39,(GSPT48)*1.001,STRCAT('1.000.',CON2STR(GSPT48,2))),COLORF5CCEB;