同花顺黄金分割操盘主图源码 EA

可配合K线，指示黄金分割操盘示意图。波形图由蓝转红为建仓和持股期，由红转蓝为减仓和出货期。

r

Var1:=(2*CLOSE+HIGH+LOW+OPEN)/5;
r A1: =(EMA(Var1,13)+EMA(Var1,21)+EMA(Var1,34)+EMA(Var1,55))/4;
r A2: =EMA(A1,3);
r A3: =EMA(A2,3);
r A4: =EMA(A3,3);
r A5: =EMA(A4,3);
r A6: =EMA(A5,3);
r A7: =EMA(A6,3);
r A8: =EMA(A7,3);
r A9: =EMA(A8,3);
r A10: =EMA(A9,3);
r A11: =EMA(A10,3);
r A12: =EMA(A11,3);
r PARTLINE(A1,A1>REF(A1,1),RGB(255,250,0),A1<REF(A1,1),RGB(150,0,250));
r PARTLINE(A2,A2>REF(A2,1),RGB(255,230,0),A2<REF(A2,1),RGB(140,0,250));
r PARTLINE(A3,A3>REF(A3,1),RGB(255,210,0),A3<REF(A3,1),RGB(130,0,250));
r PARTLINE(A4,A4>REF(A4,1),RGB(255,190,0),A4<REF(A4,1),RGB(120,0,250));
r PARTLINE(A5,A5>REF(A5,1),RGB(255,170,0),A5<REF(A5,1),RGB(100,0,250));
r PARTLINE(A6,A6>REF(A6,1),RGB(255,150,0),A6<REF(A6,1),RGB(90,0,250));
r PARTLINE(A7,A7>REF(A7,1),RGB(255,120,0),A7<REF(A7,1),RGB(80,0,250));
r PARTLINE(A8,A8>REF(A8,1),RGB(255,100,0),A8<REF(A8,1),RGB(70,0,250));
r PARTLINE(A9,A9>REF(A9,1),RGB(255,80,0),A9<REF(A9,1),RGB(60,0,250));
r PARTLINE(A10,A10>REF(A10,1),RGB(255,60,0),A10<REF(A10,1),RGB(50,0,250));
r PARTLINE(A11,A11>REF(A11,1),RGB(255,30,0),A11<REF(A11,1),RGB(40,0,250));
r PARTLINE(A12,A12>REF(A12,1),RGB(255,0,0),A12<REF(A12,1),RGB(30,0,250)),linethick1;
r日:=144;昨前:=1;
r高1:REF(HHV(H,日),昨前),colorblue,LINETHICK2;
r低1:REF(LLV(L,日),昨前),colorred,LINETHICK2;
r H1:高1-(高1-低1)*0.191,colorred;
r H2:高1-(高1-低1)*0.382,coloryellow;
r H3:高1-(高1-低1)*0.5,colorgreen;
r H4:高1-(高1-低1)*0.618,colormagenta;
r H5:高1-(高1-低1)*0.809,colorcyan;
r顶点:高1*1,colorred;
r低点:低1*1,colorwhite;
r止盈:H1*1,coloryellow;
r回档:H2*1,colormagenta;
r平衡:H3*1,colorred;
r反弹:H4*1,colorcyan;
r建仓:H5*1,coloryellow;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),顶点,’顶点’),COLORFFCC18;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),止盈,’0.191′),COLORFF18FF;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),回档,’0.382′),COLOR18FF18;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),平衡,’0.5′),COLOR18CCFF;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),反弹,’0.618′),COLORFFFFFF;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),建仓,’0.809′),COLOR00CCFF;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),低点,’低点’),COLOR00CC00;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF11;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,10,0 ),COLOR008855;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,10,0 ),COLOR009900;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,9,0 ),COLOR00AA00;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR00BB00;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00CC00;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00DD00;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00EE00;
r STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00FF55;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,10,0) ,COLORFF66FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,9,0) ,COLORFF88FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF99FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFFAAFF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,10,0) ,COLORFF00FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,9,0) ,COLORFF22FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF44FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF66FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF88FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF99FF;
r STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFFAAFF;
r阻挡:=(SMA(HIGH,21,2) * 1.05);
r STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,10,0),colorFF5B00;
r STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,9,0),colorFF6C00;
r STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8,0),colorFF7B00;
r STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFF9C00;
r STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),colorFFBE00;
r STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3.5,0),colorFFCC00;
r STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,1.5,0),colorFFFF00;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,10,0),color070084;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,9,0),color0000A3;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,0),color0000B7;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,0),color0000CD;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,6,0),color0000E9;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,5,0),color0754E9;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1.5,0),color076EF3;
r STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1,0),color077BF3;
r STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),color0726CA;
r STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),color0726CA;
r STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),colorDE9100;
r STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),colorDE9100;
r STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻挡)) AND ((CLOSE – REF(CLOSE,1)) > 0)),CLOSE,OPEN,10,0),color0090FF;
r STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻挡)) AND ((CLOSE – REF(CLOSE,1)) > 0)),CLOSE,OPEN,9,0),color009FFF;
r STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻挡)) AND ((CLOSE – REF(CLOSE,1)) > 0)),CLOSE,OPEN,8,0),color00B5FF;
r STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻挡)) AND ((CLOSE – REF(CLOSE,1)) > 0)),CLOSE,OPEN,7,0),color00E4FF;
r STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻挡)) AND ((CLOSE – REF(CLOSE,1)) > 0)),OPEN,LOW,0.7,0),color00FFFF;
r STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < 阻挡)) AND ((CLOSE – REF(CLOSE,1)) > 0)),CLOSE,HIGH,0.7,0),color00FFFF;
r STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻挡)) AND (CLOSE < 阻挡)),OPEN,LOW,0.7,0),colorFF76FF;
r STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻挡)) AND (CLOSE < 阻挡)),CLOSE,HIGH,0.7,0),colorFF76FF;
r STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻挡)) AND (CLOSE < 阻挡)),CLOSE,OPEN,9,0),colorFF00FF;
r STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻挡)) AND (CLOSE < 阻挡)),CLOSE,OPEN,6,0),colorFF62FF;
r STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > 阻挡)) AND (CLOSE < 阻挡)),CLOSE,OPEN,4,0),colorFF76FF;

r