相當準的寶塔公式源碼

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);
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=3 OR CXH=8));
DRAWTEXTREL(10 ,10 ,'指標公式');
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);
STICKLINE(var1 OR var2 OR var3 OR var4 OR var5 OR var6 OR var7 OR
var8 OR var9 OR varA OR varB OR varC,CLOSE,REF(CLOSE,1),6,1),COLORRED;{紅1}
STICKLINE(varD OR varE OR varF OR var10 OR var11 OR var12 OR var13 OR
var14 OR var15 OR var16 OR var17 OR var18,CLOSE,REF(CLOSE,1),6,1),ColorFFFF00;{青色}
var19:=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) AND var1;
STICKLINE(var19,REF(CLOSE,1),REF(CLOSE,2),6,1),COLORYELLOW;{黃色}
var1A:=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) AND varD;
STICKLINE(var1A,REF(CLOSE,1),REF(CLOSE,2),6,1),Color00FF00;
STICKLINE(var19,REF(CLOSE,1),REF(CLOSE,2),8,1),COLOR00FFFF;
STICKLINE(var1A,REF(CLOSE,1),REF(CLOSE,2),8,1),COLORFF00FF;{紫紅色}

MA5:ma(c,5),COLORRED,linethick2;
DD5:=MA5<REF(MA5,1);
PARTLINE(MA5,DD5),ColorFFFF00,linethick2;
x:=(3*c+l+o+h)/6;
多空線:(20*x+19*ref(x,1)+18*ref(x,2)+17*ref(x,3)+16*ref(x,4)+15*ref(x,5)+14*ref(x,6)
+13*ref(x,7)+12*ref(x,8)+11*ref(x,9)+10*ref(x,10)+9*ref(x,11)+8*ref(x,12)
+7*ref(x,13)+6*ref(x,14)+5*ref(x,15)+4*ref(x,16)+3*ref(x,17)+2*ref(x,18)+
ref(x,20))/210,coloryellow,linethick2;
DD:=多空線<REF(多空線,1);
PARTLINE(多空線,DD),colorblue,linethick5;
A:=(MA5>多空線);
PARTLINE(多空線,A),COLORYELLOW,POINTDOT;
A1:=(MA5<多空線);
PARTLINE(多空線,A1),COLORWHITE;

紅色持股:0,linethick0,COLORRED;
晶紅賣出:var1A,linethick0,COLORFF50FF;
青色持幣:0,linethick0,COLORFFFF00;
黃色買入:var19,linethick0,COLOR00ffff;
 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

源碼解析：

VAR1賦值:收盤價>昨收 AND 收盤價>2日前的收盤價
VAR2賦值:昨日VAR1 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR3賦值:昨日VAR2 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VAR4賦值:昨日VAR3 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR5賦值:昨日VAR4 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VAR6賦值:昨日VAR5 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR7賦值:昨日VAR6 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VAR8賦值:昨日VAR7 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR9賦值:昨日VAR8 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VARA賦值:昨日VAR9 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1))
輸出WARNING('HTTP://www.kzuj.com.cn',CURRENTTIME>180000 AND (CXH=3 OR CXH=8))
DRAWTEXTREL(10 ,10 ,'指標公式')
VARB賦值:昨日VARA AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VARC賦值:昨日VARB AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VARD賦值:收盤價<昨收 AND 收盤價<2日前的收盤價
VARE賦值:昨日VARD AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VARF賦值:昨日VARE AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR10賦值:昨日VARF AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VAR11賦值:昨日VAR10 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR12賦值:昨日VAR11 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VAR13賦值:昨日VAR12 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR14賦值:昨日VAR13 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VAR15賦值:昨日VAR14 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR16賦值:昨日VAR15 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
VAR17賦值:昨日VAR16 AND 收盤價<=昨收 AND 收盤價>=2日前的收盤價
VAR18賦值:昨日VAR17 AND 收盤價>=昨收 AND 收盤價<=2日前的收盤價
當滿足條件VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC時,在收盤價和昨收位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫紅色
當滿足條件VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18時,在收盤價和昨收位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLORFFFF00
VAR19賦值:昨日VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18 AND VAR1
當滿足條件VAR19時,在昨收和2日前的收盤價位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,畫黃色
VAR1A賦值:昨日VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC AND VARD
當滿足條件VAR1A時,在昨收和2日前的收盤價位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLOR00FF00
當滿足條件VAR19時,在昨收和2日前的收盤價位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,COLOR00FFFF
當滿足條件VAR1A時,在昨收和2日前的收盤價位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,COLORFF00FF
輸出MA5:收盤價的5日簡單移動平均,畫紅色,線寬為2
DD5賦值:MA5<昨日MA5
PARTLINE(MA5,DD5),COLORFFFF00,線寬為2
X賦值:(3*收盤價+最低價+開盤價+最高價)/6
輸出多空線:(20*X+19*昨日X+18*2日前的X+17*3日前的X+16*4日前的X+15*5日前的X+14*6日前的X+13*7日前的X+12*8日前的X+11*9日前的X+10*10日前的X+9*11日前的X+8*12日前的X+7*13日前的X+6*14日前的X+5*15日前的X+4*16日前的X+3*17日前的X+2*18日前的X+20日前的X)/210,畫黃色,線寬為2
DD賦值:多空線<昨日多空線
PARTLINE(多空線,DD),畫藍色,線寬為5
A賦值:(MA5>多空線)
PARTLINE(多空線,A),畫黃色,POINTDOT
A1賦值:(MA5<多空線)
PARTLINE(多空線,A1),畫白色
輸出紅色持股:0,線寬為0,畫紅色
輸出晶紅賣出:VAR1A,線寬為0,COLORFF50FF
輸出青色持幣:0,線寬為0,COLORFFFF00
輸出黃色買入:VAR19,線寬為0,COLOR00FFFF