轉換為Powerlanguage 程式語言

abc889900

以下是交易程式原始碼，可以幫忙轉換為Powerlanguage嗎？謝謝

1. VAR1:=((CLOSE - LLV(LOW,15))/(HHV(HIGH,15) - LLV(LOW,15)))*(100);
   
2. VAR2:=REVERSE(VAR1);
   
3. VAR3:=SMA(VAR1,5,1);
   
4. K:=SMA(VAR3,3,1);
   
5. D:=SMA(K,3,1);
   
6. DRAWTEXT(CROSS(K,D) AND MA(CLOSE,5)<CLOSE,D,'多'),COLORRED;
   
7. DRAWTEXT(CROSS(D,K) AND MA(CLOSE,5),D,'空'),COLORGREEN;
   
8. STICKLINE((K >= D),K,D,6,0),COLOR0000A8;
   
9. STICKLINE((K >= D),K,D,5,0),COLOR0000C0;
   
10. STICKLINE((K >= D),K,D,4,0),COLOR0000E0;
    
11. STICKLINE((K >= D),K,D,3,0),COLOR0000F0;
    
12. STICKLINE((K >= D),K,D,2,0),COLOR0000D0;
    
13. STICKLINE((K >= D),K,D,1,0),COLOR8080FF;
    
14. STICKLINE((K <= D),K,D,6,0),COLOR008800;
    
15. STICKLINE((K <= D),K,D,5,0),COLOR009900;
    
16. STICKLINE((K <= D),K,D,4,0),COLOR00AA00;
    
17. STICKLINE((K <= D),K,D,3,0),COLOR00BB00;
    
18. STICKLINE((K <= D),K,D,2,0),COLOR00CC00;
    
19. STICKLINE((K <= D),K,D,1,0),COLOR00DD00;
    
20. 極端底部線:15;
    
21. 極端頂部線:85
    

複製代碼

cowbearcar

1. input: len(15), avg1(5), avg2(3);
   
2. vars: upColour(red), downColour(green);
   
3. 
   
4. value1 = (Close - Lowest(Low, len))/(Highest(High, len) - Lowest(Low, len))*100;
   
5. value2 = AverageFC(value1, avg1);
   
6. value3 = AverageFC(value2, avg2);
   
7. value4 = AverageFC(value3, avg2);
   
8. value5 = AverageFC(value4, avg2);
   
9. 
   
10. Plot1(value4, "K");
    
11. Plot2(value5, "D");
    
12. Plot3(85, "85");
    
13. Plot4(15, "15");
    
14. 
    
15. if value4 > value5 {and AverageFC(Close, avg1) < Close} then
    
16.         SetPlotColor[1](1, upColour);
    
17. if value4 <= value5 {and AverageFC(Close, avg1) > Close} then
    
18.         SetPlotColor[1](1, downColour);
    
19.         
    

複製代碼

大致上做了，但上顏色就有點怪，已簡化。