Qpile Moving Average

3 Quik. , QPile. ,. 1. 2. AC. 1.,. . . . . . ., .1. , QPile. 15 Média Móvel Exponencial, 9, Média Móvel Exponencial, 25, AC,. . 15. . - benzóico. . .2. - benzóico. ,. INCLUIR. .9 a 3. 27th, 2010 15 00. fGetMA fGetA,,,, 100,,,, -..P S fGetMA. 7, 2010 17 31.,,,,,, P S 3-. ,. 30, 2010 17 45., fGetMA fGetAC, WMR, 1 2 3.,,. 26 de Janeiro de 2010 18 28.. Dados ACAC1 fGetAC SBERAC, 1, 15 ACC dados getvalueAC1, ACMAIN 0. 6, 2010 13 05., 2 fGetMA fGetAC, 11 38,,. 1 1 1. QPILE QUIK, Média Móvel. PORTFOLIOEX MovingAverage DESCRIÇÃO CLIENTSLIST ALLCLIENTS FIRMSLIST PROGRAMA ALLFIRMS ------------------.FUNC fTextDate Ano, Mês, Dia IF LEN Mês 2 Mês 0 Mês END IF IF LEN Dia 2 Dia 0 Dia END IF resultado Ano Mês Dia END FUNC. FUNC fTextTime Hora, Min IF LEN Hora 2 Hora 0 Hora END IF IF LEN Min 2 Min 0 Min END IF resultado Hora Min 00 END FUNC --------------------- -------------------------------------------------- -------- FUNC str2num str total para k de 0 a len str -1 se substr str, k, 1 se substr str, k, 1, total total else total total substr str, k, 1 end if end Se fim para o resultado total 0 END FUNC. FUNC operação transid, operação, preço, quantidade, seccode, classe, orderkey newglobal transparams, newglobal transresult, se operação KILLORDER transparams transparams SETVALUE transparates, CLASSCODE, classcode transparams SETVALUE transparates, SECCODE, seccode transparams SETVALUE Transparans, TRANSID, TRANSID, transparents transparents, ACTION, KILLORDER transparams SETVALUE transparams, ORDERKEY, transceptores de chave de encomenda SENDTRANSACTION 30, transparams transparents transparents transparents setvalue transparams, TRANSID, transparents transparents setvalue transparams, CL ASSCODE, classcode transParams setvalue transParams, SECCODE, seccode transParams setvalue transParams, CONTA, Conta transParams transParams setvalue, operação, a operação transParams transParams setvalue, a quantidade, a quantidade transParams transParams setvalue, ClientCode, ClientCode transParams setvalue transParams, TIPO, L currdatetime GetDateTime transParams setvalue transParams , PRICE, preço transresult SENDTRANSACTION 30, transparams final if. Account xxxxxxxxx ClientCode xxxxx. ClassCode EQBR SecCode SBER03 Intervalo 5 anos GETVALUE GETDATETIME, YEAR Mês GETVALUE GETDATETIME, Mês Dia GETVALUE GETDATETIME, DIA DATA fTextDate Ano, Mês, Dia Hora GETVALUE GETDATETIME, HOUR min GetValue getDateTime, mIN min Intervalo Piso min intervalo de tempo fTextTime Hour, min MA GetValue GETCANDLE ClassCode, seccode, Interval, média móvel, 20100514,184500, PERTO 0 Lastprice GetValue GETPARAMEX EQBR, SBER03, LAST, paramvalue ToolQuantity DEPOCURRENTBALANCE 56786, MC0567300, SBER03, Y62-000098B01 0.If ToolQuantity 0 Se Lastprice 0 MA 0 operação 1, B, 0,33, SBER03, EQBR, 1 End if. Massiv CREATEMAP Massiv Lastprice GETVALU GETPARAMEX EQBR, SBER03, last, paramvalue Massiv SETVALUE Massiv, SecCode, Massiv SETVALUE Massiv, LastPrice, Lastprice Massiv SETVALUE Massiv, MA MA. ADDITEM 0, Massiv. ENDPROGRAM PARÂMETRO SecCode PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE Cadeia 10 END. PARAMETER LastPrice PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE Numérico 10,2 END. PARAMETER MA PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE NUMÉRICO 10,2 END. 17 2010, 23 01..PORTFOLIOEX AM2MovingAventura DESCRIÇÃO 2 1 CLIENTSLIST ALLCLIENTS FIRMSLIST PROGRAMA ALLFIRMS ------------------.FUNC fTextDate Ano, Mês, Dia SE LEN Mês 2 Mês 0 Mês END IF IF LEN Dia 2 Dia 0 Dia END IF resultado Ano Mês Dia END FUNC. FUNC operação transid, operation, preço, quantidade, seccode, classe, orderkey newglobal transparams, newglobal transresult, se operação KILLORDER transparams transparams SETVALUE transparams, CLASSCODE, classcode transParams setvalue transParams, sECCODE, seccode transParams setvalue transParams, transID, transID transParams setvalue transParams, ação, KILLORDER transParams setvalue transParams, ORDERKEY, orderkey transresult SENDTRANSACTION 30, transParams else transParams transParams setvalue transParams, transID, transID transParams setvalue transParams, ação, transParams NewOrder Setvalue transparams, CLASSCODE, classcode transparams setvalue transparams, SECCODE, transparências de segmentos setvalue transparams, ACCOU NT, conta transParams transParams setvalue, operação, operação transParams transParams setvalue, quantidade, quantidade transParams transParams setvalue, ClientCode, ClientCode transParams setvalue transParams, tipo, L currdatetime GetDateTime transParams setvalue transParams, PREÇO, preço transresult SENDTRANSACTION 30, transParams currdatetime GetDateTime writeln, GetValue Currdatetime, DATETIME Resultado getvalue transresult, RESULTADO, Resultex getvalue transresult, RESULTEX, OrderNum getvalue transresult, ORDERNUMBER, Descrição getvalue transresult, DESCRIÇÃO. 0 1.DELETEALLITEMS. Account 000-000000000 ClientCode 00000.ClassCode EQBR SecCode SBER03 Intervalo 5 anos GETVALUE GETDATETIME, YEAR Mês GETVALUE GETDATETIME, MONTH Dia GETVALUE GETDATETIME, DIA DATA fTextDate Ano, Mês, Dia Hora GETVALUE GETDATETIME, HOUR Min GETVALUE GETDATETIME, MIN min Intervalo Piso min intervalo de tempo fTextTime Hour, min MA GetValue GETCANDLE ClassCode, seccode, Interval, média móvel, DATA, HORA, PERTO 0 Lastprice GetValue GETPARAMEX EQBR, SBER03, LAST, paramvalue ToolQuantity DEPOCURRENTBALANCE 00000, 000000000, SBER03, 000-000000000 0.If ToolQuantity 0 Se Lastprice 0 MA 0 WRITELN, operação 1, B, 0,33, SBER03, EQBR, 1.End se Se Lastprice 0 MA 0 WRITELN, operação 1, S, 0,33, SBER03, EQBR, 1 End if Else Se ToolQuantity 0 e Lastprice 0 MA 0 WRITELN, operação 1, S, 0,33, SBER03, EQBR, 1 End if If ToolQuantity 0 e Last Preço 0 MA 0 writeln, operação 1, B, 0,33, SBER03, EQBR, 1 End if. Massiv CreateMap Massiv Lastprice GetValue GETPARAMEX EQBR, SBER03, passado, paramvalue Massiv setvalue Massiv, seccode, Massiv setvalue Massiv, LastPrice, Lastprice Massiv SETVALUE Massiv, MA MA. ADDITEM 0, Massiv. ENDPROGRAM PARÂMETRO SecCode PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE Seqüência 10 END. PARAMETER LastPrice PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE Numérico 10,2 END. PARAMETER MA PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE NUMÉRICO 10,2 END. - benzóico. 2011.. . ,. 2,. PARABÓLICO SAR,. Fractal,. 1. . 2,. , 50. - benzóico. . YARPP. 17.,. , Qpile. , Quik 1, -, Qpile,. ,, Windows, Bloco de Notas SciTE,, Qpile Qpile Master 1 2,. . , C,, 2,3,,,,,,,. SRU1 14 2011 SRZ1 14, 1700,,, 8500 9100 1. 1. - benzóico. ,,,,,,, -,,,., Qpile,,,. ,, Quik - - Quik Ctrl F10,,, 2. 2 Qpile. Quik, 10, - - Ctrl F11, 1,,, - - Ctrl F12,,,,,,, BREAKPOINT,, TIME, 3,. 3,.,,,, - Quik, 4. 4. - benzóico. ,,.IF PriceBid HiLevel SERVERTIME VENDA. LOW,.IF PriceOffer LowLevel COMPRA DO SERVIDOR. , TEMPO . - benzóico. - benzóico. ,,,,,,,., F.2 .3, .4 .5, .6. - benzóico. . Quik,,,,, Quik,,. ,. . , 10, 10,,,. . - benzóico. Qpile,,,,. , PARA FOR DE. - benzóico. TIMER 0,,. FORTES 10 00 23 50, 14 00 14 03, 18 45 19 00 19 10,,,,,. , -, 50,,,. - benzóico. . , , , registro - . C Qpile,, SRZ1. ,,,.WRITELN Ficheiro, SERVER. - benzóico. ,,., F.2 .3, - .4,. , .1 .2 -.3 .4. Qpile. ,,, Qty, Slip Qpile. . - benzóico. ,,,,,, 0, Ciclos, 20 1 20.