阳光普照源码

B1:=(CLOSE / INDEXC);
B2:=MA(B1,5);
B3:=MA(B1,10);
B4:=MA(CLOSE,20);
B5:=(CLOSE > MA(CLOSE,5));
B6:=(MA(CLOSE,5) > MA(CLOSE,10));
B7:=(CLOSE > MA(CLOSE,10));
B8:=(MA(CLOSE,5) > MA(CLOSE,20));
B9:=(CLOSE > MA(CLOSE,20));
B10:=REF(B4,1);
B11:=(B4 > B10);
B12:=(((((IF(B5,10,(0 - 10)) + IF(B6,10,(0 - 10))) + IF(B7,10,(0 - 10))) + IF(B8,10,(0 - 10))) + IF(B9,10,(0 - 10))) + IF(B11,10,(0 - 10)));
DRAWBKBMP(((B12 > 0) OR (B2 > B3)),'sun'),;
DRAWBKBMP((B12 <= 0),'moon'),;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFF;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFF;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFFFF00;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFFFF00;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFF;
STICKLINE(((CLOSE > OPEN) OR ((CLOSE = OPEN) AND (CLOSE > REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFF;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),LOW,HIGH,0.1,0),,colorFFFF00;
STICKLINE(((CLOSE < OPEN) OR ((CLOSE = OPEN) AND (CLOSE <= REF(CLOSE,1)))),OPEN,CLOSE,7,0),,colorFFFF00;
A4:=MA(CLOSE,20);
A5:=(CLOSE > MA(CLOSE,5));
A6:=(MA(CLOSE,5) > MA(CLOSE,10));
A7:=(CLOSE > MA(CLOSE,10));
A8:=(MA(CLOSE,5) > MA(CLOSE,20));
A9:=(CLOSE > MA(CLOSE,20));
A10:=REF(A4,1);
A11:=(A4 > A10);
AVX:=(((((IF(A5,10,(0 - 10)) + IF(A6,10,(0 - 10))) + IF(A7,10,(0 - 10))) + IF(A8,10,(0 - 10))) + IF(A9,10,(0 - 10))) + IF(A11,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
阻力位:=IF((CLOSE > 200),(CLOSE * 1.01),(CLOSE * 1.07));
阻力位1:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位);
止损位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93));
止损位1:=IF((CLOSE < 10),(CLOSE * 0.95),止损位);
情况1:=((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1));
情况2:=((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1));
情况3:=((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1));
情况4:=((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1));
情况5:=((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1));
情况6:=((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1));
情况7:=((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1));
情况8:=((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1));
情况9:=((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1));
情况10:=((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1));
情况11:=((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1));
情况12:=((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1));
情况13:=((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1));
情况14:=((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1));
情况15:=((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1));
情况16:=((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1));
大盘1:=(CROSS(AVX,1) AND (V1 >= V2));
大盘2:=(CROSS(AVX,1) AND (V1 < V2));
大盘3:=(CROSS(1,AVX) AND (V1 >= V2));
大盘4:=(CROSS(1,AVX) AND (V1 < V2));
大盘5:=(((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2));
大盘6:=(((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2));
大盘7:=(((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2));
大盘8:=(((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2));
EXPLAIN(CLOSE,STKNAME),,colorFFFF;
EXPLAIN(CLOSE,STKLABEL),,colorFFFF00;
EXPLAIN((情况1 AND (CLOSE < 200)),'★★★★★\n'),,colorFF;
EXPLAIN((情况1 AND (CLOSE < 200)),'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。\n'),,colorFF;
EXPLAINEX((情况1 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF;
EXPLAINEX((情况1 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF;
EXPLAIN((情况2 AND (CLOSE < 200)),'★★★★\n'),,colorFF;
EXPLAIN((情况2 AND (CLOSE < 200)),'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。\n'),,colorFF;
EXPLAINEX((情况2 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF;
EXPLAINEX((情况2 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF;
EXPLAIN((情况3 AND (CLOSE < 200)),'★★★\n'),,colorFF;
EXPLAIN((情况3 AND (CLOSE < 200)),'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。\n'),,colorFF;
EXPLAINEX((情况3 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF;
EXPLAINEX((情况3 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF;
EXPLAIN((情况4 AND (CLOSE < 200)),'★★\n'),,colorFF;
EXPLAIN((情况4 AND (CLOSE < 200)),'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。\n'),,colorFF;
EXPLAINEX((情况4 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF;
EXPLAINEX((情况4 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF;
EXPLAIN((情况5 AND (CLOSE < 200)),'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。\n'),,colorFF00;
EXPLAINEX((情况5 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF00;
EXPLAINEX((情况5 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF00;
EXPLAIN((情况6 AND (CLOSE < 200)),'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。\n'),,colorFF00;
EXPLAINEX((情况6 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF00;
EXPLAINEX((情况6 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF00;
EXPLAIN((情况7 AND (CLOSE < 200)),'该股放量下跌，走势明显偏弱，离场观望。\n'),,colorFF00;
EXPLAINEX((情况7 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF00;
EXPLAINEX((情况7 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF00;
EXPLAIN((情况8 AND (CLOSE < 200)),'该股缩量下跌，走势偏弱，离场观望。\n'),,colorFF00;
EXPLAINEX((情况8 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFF00;
EXPLAINEX((情况8 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFF00;
EXPLAIN((情况9 AND (CLOSE < 200)),'该股形态良好，强势明显，量能充足，可以继续持有。\n'),,colorFFFF;
EXPLAINEX((情况9 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFFFF;
EXPLAINEX((情况9 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFFFF;
EXPLAIN((情况10 AND (CLOSE < 200)),'该股上行趋势不变，强势依然，但量能开始转弱，注意风险。\n'),,colorFFFF;
EXPLAINEX((情况10 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFFFF;
EXPLAINEX((情况10 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFFFF;
EXPLAIN((情况11 AND (CLOSE < 200)),'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。\n'),,colorFFFF;
EXPLAINEX((情况11 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFFFF;
EXPLAINEX((情况11 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFFFF;
EXPLAIN((情况12 AND (CLOSE < 200)),'该股走势趋弱，量能不足，减持大部分筹码。\n'),,colorFFFF;
EXPLAINEX((情况12 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),,colorFFFF;
EXPLAINEX((情况12 AND (CLOSE < 200)),'止损位:',止损位1,2,1),,colorFFFF;
EXPLAIN((情况13 AND (CLOSE < 200)),'该股形态不佳，注意成交量的变化，但目前不适合参与。\n'),;
EXPLAINEX((情况13 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),;
EXPLAINEX((情况13 AND (CLOSE < 200)),'止损位:',止损位1,2,1),;
EXPLAIN((情况14 AND (CLOSE < 200)),'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。\n'),;
EXPLAINEX((情况14 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),;
EXPLAINEX((情况14 AND (CLOSE < 200)),'止损位:',止损位1,2,1),;
EXPLAIN((情况15 AND (CLOSE < 200)),'该股有走强迹象，但量能不足，趋势不明，不适合操作。\n'),;
EXPLAINEX((情况15 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),;
EXPLAINEX((情况15 AND (CLOSE < 200)),'止损位:',止损位1,2,1),;
EXPLAIN((情况16 AND (CLOSE < 200)),'该股走势太弱，没有参与价值。\n'),;
EXPLAINEX((情况16 AND (CLOSE < 200)),'阻力位:',阻力位1,2,1),;
EXPLAINEX((情况16 AND (CLOSE < 200)),'止损位:',止损位1,2,1),;
EXPLAIN((情况1 AND (CLOSE > 200)),'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右，  如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。\n'),,colorFF;
EXPLAINEX((大盘1 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),,colorFF;
EXPLAINEX((大盘1 AND (CLOSE > 200)),'止损位:',止损位1,2,1),,colorFF;
EXPLAIN((大盘2 AND (CLOSE > 200)),'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌，  可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。\n'),,colorFF;
EXPLAINEX((大盘2 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),,colorFF;
EXPLAINEX((大盘2 AND (CLOSE > 200)),'止损位:',止损位1,2,1),,colorFF;
EXPLAIN((大盘3 AND (CLOSE > 200)),'大盘形态走坏，重仓者可以减去大部分仓位。\n'),,colorFF00;
EXPLAINEX((情况3 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),,colorFF00;
EXPLAINEX((情况3 AND (CLOSE > 200)),'止损位:',止损位1,2,1),,colorFF00;
EXPLAIN((大盘4 AND (CLOSE > 200)),'大盘缩量调整，注意风险，短线清仓观望。\n'),,colorFF00;
EXPLAINEX((大盘4 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),,colorFF00;
EXPLAINEX((大盘4 AND (CLOSE > 200)),'止损位:',止损位1,2,1),,colorFF00;
EXPLAIN((大盘5 AND (CLOSE > 200)),'大盘走势良好，量能理想，可以继续持有强势股。\n'),,colorFFFF;
EXPLAINEX((大盘5 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),,colorFFFF;
EXPLAINEX((大盘5 AND (CLOSE > 200)),'止损位:',止损位1,2,1),,colorFFFF;
EXPLAIN((大盘6 AND (CLOSE > 200)),'大盘形态良好，但量能稍显不足，随时准备减仓。\n'),,colorFFFF;
EXPLAINEX((大盘6 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),,colorFFFF;
EXPLAINEX((大盘6 AND (CLOSE > 200)),'止损位:',止损位1,2,1),,colorFFFF;
EXPLAIN((大盘7 AND (CLOSE > 200)),'大盘趋势不明，注意成交量变化，目前不适宜进场。\n'),;
EXPLAINEX((大盘7 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),;
EXPLAINEX((大盘7 AND (CLOSE > 200)),'止损位:',止损位1,2,1),;
EXPLAIN((大盘8 AND (CLOSE > 200)),'大盘趋势向下，量能萎缩，不适合进场。\n'),;
EXPLAINEX((大盘8 AND (CLOSE > 200)),'阻力位:',阻力位1,2,1),;
EXPLAINEX((大盘8 AND (CLOSE > 200)),'止损位:',止损位1,2,1),;