���ǻ�̫��һ����ͼָ�깫ʽ��Ʊ����Դ������:
N:=10;P:=3;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0),COLOR5454FF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,7,0),COLORFFFF00;
STICKLINE(CLOSE>OPEN,HIGH,CLOSE,0.1,0),COLOR5454FF;
STICKLINE(CLOSE>OPEN,LOW,OPEN,0.1,0),COLOR5454FF;
STICKLINE(CLOSE<OPEN,HIGH,OPEN,0.1,0),COLORFFFF00;
STICKLINE(CLOSE<OPEN,LOW,CLOSE,0.1,0),COLORFFFF00;
STICKLINE(CLOSE=OPEN AND CLOSE>REF(CLOSE,1),CLOSE,OPEN,7,0),COLOR5454FF;
STICKLINE(CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),CLOSE,OPEN,7,0),COLORFFFF00;
STICKLINE(CLOSE=OPEN AND CLOSE>REF(CLOSE,1),HIGH,LOW,0.1,0),COLOR5454FF;
STICKLINE(CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),HIGH,LOW,0.1,0),COLORFFFF00;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
DWN:BBI-P*STD(BBI,N),linethick1;
UPR:BBI+P*STD(BBI,N),linethick1;
MA5:ma(c,5),COLORFF50FF,linethick2;
partline(MA5,MA5>=ref(MA5,1),rgb(255,0,0),MA5<ref(MA5,1),rgb(0,250,0)),linethick3;
var1:=CLOSE>=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var2:=REF(var1,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var3:=REF(var2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var4:=REF(var3,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var5:=REF(var4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var6:=REF(var5,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var7:=REF(var6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var8:=REF(var7,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var9:=REF(var8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
varA:=REF(var9,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);
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);
var10:=REF(varF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var11:=REF(var10,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var12:=REF(var11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var13:=REF(var12,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var14:=REF(var13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var15:=REF(var14,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var16:=REF(var15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var17:=REF(var16,1) AND CLOSE<REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var18:=REF(var17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
var181:=REF(varD OR varE OR varF OR var10 OR var11 OR var12 OR var13 OR
var14 OR var15 OR var16 OR var17 OR var18,1);
var19:=var181 AND var1;
var11A:=REF(var1 OR var2 OR var3 OR var4 OR var5 OR var6 OR var7 OR
var8 OR var9 OR varA OR varB OR varC,1);
var1A:=var11A AND varD;
STICKLINE(var19,L,L-0.1,8,0),COLOR00FFFF;
STICKLINE(var1A,H,H+0.1,8,0),COLORFF00FF;
�Ƶ�����:var19,linethick0,COLOR00ffff;
�۶�����:var1A,linethick0,COLORFF50FF;
��ɫ�ֹ�:0,linethick0,COLORRED;
��ɫ�ֱ�:0,linethick0,COLOR00d900;
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
MA125:=MA(C,125);
MA250:=MA(C,250);
BIAS:=(C-MA20)/MA20*100;
SHOPEN:=OPEN;
SHHIGH:=HIGH;
SHLOW:=LOW;
SHCLOSE:=CLOSE;
SHAMOUNT:=AMOUNT;
SHVOL:=VOL;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
t1:=(((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1);
t2:=((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12));
t3:=((CLOSE >= J12) AND (OPEN <= J23));
t4:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12));
t5:=(((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t6:=((CLOSE <= J23) AND (OPEN >= J12));
t7:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23));
t8:=(((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t9:=(((SHAMOUNT / SHVOL) / 100) > REF(HIGH,1));
t10:=(((SHAMOUNT / SHVOL) / 100) < REF(LOW,1));
if DISPSTATUS=2 then begin;
var1000:='��';
if t1>0 then var1000:=var1000+'�������,��δ���ļ�������85%�Ļ���������';
if t2>0 then var1000:=var1000+'����������,���˫����δ��ȡ�õ������������ԵĿ���Ȩ';
if t3>0 then var1000:=var1000+'����������,���������ڼ䶼����������';
if t4>0 then var1000:=var1000+'����������,��Ϣ����,�������ڼ���������,����δ֪��';
if t5>0 then var1000:=var1000+'����������,�����̼����������̼�֮��,����ȴҲ����һ������,����֪����˭�����������顣';
if t6>0 then var1000:=var1000+'��Ư������,���������ڼ䶼������������';
if t7>0 then var1000:=var1000+'��Ư������,��Ϣ����,�������ڼ�����������,����δ֪��';
if t8>0 then var1000:=var1000+'��Ư������,���������̼�ѹ�������̼�֮��,��ȴҲ����һ������,����֪����˭�����������顣';
if t9>0 then var1000:=var1000+'������������';
if t10>0 then var1000:=var1000+'���µ����ơ�';
if MA20>=MA60 AND CROSS(MA40,MA60) then var1000:=var1000+'���γɼ��У����ɼۻ��䵽20��������40�����ʱ���룬20�����Ϊ:'+MA20+' ��';
if BIAS>9.5 AND (C-REF(C,1))/REF(C,1)*100<9.8 then var1000:=var1000+'�������Ƿ�����������Ҫ��';
if MA20>=MA60 AND H>=MA20 AND L<=MIN(MA40,MA60) AND C>O AND C>REF(C,1) then var1000:=var1000+'��ܽ�س�ˮ��������á�';
if BIAS<-18 AND (C-REF(C,1))/REF(C,1)*100>-9.8 then var1000:=var1000+'��ɼ������������б���Ҫ��';
if BIAS<-7 AND ALL(CLOSE<OPEN,5) then var1000:=var1000+'����������������������Ҫ��';
if ABS(HIGH-REF(HIGH,1))/HIGH<0.001 then var1000:=var1000+'��ƽ����-�øߵ���һ��������';
if ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.00 then var1000:=var1000+'��ƽ�ף��õ͵���һ��֧����';
if CLOSE=OPEN AND HIGH<>close and low<>close and HIGH/LOW > 1.03 then var1000:=var1000+'�� ��ʮ�֣���ռ��� ǰ;δ����';
if OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 then var1000:=var1000+'�� �������տշ��о������ơ�';
if REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 then var1000:=var1000+'��˫����ѻ����ͷ���ߣ�����������';
if (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 then var1000:=var1000+'���Ӱ���µ�֧��ǿ��շ���̽������';
if (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 then var1000:=var1000+'���Ӱ���ϵ����������̽������';
if CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH then var1000:=var1000+'���ʮ�֣�������ʱ��Ҫ ��ǿ����ͷ��ʼƣ����';
if HIGH=CLOSE AND HIGH<>LOW then var1000:=var1000+'���ͷ���ߣ�����β�̶��ʢ������������������졣';
if (HIGH<REF(LOW,1) OR LOW>REF(HIGH,1)) then var1000:=var1000+'������ȱ��������δ������������ͬ����У���������ǿ�ң�������Ϊ�ز��۲��ڡ�';
if LOW=CLOSE AND HIGH<>LOW then var1000:=var1000+'�������ߣ�β�̿շ�ʤ�� ע��ɼ��µ����������ա�';
if CLOSE=OPEN AND HIGH<>close and low<>close and high <>close then var1000:=var1000+'��ʮ���ǣ������źš�ԭ����ͣ�ٻ�ת��������Ӱ�߳����к��С�';
if CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 then var1000:=var1000+'�������������������ζ������������������µ���������ζ����������Ϸ�����';
IF REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1)AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2) THEN
var1000:=var1000+'���糿ʮ�֣���ͬ���ǡ� �ӿ���ƽ�����תǿ����������Ի��Ӥ ��';
IF REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4) THEN var1000:=var1000+'���������������շ���ѹ�����ɡ� ������˳�����ǡ�';
IF (ref(high,2) -ref(o,2))/ref(high,2)<=0.0003 AND (c-low)/o<=0.0003 AND ref(c,2)<ref(o,2) AND ref(c,2)>ref(o,1) AND ref(c,1)>o AND ref(c,1)<ref(o,1) AND ref(high,1)-ref(o,1)>0 AND ref(low,1)-ref(c,1)<0 AND high-o>0 AND ref(c,2)-ref(low,2)>0 THEN var1000:=var1000+'����̥��ѻ����ͷ���Ʊ�Ťת����K��������������������ת�ź���ǿ��';
IF ((REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)) THEN
var1000:=var1000+'���Ѻ÷�������(��)�߽�ϣ����߶����(��)�������ȼ��� ��';
IF close<>open and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN
var1000:=var1000+'�����֮�ǣ������������������ж��ڼ������ܣ��ɼ�תƣ��';
IF REF(CLOSE,1)-REF(OPEN,1)<0 AND CLOSE-OPEN>0 AND OPEN-REF(CLOSE,1)<0 AND CLOSE<REF(OPEN,1) AND CLOSE>REF(CLOSE,1) AND CLOSE>(REF(CLOSE,1)+REF(OPEN,1))/2 THEN
var1000:=var1000+'��ᴩ�ߣ���ͷ�����ķ��˻��ǿյ��ز�����������֮������ǰ��1/2֮�ϣ�Ϊ��ͷ��ת�źš�';
IF ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1)) THEN
var1000:=var1000+'���������ף���(��)����(��)����������ƣ���ʾ�ù��������ת�� �����ɴ�ת�����µ����Ƹ���ȷ��';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c>ref(o,1) AND o<ref(c,1)) THEN
var1000:=var1000+'���ͷ�������ɣ�����ڡ���ת����������������� ';
IF ((ref(c,2)-ref(o,2)>0 AND (ABS(ref(c,2)-ref(o,2)))/(ABS(ref(c,3)-ref(o,3)))>2.4 AND ABS(c-o)>3 AND ABS(ref(c,2)-ref(o,2))>(ABS(ref(c,1)-ref(o,1))) AND ref(c,1)-ref(o,1)>0 AND c-o<0 AND ref(o,1) >ref(c,2) AND o<ref(o,1) AND c<ref(c,2) AND c>ref(o,2)) OR (re