这个贴有的是原码，而且讨论的是k线原码。开这个贴的目的旨在一句话说清k线，我先开个头，就当抛砖引玉......后面的你可以贴原原码，我用一句话说清楚！

 一句话：3根k线，收盘创新高（低）变色。

JRH:=HHV(C,2);   

JRL:=LLV(C,2);   

MA3:=MA(CLOSE,3);   

YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;   

VAR01:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));    

VAR02:=(REF(VAR01,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR03:=(REF(VAR02,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR04:=(REF(VAR03,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR05:=(REF(VAR04,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR06:=(REF(VAR05,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR07:=(REF(VAR06,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR08:=(REF(VAR07,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR09:=(REF(VAR08,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VARA:=(REF(VAR09,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));  {GUPIAOFF.COM}  

VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR010:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR011:=(REF(VAR010,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR012:=(REF(VAR011,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR013:=(REF(VAR012,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR014:=(REF(VAR013,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR015:=(REF(VAR014,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR016:=(REF(VAR015,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR017:=(REF(VAR016,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));    

VAR018:=(REF(VAR017,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));    

VAR019:=((REF(VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,1)) AND VAR01);    

VAR1A:=((REF(VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,1)) AND VARD);    

红色持股:=VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,COLOR0000FF,NODRAW;

离场:=IF(红色持股,JRL,DRAWNULL);    

明离场价:=离场,COLORFF99FF,NODRAW;

青色观望:=VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,COLORFFFF00,NODRAW;    

进:=IF(青色观望,JRH,DRAWNULL);

今离场价:REF(离场,1),COLOR0000FF,NODRAW;    

明进场价:=进,COLOR33AACC,NODRAW;    

今进场价:REF(明进场价,1),COLORGREEN,NODRAW;

{一句话：4根K线，创新（高）低变色}

VAR9Q:=C= HHV(C,4)AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3)) OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND C>=REF(C,1) AND C>=REF(C,2);  

     STICKLINE(VAR9Q,C,(O+C)/2,7,0),COLOR000055;  

     STICKLINE(VAR9Q,C,(O+C)/2,6,0),COLOR000066;  

     STICKLINE(VAR9Q,C,(O+C)/2,5,0),COLOR000077;  

     STICKLINE(VAR9Q,C,(O+C)/2,4,0),COLOR000099;  

     STICKLINE(VAR9Q,C,(O+C)/2,3,0),COLOR0000BB;  

     STICKLINE(VAR9Q,C,(O+C)/2,2,0),COLOR0000DD;  

     STICKLINE(VAR9Q,C,(O+C)/2,1,0),COLOR0000FF;  

VARAQ:=C=HHV(C,4) AND REF(C,1)=LLV(C,4);  

     STICKLINE(VARAQ,C,(O+C)/2,7,0),COLORFF11FF;  

     STICKLINE(VARAQ,C,(O+C)/2,6,0),COLORFF33FF;  

     STICKLINE(VARAQ,C,(O+C)/2,5,0),COLORFF55FF;  

     STICKLINE(VARAQ,C,(O+C)/2,4,0),COLORFF77FF;  

     STICKLINE(VARAQ,C,(O+C)/2,3,0),COLORFF99FF;  

     STICKLINE(VARAQ,C,(O+C)/2,2,0),COLORFFBBFF;  

     STICKLINE(VARAQ,C,(O+C)/2,1,0),COLORFFDDFF;  

VARBQ:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<>HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2);  

     STICKLINE(VARBQ,C,(O+C)/2,7,0),COLOR333333;  

     STICKLINE(VARBQ,C,(O+C)/2,6,0),COLOR555555;  

     STICKLINE(VARBQ,C,(O+C)/2,5,0),COLOR777777;  

     STICKLINE(VARBQ,C,(O+C)/2,4,0),COLOR999999;  

     STICKLINE(VARBQ,C,(O+C)/2,3,0),COLORBBBBBB;  

     STICKLINE(VARBQ,C,(O+C)/2,2,0),COLORDDDDDD;  

     STICKLINE(VARBQ,C,(O+C)/2,1,0),COLORFFFFFF;  

VARCQ:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);  

     STICKLINE(VARCQ,O,(O+C)/2,7,0),COLOR003300;  

     STICKLINE(VARCQ,O,(O+C)/2,6,0),COLOR005500;  

     STICKLINE(VARCQ,O,(O+C)/2,5,0),COLOR007700;  

     STICKLINE(VARCQ,O,(O+C)/2,4,0),COLOR009900;  

     STICKLINE(VARCQ,O,(O+C)/2,3,0),COLOR00BB00;  

     STICKLINE(VARCQ,O,(O+C)/2,2,0),COLOR00DD00;  

     STICKLINE(VARCQ,O,(O+C)/2,1,0),COLOR00FF00;  

VARDQ:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND REF(C,2)>=REF(C,4) AND C<REF(C,1);  

STICKLINE(VARDQ,O,(O+C)/2,7,0),COLORFF1100;  

STICKLINE(VARDQ,O,(O+C)/2,6,0),COLORFF3300;  

STICKLINE(VARDQ,O,(O+C)/2,5,0),COLORFF5500;  

STICKLINE(VARDQ,O,(O+C)/2,4,0),COLORFF7700;  

STICKLINE(VARDQ,O,(O+C)/2,3,0),COLORFF9900;  

STICKLINE(VARDQ,O,(O+C)/2,2,0),COLORFFBB00;  

STICKLINE(VARDQ,O,(O+C)/2,1,0),COLORFFDD00;