{短波段}
 
P1:=2;
 
PM1:=3;
 
VAR1:=HHV(HIGH,9*P1)-LLV(LOW,9*P1);
 
VAR2:=HHV(HIGH,9*P1)-CLOSE;
 
VAR3:=CLOSE-LLV(LOW,9*P1);
 
VAR4:=VAR2/VAR1*100-70;
 
VAR7:=SMA(VAR3/VAR1*100,3*P1,1);
 
VAR9A:=(SMA(VAR7,3*P1,1)-SMA(VAR4,9*P1,1))*0.8;
 
VAR9:=EMA(VAR9A,PM1);
 
PARTLINE(VAR9A>REF(VAR9A,1),VAR9A),colorFF;
 
PARTLINE(VAR9A<=REF(VAR9A,1),VAR9A),colorFF00;
 
100,colorFF;
 
80,colorFFFFFF;
 
60,colorFFFF;
 
40,colorFFFFFF;
 
20,colorFF;
 
DRAWICON(CROSS(VAR9A,VAR9),LLV(VAR9A,9)-5,6);
 
DRAWICON(CROSS(VAR9,VAR9A),HHV(VAR9A,9)+5,7);
 

 
BB1:=CROSS(VAR9A,VAR9);
 
SS1:=CROSS(VAR9,VAR9A);
 
BB:=REF(BB1,1);
 
SS:=REF(SS1,1);
 

 
A01:=BB-SS;
 
A01:=ref(A01,BARSLAST(A01<>0));
 
  仓位:A01,COLORMAGENTA,LINETHICK0;
 

 
DRAWBKBMP(A01=1, '准心_红2');//画背景图
 
DRAWBKBMP(A01=-1, '准心_绿2');//画背景图
 

 
LongCondition := IF(A01=1,1,0);
 
ShortCondition := IF(A01=-1,-1,0);
 
MarketPosition := 0 ;
 
MarketPosition := if(LongCondition,1,MarketPosition);
 
MarketPosition := if(ShortCondition,-1,MarketPosition);
 
IC1:=numtostr(year,0) + '/' +numtostr(month,0)+ '/'+numtostr(day,0) +  ' ' +numtostr(hour,0)+':'+numtostr(minute,0)+':00,'+numtostr (MarketPosition,0)+','+ numtostr(o,0)+'';
 

 
<%
 
on error resume next
 
Dim fso, MyFile
 
IC1= FFL.VarData("IC1")
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set MyFile = fso.CreateTextFile("E:\IC1.txt", True)
 
MyFile.WriteLine(IC1)
 
MyFile.Close
 
err.clear
 
%>