Qpile Gleitender Durchschnitt

3 Quik. , QPile. Aufrechtzuerhalten. 1 2 AC. 1.,. . . . . . ., .1. , QPile. 15 Moving Average Exponential, 9, Moving Average Exponential, 25, AC,. . 15 . . Auf, . .2 Auf, Aufrechtzuerhalten. EINSCHLIESSEN. .9 bis 3. 27th, 2010 15 00. fGetMA fGetA,,,, 100,,,, -..P S fGetMA. 7th, 2010 17 31.,,,,,, P S 3-. Aufrechtzuerhalten. 30th, 2010 17 45., fGetMA fGetAC, WMR, 1 2 3.,,. 26., 2010 18 28.. AC dataAC1 fGetAC SBERAC, 1, 15 ACC getvalue dataAC1, ACMAIN 0. 6th, 2010 13 05., 2 fGetMA fGetAC, 11 38,,. 1 1 1. QPILE QUIK, Moving Average. PORTFOLIOEX MovingAverage BESCHREIBUNG CLIENTSLIST ALLCLIENTS FIRMSLIST ALLFIRMS PROGRAMM ------------------.FUNC fTextDate Jahr, Monat, Tag IF LEN Monat 2 Monat 0 Monat ENDE WENN WENN LEN Tag 2 Tag 0 Tag END IF Ergebnis Jahr Monat Tag END FUNC. FUNC fTextTime Stunde, min IF LEN Stunde 2 Stunde 0 Stunde END IF IF LEN Min 2 Min 0 Min END IF Ergebnis Stunde Min 00 END FUNC --------------------- -------------------------------------------------- -------- FUNC str2num str total für k von 0 bis len str -1 if substr str, k, 1 if substr str, k, 1, total gesamt sonst total gesamt substr str, k, 1 ende if ende Wenn Ende für Ergebnis insgesamt 0 END FUNC. FUNC Operation Transid, Operation, Preis, Menge, Seccode, Classcode, Orderkey newglobal transparams, newglobal transresult, wenn Operation KILLORDER transparams transparams SETVALUE transparams, CLASSCODE, classcode transparams SETVALUE transparams, SECCODE, seccode transparams SETVALUE Transparams, TRANSID, transid transparams SETVALUE transparams, ACTION, KILLORDER transparams SETVALUE transparams, ORDERKEY, orderkey transresult SENDTRANSACTION 30, transparams sonst transparams transparams setvalue transparams, TRANSID, transid transparams setvalue transparams, ACTION, NEWORDER transparams setvalue transparams, CLASSCODE, classcode transparams setvalue transparams , SECCODE, secode transparams setvalue transparams, ACCOUNT, Account transparams setvalue transparams, OPERATION, operation transparams setvalue transparams, QUANTITY, menge transparams setvalue transparams, CLIENTCODE, ClientCode transparams setvalue transparams, TYPE, l currdatetime GetDateTime transparams setvalue transparams, PREIS, preis transversand SENDTRANSACTION 30, transparams enden if. Account xxxxxxxxx ClientCode xxxxx. ClassCode EQBR SecCode SBER03 Intervall 5 Jahre GETVALUE GETDATETIME, JAHR Monat GETVALUE GETDATETIME, MONAT Tag GETVALUE GETDATETIME, DAY DATE fTextDate Jahr, Monat, Tag Stunde GETVALUE GETDATETIME, HOUR Min GETVALUE GETDATETIME, MIN Min Intervall Boden Min Interval TIME fTextTime Stunde, min MA GETVALUE GETCANDLE ClassCode, SecCode,, Intervall, MOVING DURCHSCHNITT, 20100514,184500, SCHLIESSEN 0 Lastprice GETVALUE GETPARAMEX EQBR, SBER03, LAST, paramvalue ToolQuantity DEPOCURRENTBALANCE 56786, MC0567300, SBER03, Y62-000098B01 0.If ToolQuantity 0 Wenn Lastpreis 0 MA 0 Betrieb 1, B, 0,33, SBER03, EQBR, 1 End if. Massiv CREATEMAP Massiv Lastpreis GETVALUE GETPARAMEX EQBR, SBER03, letzter, Paramvalue Massiv SETVALUE Massiv, SecCode, Massiv SETVALUE Massiv, LastPrice , Lastpreis Massiv SETVALUE Massiv, MA MA. ADDITEM 0, Massiv. ENDPROGRAMM PARAMETER SecCode PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE String 10 END. PARAMETER LastPrice PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE Numerisch 10,2 END. PARAMETER MA PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE NUMERIC 10,2 END. 17 2010, 23 01..PORTFOLIOEX AM2MovingAverage BESCHREIBUNG 2 1 CLIENTSLISTE ALLCLIENTS FIRMSLIST ALLFIRMS PROGRAMM ------------------.FUNC fTextDate Jahr, Monat, Tag IF LEN Monat 2 Monat 0 Monat END WENN WENN LEN Tag 2 Tag 0 Tag END IF Ergebnis Jahr Monat Tag END FUNC. FUNC Operation Transid, Betrieb, Preis, Menge, Seccode, Classcode, Orderkey newglobal transparams, newglobal transresult, wenn Operation KILLORDER transparams transparams SETVALUE transparams, CLASSCODE, classcode Transparams SETVALUE transparams, SECCODE, secode transparams SETVALUE transparams, TRANSID, transid transparams SETVALUE transparams, ACTION, KILLORDER transparams SETVALUE transparams, ORDERKEY, orderkey transresult SENDTRANSACTION 30, transparams sonst transparams transparams setvalue transparams, TRANSID, transid transparams setvalue transparams, ACTION, NEWORDER transparams Setvalue transparams, CLASSCODE, classcode transparams setvalue transparams, SECCODE, seccode transparams setvalue transparams, ACCOUNT, Account transparams setvalue transparams, OPERATION, operation transparams setvalue transparams, QUANTITY, menge transparams setvalue transparams, CLIENTCODE, ClientCode transparams setvalue transparams, TYPE, l currdatetime GetDateTime Transparams setvalue transparams, PREIS, Preisabsatz SENDTRANSACTION 30, transparams currdatetime GetDateTime WRITELN, getvalue currdatetime, DATETIME Ergebnis getvalue transresult, RESULT, Resultex getvalue transresult, RESULTEX, OrderNum getvalue transresult, ORDERNUMBER, Beschreibung getvalue transresult, BESCHREIBUNG. 0 1.DELETEALLITEMS. Account 000-000000000 ClientCode 00000.ClassCode EQBR SecCode SBER03 Intervall 5 Jahre GETVALUE GETDATETIME, JAHR Monat GETVALUE GETDATETIME, MONAT Tag GETVALUE GETDATETIME, DAY DATE fTextDate Jahr, Monat, Tag Stunde GETVALUE GETDATETIME, HOUR Min GETVALUE GETDATETIME, MIN Min Interval Floor Min Interval TIME fTextTime Stunde, Min MA GETVALUE GETCANDLE ClassCode, SecCode,, Intervall, MOVING DURCHSCHNITT, DATUM, ZEIT, SCHLIESSEN 0 Lastpreis GETVALUE GETPARAMEX EQBR, SBER03, LAST, paramvalue ToolQuantity DEPOCURRENTBALANCE 00000, 000000000, SBER03, 000-000000000 0.If ToolQuantity 0 Wenn Lastprice 0 MA 0 WRITELN, Operation 1, B, 0,33, SBER03, EQBR, 1.End if If Lastpreis 0 MA 0 WRITELN, Operation 1, S, 0,33, SBER03, EQBR, 1 Ende if Else If ToolQuantity 0 und Lastprice 0 MA 0 WRITELN, Operation 1, S, 0,33, SBER03, EQBR, 1 End if If ToolQuantity 0 und Lastprice 0 MA 0 WRITELN, Operation 1, B, 0,33, SBER03, EQBR, 1 Ende if. Massiv CREATEMAP Massiv Lastpreis GETVALUE GETPARAMEX EQBR, SBER03, zuletzt, paramvalue Massiv SETVALUE Massiv, SecCode, Massiv SETVALUE Massiv, LastPrice, Lastpreis Massiv SETVALUE Massiv, MA MA. ADDITEM 0, Massiv. ENDPROGRAMM PARAMETER SecCode PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE String 10 END. PARAMETER LastPrice PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE Numerisch 10,2 END. PARAMETER MA PARAMETERTITLE PARAMETERDESCRIPTION PARAMETERTYPE NUMERIC 10,2 END. Auf, 2011. . Aufrechtzuerhalten. 2,. PARABOLIC SAR,. Fraktal,. 1 . 2,. , 50 Auf, . YARPP 17.,. , Qpile. , Quik 1, -, Qpile,. ,, Windows, Notizblock SciTE,, Qpile Qpile Master 1 2,. . , C,, 2,3,,,,,,,. SRU1 14 2011 SRZ1 14, 1700,,, 8500 9100 1. 1. ,,,,,,,, ,,,,,,,,,,,,. ,, Quik - - Quik Ctrl F10,,, 2. 2 Qpile. Quik, 10, - - Strg F11, 1,,, - - Strg F12,,,,,,, BREAKPOINT, ZEIT, 3,. 3,.,,,, - Quik, 4. 4. ,,,,,, ,,,.IF PriceBid HiLevel SERVERTIME VERKAUFEN. LOW,.IF PreisOffer LowLevel SERVERTIME KAUFEN. , ZEIT . ,,,,,,, ,,,,,. ,,,,,,,, F.2.3, .4 .5, .6. ,,, . Quik, Quik, Quik, Quik, Quik. Aufrechtzuerhalten. . , 10, 10,,,. . ,,, Qpile,,,,. , Von hier aus. Auf, TIMER 0,,. FORTS 10 00 23 50, 14 00 14 03, 18 45 19 00 19 10,,,,. , -, 50,,,. ,,,,, . ,,, Log - C Qpile,, SRZ1. ,,,.WRITELN Datei, SERVER. .,,,,,,,,,,,,,,. ,,., F.2 .3, - .4,. , .1 .2 -.3 .4. Qpile ,,, Menge, Slip Qpile. . Auf, ,,,,, 0, Zyklen, 20 1 20.