

文华财经6指标源码:
多空线:EMA(EMA(C,10),10),COLORRED,LINETHICK2;
B8:=多空线>REF(多空线,1);
IF(B8-1,多空线,NULL),COLORGREEN,LINETHICK2;
DRAWTEXT(CROSSUP(B8,0.5),L,'▲'),COLORMAGENTA,FONTSIZE35,VALIGN0;
DRAWTEXT(CROSSUP(B8=0,0.5),H,'▼'),COLORGREEN,FONTSIZE35;
X1:=(CLOSE+LOW+HIGH)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
VAR2:=EMA(EMA(X1,1),13);
VAR3:=EMA(VAR2,21);
XCLOSE:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3);
XOPEN:=EMA((REF(OPEN,1)+REF(XCLOSE,1))/2,3);
TEMPG:=MAX(HIGH,XOPEN);
XHIGH:=EMA(MAX(TEMPG,XCLOSE),3);
TEMP:=MIN(LOW,XOPEN);
XLOW:=EMA(MIN(TEMP,XCLOSE),3);
O1:=IF(XOPEN<XCLOSE,XOPEN,XCLOSE);
C1:=IF(XOPEN<XCLOSE,XCLOSE,XOPEN);
AC:=CLOSE;
转强:=MA(HIGH,6);
转弱:=MA(LOW,6);
B:=CLOSE*0;
转折线:=IF(B=-1,MA(HIGH,6),MA(LOW,6)),LINETHICK2,COLORFFFFFF,NODRAW;
EM01:=EMA(C,10);
EM:=EMA(C,21);
UP:=EMA(EM,13);
DOWN:=EMA(EM,17);
MIDD:=(UP+DOWN)/2;
MAM:=(EMA(EM01,2)+EMA(EM01,5))/2;
//神龙多空线
X18:=(CLOSE+LOW+HIGH+OPEN)/4;
X28:=EMA(X18,6);
X38:=EMA(X28,2);
VAR200:=EMA(EMA(X18,1),18);
VAR300:=EMA(VAR200,18);
O100:=IF(XOPEN<XCLOSE,XOPEN,XCLOSE);
C100:=IF(XOPEN<XCLOSE,XCLOSE,XOPEN);
神龙线:EMA(MA(C,34),60),LINETHICK1,COLORYELLOW;
DRAWTEXT(ISLASTBAR AND (神龙线<XCLOSE),神龙线,' -做多为主'),COLORRED,VALIGN1,ALIGN0,FONTSIZE20;
DRAWTEXT(ISLASTBAR AND (神龙线>=XCLOSE),神龙线,' -做空为主'),COLORGREEN,VALIGN1,ALIGN0,FONTSIZE20;
DRAWICON((神龙线>=XCLOSE),神龙线,'ICO11'),VALIGN2,ALIGN1;
DRAWICON((神龙线<XCLOSE),神龙线,'ICO10'),VALIGN0,ALIGN1;
DRAWGBK(神龙线<XCLOSE,COLOR000000,COLOR2F0000,0);
DRAWGBK(神龙线>=XCLOSE,COLOR000000,COLOR140A45,0);
//文字提示
MA2:=EMA(C,13);
MA3:=EMA(C,21);
DRAWTEXT(CROSS(MA2,MA3) AND XCLOSE>=神龙线,XLOW,'开多'),COLORYELLOW,VALIGN0,ALIGN2,FONTSIZE18;
DRAWTEXT(CROSS(MA3,MA2) AND XCLOSE<神龙线,XHIGH,'开空'),COLORGREEN,VALIGN2,ALIGN2,FONTSIZE18;
DRAWTEXT(CROSS(XCLOSE,神龙线) AND MA2>=MA3,XLOW,'开多'),COLORYELLOW,VALIGN0,ALIGN2,FONTSIZE18;
DRAWTEXT(CROSS(神龙线,XCLOSE) AND MA2<MA3,XHIGH,'开空'),COLORGREEN,VALIGN2,ALIGN2,FONTSIZE18;
//DRAWTEXT(CROSS(MA3,MA2) AND XCLOSE<神龙线||CROSS(神龙线,XCLOSE) AND MA2<MA3,XHIGH,'↓'),FONTSIZE50,COLORBLUE,ALIGN0;
//DRAWTEXT(CROSS(MA2,MA3) AND XCLOSE>=神龙线||CROSS(XCLOSE,神龙线) AND MA2>=MA3,XLOW,'↑'),VALIGN0,FONTSIZE50,COLORYELLOW,ALIGN0;
CROSS(MA2,MA3) AND XCLOSE>=神龙线,SOUND('A');
CROSS(MA3,MA2) AND XCLOSE<神龙线,SOUND('B');
CROSS(XCLOSE,神龙线) AND MA2>=MA3,SOUND('A');
CROSS(神龙线,XCLOSE) AND MA2<MA3,SOUND('B');
TY:=C;
A18:=REF(TY,10)=HHV(TY,2*10+1);
VB1:=FILTER(A18,10);
C18:=BACKSET(VB1,10+1);
HD:=FILTER(C18,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);
VB2:=FILTER(A2,10);
C2:=BACKSET(VB2,10+1);
LD:=FILTER(C2,10);
AAD:=REF(C,BARSLAST(HD));
BA:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
A31:=LLV(LOW,1);
A4:=LLV(LOW,5);
A5:=LLV(LOW,8);
A6:=HHV(H,21);
A7:=LLV(LOW,21),COLORRED;
A8:=(A6+A7)/2;
波峰:=IF(T1,AAD,AAD),COLORGREEN,POINTDOT;
STICKLINE(T1,AAD,AAD,1,0),COLORGREEN;
波谷:=IF(T2,BA,BA),COLORRED,POINTDOT;
STICKLINE(T2 ,BA,BA,1,0),COLORRED;
LC:=REF(CLOSE,1);
WRSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(WRSI,15),L,'平空'),COLORMAGENTA,FONTSIZE15;
DRAWTEXT(CROSS(85,WRSI),H,'平多'),COLORLIGHTGREEN,FONTSIZE15;
LC8:=REF(CLOSE,1);
WRSI8:=SMA(MAX(CLOSE-LC8,0),6,1)/SMA(ABS(CLOSE-LC8),6,1)*100;
DRAWICON(CROSS(WRSI8,10),L,'ICO153'),VALIGN0;
DRAWICON(CROSS(90,WRSI8),H,'ICO152'),VALIGN2;
DRAWCOLORKLINE(多空线>REF(多空线,1),COLORRED,1);
DRAWCOLORKLINE(多空线>REF(多空线,1)&&ISDOWN,COLORRED,0);
DRAWCOLORKLINE(多空线<REF(多空线,1),COLORGREEN,1);
DRAWCOLORKLINE(多空线<REF(多空线,1)&&ISDOWN,COLORGREEN,0);
KU1:=IF(HIGH=HHV(HIGH,3),1,0);
KD1:=IF( LOW=LLV( LOW,3),1,0);
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2), REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));
上分形:IF(HIGH>=MA(CLOSE,3),UL,REF(UL,BARSLAST(HIGH>MA(CLOSE,3)))),NODRAW,COLORMAGENTA;
//{分形数字}
下分形:IF( LOW<=MA(CLOSE,3),DL,REF(DL,BARSLAST(LOW<=MA(CLOSE,3)))),NODRAW,COLORYELLOW;
//{分形横线}
DRAWTEXT(CLOSE>上分形 AND REF(CLOSE,1)<REF(上分形,1),LOW,'买'),COLORFF00FF,COLORMAGENTA,FONTSIZE30;
//{箭头突破分形}
DRAWTEXT(CLOSE<下分形 AND REF(CLOSE,1)>REF(下分形,1),H,'卖'),COLORFF0000,COLORYELLOW,FONTSIZE30;
MA20:MA(C,20); //定义20周期均线
DRAWCOLORLINE(MA20>REF(MA20,1),MA20,COLORMAGENTA,COLORGREEN),LINETHICK4; //上涨时紫红色,下跌时绿色,加粗显示
DRAWSHIFTNUMBER(ISLASTBAR&&MA20>REF(MA20,1),MA20,MA20,2,COLORMAGENTA,1,2),ALIGN0,VALIGN0,FONTSIZE17;
DRAWSHIFTNUMBER(ISLASTBAR&&MA20<=REF(MA20,1),MA20,MA20,2,COLORGREEN,1,2),ALIGN0,VALIGN0,FONTSIZE17;