{短波段}
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
%>
 |
