Cesti per il commercio Iscritto giugno 2010 Status: Utente 1.443 messaggi Sono stato trading per alcuni anni e pensavo di condividere alcuni dei miei intuizione. (Tutto il merito a Trader 101) Io sono un commerciante cesto, nel senso che il commercio nulla fino a 14 paia alla volta. Se 1 paio sposta verso l'alto è inevetable che almeno 10 coppie si stanno muovendo in su. Leggi filo T101 per ulteriori informazioni. Il Basket si è evoluto in un grafico non in linea che significa che è possibile guardare le 14 coppie su un unico grafico in linea. (La somma di) O 8 coppie come preferisco per il commercio con. Sto avendo grande successo con questo metodo su 8 coppie (Live) La maggior parte la gente dice di seguire il GBPJPY ma tutto quello che seguo è il EURUSD con ottimi risultati. È possibile selezionare 2 coppie, 3 accoppiamenti o whatevever solletica la vostra fantasia. Leggere la pagina 2 per vedere come sto attualmente Trading QUESTO SISTEMA. L'INDICATORE offline può essere trovato 2 POSTI GIÙ. Iscritto Giu 2010 Stato: Stati 1.443 classifiche messaggi Aprire 4 GBPJPY. M5, M15, M30 e H1. (Usiamo il GBPJPY in quanto sono una delle coppie più veloci in movimento e aggiorna di conseguenza le classifiche non in linea più rapidamente) Posizionare il T101Indi. su tutti e 4 i grafici. Si otterrà un quotT101 verde, M5-Runningquot nella parte inferiore destra dello schermo. Lasciare le impostazioni come è. Il quotbasketquot è impostato su 8 coppie per impostazione predefinita. Le coppie sono rappresentate: GBPUSD, EURUSD, AUDUSD, NZDUSD, GBPJPY, EURJPY, AUDJPY amp NZDJPY. gt Selezionare Apri file non in linea e aprire il T101 M5, M15, M30 e H1. N. B. Se si spegne il PC e si riavvia in un secondo momento, allora si avrà alcune candele mancanti, dont panico basta ricaricare il T101Indi. e poi si aggiorna il grafico non in linea. Caricare il StochCandlesDon Indi su tutti e quattro i grafici non in linea amplificare il SidusV3 Indi sul grafico H1. Anche lasciare le impostazioni su questi Indis come è. (È possibile inserire eventuali indicatori sui grafici non in linea) Se le linee di tendenza si incrociano sulla H1, controllare che la M5 è in accordo e che il EURUSD H1 è anche in movimento nella stessa direzione. Ho attaccato gli indicatori, nonché il TradeHedgeBuy-8pair e il TradeHedgeSell8Pair che sono gli script usati per aprire le 8 pair trading. Io uso il EmergencyClose Tutti script per chiudere miei mestieri prega di praticare su Demo first. Basket Trading iscrizione Mar 2012 Status: Utente Messaggi 1.213 hi GVC, grazie per condividere il vostro duro lavoro e lo sviluppo della tecnica di trader101. sto anche imparando che formano forme padrone trader101 e ora da voi ragazzi troppo, iscriviti al form. Ho trovato questo indicatori sono buoni, ma io non sono un programmatore in modo che quando si è liberi si prega di aggiungere alcune funzioni in esso. ------ Richiesta di MQL4 programmatori. si prega si prega di aggiungere un agente BasketIndicator. mq4 .. pop-up di avviso con il suono .. quando rosso linea trasversale linea blu, o la linea blu attraversare la linea rossa. avviso email BuySellBasketMomentum. mq4 BuySellBasketTotalv2.mq4 .. pop-up di avviso con il suono .. quando tutte le linee rosse attraversano linee blu o tutte le linee di Blue Cross linee rosse. più redditizio commercio è accaduto durante questa croce (ma seguire il settimanale, o tendenza al giorno) un altro richiesta è necessario eseguire l'aggiornamento a MQL5. prima o poi tutti abbiamo bisogno di esso .. grazie a tutti quei gentili persone che aiutano ogni altri e insieme lo sviluppano. ---- Iscritto Settembre 2010 Status: Utente 82 Messaggi Caro Maestro Gvc: provo modificare cambiare T101 Ortest 8Pairs a 28 coppie. Lo faccio lattina mi permette di sapere che cosa coppia di valute è necessità di mercato (questo è il mio parere, non ancora provare, perché non può modificare 8 coppia indicatore a 28 coppia. 14 coppie Acquistare 14 coppia di vendita), che significa che se quotStrong Acquista quot ed il JPY coppie di tutte le concentrato sulla parte superiore moneta JPY è debole. Ho modificato due giorni arleady e la mia testa sarà esploderà ancora non posso cambiare a 28 coppia. la speranza Maestro Gvc e ogni amico può aiutare o dirmi come fare, per favore. sory mia rotta Engilish. Io attribuisco arleady modifico 28 indicatore di coppia ------------------------------------------- -------------------------- Copyright 2008, Orest ForexFactory ------------------- -------------------------------------------------- protette da copyright quotCopyright 2008 Orest ForexFactoryquot proprietà collegamento immobili quotquot indicatorchartwindow definire pair. count 28 extern Buycurrencypairs stringa quot ----- Elenco dei Compro coppie di valute ----- quot stringa extern Buypair1 quotAUDJPYquot stringa extern Buypair2 quotNZDJPYquot stringa extern Buypair3 quotCADJPYquot extern stringa Buypair4 quotCHFJPYquot stringa extern Buypair5 quotUSDJPYquot stringa extern Buypair6 quotGBPJPYquot stringa extern Buypair7 quotEURJPYquot stringa extern Buypair8 quotAUDUSDquot stringa extern Buypair9 quotNZDUSDquot stringa extern Buypair10 quotGBPUSDquot stringa extern Buypair11 quotEURUSDquot stringa extern Buypair12 quotGBPCADquot stringa extern Buypair13 quotGBPAUDquot stringa extern Buypair14 quotGBPNZDquot Sellcurrencypairs stringa extern quot --- - Elenco delle coppie di valute Vendere ----- quot stringa extern Sellpair1 quotAUDCHFquot stringa extern Sellpair2 quotNZDCHFquot stringa extern Sellpair3 quotCADCHFquot stringa extern Sellpair4 quotGBPCHFquot stringa extern Sellpair5 quotEURCHFquot stringa extern Sellpair6 quotEURAUDquot stringa extern Sellpair7 quotEURNZDquot stringa extern Sellpair8 quotEURCADquot stringa extern Sellpair9 quotEURGBPquot extern stringa Sellpair10 quotUSDCHFquot stringa extern Sellpair11 quotUSDCADquot stringa extern Sellpair12 quotAUDCADquot stringa extern Sellpair13 quotAUDNZDquot stringa extern Sellpair14 quotNZDCADquot doppio AUDJPY, NZDJPY, CADJPY, CHFJPY, USDJPY, GBPJPY, EURJPY, AUDUSD, NZDUSD, GBPUSD, EURUSD, GBPCAD, GBPAUD, GBPNZD doppio AUDCHF, NZDCHF, CADCHF, GBPCHF, EURCHF, EURAUD, EURNZD, EURCAD, EURGBP, USDCHF, USDCAD, AUDCAD, AUDNZD, NZDCAD int blu, rosso a due AUDJPYnow, NZDJPYnow, CADJPYnow, CHFJPYnow, USDJPYnow, GBPJPYnow, EURJPYnow, AUDUSDnow, NZDUSDnow, GBPUSDnow, EURUSDnow, GBPCADnow, GBPAUDnow, GBPNZDnow doppia AUDCHFnow, NZDCHFnow, CADCHFnow, GBPCHFnow, EURCHFnow, EURAUDnow, EURNZDnow, EURCADnow, EURGBPnow, USDCHFnow, USDCADnow, AUDCADnow, AUDNZDnow, NZDCADnow doppie AUDJPYpips, NZDJPYpips, CADJPYpips, CHFJPYpips, USDJPYpips, GBPJPYpips, EURJPYpips, AUDUSDpips, NZDUSDpips, GBPUSDpips, EURUSDpips, GBPCADpips, GBPAUDpips, GBPNZDpips doppie AUDCHFpips, NZDCHFpips, CADCHFpips, GBPCHFpips, EURCHFpips, EURAUDpips, EURNZDpips, EURCADpips, EURGBPpips, USDCHFpips, USDCADpips, AUDCADpips, AUDNZDpips, NZDCADpips stringa nome breve int stringa PairsNames1pair. count stringa wnd PairsNames2pair. count stringa PairsNames3pair. count string string string string string stringa PairsNames4pair. count PairsNames5pair. count PairsNames6pair. count PairsNames7pair. count PairsNames8pair. count PairsNames9pair. count PairsNames10pair. count PairsNames11pair. count PairsNames12pair. count PairsNames13pair. count PairsNames14pair. contare stringa PairsNames15pair. count string string string string string stringa PairsNames16pair. count PairsNames17pair. count PairsNames18pair. count PairsNames19pair. count PairsNames20pair. count PairsNames21pair. count PairsNames22pair. count PairsNames23pair. count PairsNames24pair. count PairsNames25pair. count stringa PairsNames26pair. count stringa PairsNames27pair. count PairsNames28pair. count int init () shortnamequotT101v.1.12OrestForexFactory quot IndicatorShortName (nome breve) ritorno (0) int deinit () deleteobjects (1) deleteobjects (2) deleteobjects (3) deleteobjects (4) deleteobjects (5) deleteobjects ( 6) deleteobjects (7) deleteobjects (8) deleteobjects (9) deleteobjects (10) deleteobjects (11) deleteobjects (12) deleteobjects (13) deleteobjects (14) deleteobjects (15) deleteobjects (16) deleteobjects (17) deleteobjects (18) deleteobjects (19) deleteobjects (20) deleteobjects (21) deleteobjects (22) deleteobjects (23) deleteobjects (24) deleteobjects (25) deleteobjects (26) deleteobjects (27) deleteobjects (28) di ritorno (0) int start () int countedbars IndicatorCounted () if (countedbars lt 0) ritorno (-1) ---- ultimo conteggiato bar sarà raccontata se (countedbars GT 0) runstatisticslongs countedbars-- (1) runstatisticsshorts (1) drawobjects (1, PairsNames1) runstatisticslongs (2 ) runstatisticsshorts (2) drawobjects (2, PairsNames2) runstatisticslongs (3) runstatisticsshorts (3) drawobjects (3, PairsNames3) runstatisticslongs (4) runstatisticsshorts (4) drawobjects (4, PairsNames4) ritorno (0) runstatisticslongs void (int weekback) bool iOpen falso int TF0 int barsback 0 AUDJPY 0 NZDJPY0 CADJPY0 CHFJPY0 USDJPY0 GBPJPY0 EURJPY0 AUDUSD0 NZDUSD0 GBPUSD0 EURUSD0 GBPCAD0 GBPAUD0 GBPNZD0 AUDJPYnow 0 NZDJPYnow 0 CADJPYnow0 CHFJPYnow0 USDJPYnow0 GBPJPYnow0 EURJPYnow0 AUDUSDnow0 NZDUSDnow0 GBPUSDnow0 EURUSDnow0 GBPCADnow0 GBPAUDnow0 GBPNZDnow0 AUDJPYpips 0 NZDJPYpips0 CADJPYpips 0 CHFJPYpips0 USDJPYpips0 GBPJPYpips0 EURJPYpips0 AUDUSDpips0 NZDUSDpips0 GBPUSDpips0 EURUSDpips0 GBPCADpips0 GBPAUDpips0 GBPNZDpips0 se (weekback1) questa settimana tf PERIODW1 barsback 0 iOpen vero else if (weekback2) questo giorno tf PERIODD1 barsback 0 iOpen vero else if (weekback3) 4 ore fa tf PERIODM1 barsback 240 iOpen vero else if (weekback4) ora fa tf PERIODM1 barsback 60 iOpen vero AUDJPY iOpen (Buypair1, tf, barsback) AUDJPYnow MarketInfo (Buypair1, MODEASK) AUDJPYpips (AUDJPYnow-AUDJPY) dPoint (Buypair1) NZDJPY iOpen (Buypair2, tf, barsback) NZDJPYnow MarketInfo (Buypair2, MODEASK) NZDJPYpips ( NZDJPYnow-NZDJPY) dPoint (Buypair2) CADJPY iOpen (Buypair3, tf, barsback) CADJPYnow MarketInfo (Buypair3, MODEASK) CADJPYpips (CADJPYnow-CADJPY) dPoint (Buypair3) CHFJPY iOpen (Buypair4, tf, barsback) CHFJPYnow MarketInfo (Buypair4, MODEASK) CHFJPYpips (CHFJPYnow-CHFJPY) dPoint (Buypair4) USDJPY iOpen (Buypair5, TF, barsback) USDJPYnow MarketInfo (Buypair5, MODEASK) USDJPYpips (USDJPYnow-USDJPY) dPoint (Buypair5) GBPJPY iOpen (Buypair6, tf, barsback) GBPJPYnow MarketInfo (Buypair6, MODEASK) GBPJPYpips (GBPJPYnow-GBPJPY) dPoint (Buypair6) EURJPY iOpen (Buypair7, tf, barsback) EURJPYnow MarketInfo (Buypair7, MODEASK) EURJPYpips (EURJPYnow-EURJPY) dPoint (Buypair7) AUDUSD iOpen (Buypair8, tf, barsback) AUDUSDnow MarketInfo ( Buypair8, MODEASK) AUDUSDpips (AUDUSDnow-AUDUSD) dPoint (Buypair8) NZDUSD iOpen (Buypair9, tf, barsback) NZDUSDnow MarketInfo (Buypair9, MODEASK) NZDUSDpips (NZDUSDnow-NZDUSD) dPoint (Buypair9) GBPUSD iOpen (Buypair10, tf, barsback) GBPUSDnow MarketInfo (Buypair10, MODEASK) GBPUSDpips (GBPUSDnow-GBPUSD) dPoint (Buypair10) EURUSD iOpen (Buypair11, tf, barsback) EURUSDnow MarketInfo (Buypair11, MODEASK) EURUSDpips (EURUSDnow-EURUSD) dPoint (Buypair11) GBPCAD iOpen (Buypair12, tf, barsback ) GBPCADnow MarketInfo (Buypair12, MODEASK) GBPCADpips (GBPCADnow-GBPCAD) dPoint (Buypair12) GBPAUD iOpen (Buypair13, tf, barsback) GBPAUDnow MarketInfo (Buypair13, MODEASK) GBPAUDpips (GBPAUDnow-GBPAUD) dPoint (Buypair13) GBPNZD iOpen (Buypair14, tf , barsback) GBPNZDnow MarketInfo (Buypair14, MODEASK) GBPNZDpips (GBPNZDnow-GBPNZD) dPoint (Buypair14) tornare runstatisticsshorts void (int weekback) bool iOpen falsa int TF0 int barsback 0 AUDCHF0 NZDCHF0 CADCHF0 GBPCHF0 EURCHF0 EURAUD0 EURNZD0 EURCAD0 EURGBP0 USDCHF0 USDCAD0 AUDCAD0 AUDNZD0 NZDCAD0 AUDCHFnow0NZDCHFnow0CADCHFnow0GBPCHFnow0EURCHFnow0EURAUDnow0EURNZDnow0EURCADnow0EURGBPnow0USDCHFnow0USDCADnow0AUDCADnow0AUDNZDnow0NZDCADnow0 AUDCHFpips0 NZDCHFpips0 CADCHFpips0 GBPCHFpips0 EURCHFpips0 EURAUDpips0 EURNZDpips0 EURCADpips0 EURGBPpips0 USDCHFpips0 USDCADpips0 AUDCADpips0 AUDNZDpips0 NZDCADpips0 se (weekback1) questa settimana tf PERIODW1 barsback 0 iOpen vero else if (weekback2) questo giorno tf PERIODD1 barsback 0 iOpen vero else if (weekback3) 4 ore fa tf PERIODM1 barsback 240 iOpen vero else if (weekback4) ora fa tf PERIODM1 barsback 60 iOpen vero AUDCHF iOpen (Sellpair1, tf, barsback) AUDCHFnow MarketInfo (Sellpair1, MODEBID) AUDCHFpips (AUDCHF-AUDCHFnow) dPoint (Sellpair1) NZDCHF iOpen (Sellpair2, tf, barsback ) NZDCHFnow MarketInfo (Sellpair2, MODEBID) NZDCHFpips (NZDCHF-NZDCHFnow) dPoint (Sellpair2) CADCHF iOpen (Sellpair3, tf, barsback) CADCHFnow MarketInfo (Sellpair3, MODEBID) CADCHFpips (CADCHF-CADCHFnow) dPoint (Sellpair3) GBPCHF iOpen (Sellpair4, tf , barsback) GBPCHFnow MarketInfo (Sellpair4, MODEBID) GBPCHFpips (GBPCHF-GBPCHFnow) dPoint (Sellpair4) EURCHF iOpen (Sellpair5, tf, barsback) EURCHFnow MarketInfo (Sellpair5, MODEBID) EURCHFpips (EURCHF-EURCHFnow) dPoint (Sellpair5) EURAUD iOpen (Sellpair6 , tf, barsback) EURAUDnow MarketInfo (Sellpair6, MODEBID) EURAUDpips (EURAUD-EURAUDnow) dPoint (Sellpair6) EURNZD iOpen (Sellpair7, tf, barsback) EURNZDnow MarketInfo (Sellpair7, MODEBID) EURNZDpips (EURNZD-EURNZDnow) dPoint (Sellpair7) EURCAD iOpen (Sellpair8, tf, barsback) EURCADnow MarketInfo (Sellpair8, MODEBID) EURCADpips (EURCAD-EURCADnow) dPoint (Sellpair8) EURGBP iOpen (Sellpair9, tf, barsback) EURGBPnow MarketInfo (Sellpair9, MODEBID) EURGBPpips (EURGBP-EURGBPnow) dPoint (Sellpair9) USDCHF iOpen (Sellpair10, tf, barsback) USDCHFnow MarketInfo (Sellpair10, MODEBID) USDCHFpips (USDCHF-USDCHFnow) dPoint (Sellpair10) USDCAD iOpen (Sellpair11, tf, barsback) USDCADnow MarketInfo (Sellpair11, MODEBID) USDCADpips (USDCAD-USDCADnow) dPoint ( Sellpair11) AUDCAD iOpen (Sellpair12, tf, barsback) AUDCADnow MarketInfo (Sellpair12, MODEBID) AUDCADpips (AUDCAD-AUDCADnow) dPoint (Sellpair12) AUDNZD iOpen (Sellpair13, tf, barsback) AUDNZDnow MarketInfo (Sellpair13, MODEBID) AUDNZDpips (AUDNZD-AUDNZDnow) dPoint (Sellpair13) NZDCAD iOpen (Sellpair14, tf, barsback) NZDCADnow MarketInfo (Sellpair14, MODEBID) NZDCADpips (NZDCAD-NZDCADnow) dPoint (Sellpair14) tornare drawobjects void (int weekback, stringamp PairsNames) int colore xcoord stringa locdate PairsColorpair. count doppia PLArraypair. count bool ShowDirectionspair. count se (StringLen (PairsNames0) GT0) for (int m0mltpair. countm) PairsSearchm PairsNamesm PLArray0AUDJPYpips PLArray1NZDJPYpips PLArray2CADJPYpips PLArray3CHFJPYpips PLArray4USDJPYpips PLArray5GBPJPYpips PLArray6EURJPYpips PLArray7AUDUSDpips PLArray8NZDUSDpips PLArray9GBPUSDpips PLArray10EURUSDpips PLArray11GBPCADpips PLArray12GBPAUDpips PLArray13GBPNZDpips PLArray14AUDCHFpips PLArray15NZDCHFpips PLArray16CADCHFpips PLArray17GBPCHFpips PLArray18EURCHFpips PLArray19EURAUDpips PLArray20EURNZDpips PLArray21EURCADpips PLArray22EURGBPpips PLArray23USDCHFpips PLArray24USDCADpips PLArray25AUDCADpips PLArray26AUDNZDpips PLArray27NZDCADpips PairsNames0Buypair1 PairsNames1Buypair2 PairsNames2Buypair3 PairsNames3Buypair4 PairsNames4Buypair5 PairsNames5Buypair6 PairsNames6Buypair7 PairsNames7Buypair8 PairsNames8Buypair9 PairsNames9Buypair10 PairsNames10Buypair11 PairsNames11Buypair12 PairsNames12Buypair13 PairsNames13Buypair14 PairsNames14Sellpair1 PairsNames15Sellpair2 PairsNames16Sellpair3 PairsNames17Sellpair4 PairsNames18Sellpair5 PairsNames19Sellpair6 PairsNames20Sellpair7 PairsNames21Sellpair8 PairsNames22Sellpair9 PairsNames23Sellpair10 PairsNames24Sellpair11 PairsNames25Sellpair12 PairsNames26Sellpair13 PairsNames27Sellpair14 PairsColor0 Lime PairsColor1 Lime PairsColor2 Lime PairsColor3 Lime PairsColor4 Lime PairsColor5 Lime PairsColor6 Lime PairsColor7 Lime PairsColor8 Lime PairsColor9 Lime PairsColor10 lime PairsColor11 lime PairsColor12 lime PairsColor13 lime PairsColor14 Red PairsColor15 Red PairsColor16 Red PairsColor17 Red PairsColor18 Red PairsColor19 Red PairsColor20 Red PairsColor21 Red PairsColor22 Red PairsColor23 Red PairsColor24 Red PairsColor25 Red PairsColor26 Red PairsColor27 Red ArraySort (PLArray, WHOLEARRAY, 0, MODEDESCEND) - non funziona qui personalizzato l'ordinamento funzione int plarrsize arraysize (PLArray) doppio tempvar stringa tempstr colore tempcolor bool tempdirection for (int I0i lt plarrsizei) Tenere il primo elemento per (int ji1jltplarrsizej) Tenere l'elemento successivo dal primo elemento if (PLArray lt PLArrayj) a confronto prima e il prossimo elemento tempvar PLArrayj PLArrayj PLArray PLArray tempvar tempstr PairsNamesj PairsNamesj PairsNames PairsNames tempstr tempcolor PairsColorj PairsColorj PairsColor PairsColor tempcolor per (i0iltpair. counti) se (PairsColor Lime) PairsDisplay quotquotPairsNames Comprare blu blu PLArray se (PairsColor rosso) PairsDisplay quotquotPairsNames vendi rosso rosso PLArray Stampa (PairsDisplay , quot. quot, i, quot..quot, PairsColor) Stampa (rosso, quot. quot, blu) se (ObjectFind (weekbackquotsigtitquot) -1) ObjectCreate (weekbackquotsigtitquot, OBJLABEL, compagno, 0, 0) ObjectSet (weekbackquotsigtitquot, OBJPROPCOLOR, Magenta) ObjectSet (weekbackquotsigtitquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotsigtitquot, OBJPROPYDISTANCE, 15) ObjectSetText (weekbackquotsigtitquot, locdate, 10, quotCourier Newquot, Bianco) int ycoord 40 se (StringLen (PairsDisplay0) GT0) StringLen (StringTrimLeft (StringSubstr (PairsDisplay0,4) )) GT0 se (ObjectFind (quotWquotweekbackquot00quot) -1) ObjectCreate (quotWquotweekbackquot00quot, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackquot00quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot00quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot00quot, OBJPROPYDISTANCE, ycoord) ObjectSetText ( quotWquotweekbackquot00quot, PairsDisplay0quot quotDoubleToStr (PLArray0,0), 9, quotLucida Console Boldquot, PairsColor0) ycoord ycoord 20 se (StringLen (PairsDisplay1) GT0) se (ObjectFind (quotWquotweekbackquot01quot) -1) ObjectCreate (quotWquotweekbackquot01quot, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackquot01quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot01quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot01quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot01quot, PairsDisplay1quot quotDoubleToStr (PLArray1,0), 9, quotLucida Console Boldquot, PairsColor1) ycoord ycoord 20 se (StringLen (PairsDisplay2) GT0) se (ObjectFind (quotWquotweekbackquot02quot) -1) ObjectCreate (quotWquotweekbackquot02quot, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackquot02quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot02quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot02quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot02quot, PairsDisplay2quot quotDoubleToStr (PLArray2,0), 9, quotLucida Console Boldquot, PairsColor2) ycoord ycoord 20 se (StringLen (PairsDisplay3) GT0) se (ObjectFind (quotWquotweekbackquot03quot) -1) ObjectCreate (quotWquotweekbackquot03quot, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackquot03quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot03quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot03quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot03quot, PairsDisplay3quot quotDoubleToStr (PLArray3,0), 9, quotLucida Console Boldquot, PairsColor3) ycoord ycoord 20 se (ObjectFind (weekbackquotlinmedquot) -1) ObjectCreate (weekbackquotlinmedquot, OBJLABEL, compagno, 0, 0) ObjectSet (weekbackquotlinmedquot, OBJPROPCOLOR, Bianco) ObjectSet (weekbackquotlinmedquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotlinmedquot, OBJPROPYDISTANCE, ycoord-10) ObjectSetText (weekbackquotlinmedquot, quot -------------- quot, 10, quotCourier Newquot, giallo) se (StringLen (PairsDisplay4) GT0) se (ObjectFind (quotWquotweekbackquot04quot) -1) ObjectCreate (quotWquotweekbackquot04quot, OBJLABEL, compagno, 0 , 0) ObjectSet (quotWquotweekbackquot04quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot04quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot04quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot04quot, PairsDisplay4quot quotDoubleToStr (PLArray4,0), 9, quotLucida Console Boldquot, PairsColor4) se (ShowDirections7 ) drawrating (7, weekback, PairsSearch, PairsDisplay7, xcoord, ycoord, compagna) ycoord ycoord 20 se (StringLen (PairsDisplay5) GT0) se (ObjectFind (quotWquotweekbackquot05quot) -1) ObjectCreate (quotWquotweekbackquot05quot, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackquot05quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot05quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot05quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot05quot, PairsDisplay5quot quotDoubleToStr (PLArray5,0), 9, quotLucida Console Boldquot, PairsColor5) ycoord ycoord 20 se (StringLen ( PairsDisplay6) GT0) se (ObjectFind (quotWquotweekbackquot06quot) -1) ObjectCreate (quotWquotweekbackquot06quot, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackquot06quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot06quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot06quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot06quot, PairsDisplay6quot quotDoubleToStr (PLArray6,0), 9, quotLucida Console Boldquot, PairsColor6) ycoord ycoord 20 se (StringLen (PairsDisplay7) GT0) se (ObjectFind (quotWquotweekbackquot7quot) -1) ObjectCreate (quotWquotweekbackquot7quot, OBJLABEL, compagno, 0, 0 ) ObjectSet (quotWquotweekbackquot7quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot7quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot7quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot7quot, PairsDisplay7quot quotDoubleToStr (PLArray7,0), 9, quotLucida Console Boldquot, PairsColor7) ycoord ycoord 20 if ( StringLen (PairsDisplay8) GT0) se (ObjectFind (quotWquotweekbackquot08quot) -1) ObjectCreate (quotWquotweekbackquot08quot, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackquot08quot, OBJPROPCOLOR, Rosso) ObjectSet (quotWquotweekbackquot08quot, OBJPROPXDISTANCE, xcoord) ObjectSet (quotWquotweekbackquot08quot, OBJPROPYDISTANCE, ycoord ) ObjectSetText (quotWquotweekbackquot08quot, PairsDisplay8quot quotDoubleToStr (PLArray8,0), 9, quotLucida Console Boldquot, PairsColor8) ycoord ycoord 20 se (ObjectFind (weekbackquotlinquot) -1) ObjectCreate (weekbackquotlinquot, OBJLABEL, compagno, 0, 0) ObjectSet (weekbackquotlinquot, OBJPROPCOLOR , Bianco) ObjectSet (weekbackquotlinquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotlinquot, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquotlinquot, quot -------------- quot, 10, quotCourier Newquot, Bianco) ycoord ycoord20 se (ObjectFind (weekbackquotbtotquot) -1) ObjectCreate (weekbackquotbtotquot, OBJLABEL, compagno, 0, 0) ObjectSet (weekbackquotbtotquot, OBJPROPCOLOR, calce) ObjectSet (weekbackquotbtotquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotbtotquot, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquotbtotquot, DoubleToStr ( blu, 0), 9, quotCourier Newquot, SpringGreen) se (ObjectFind (weekbackquotstotquot) -1) ObjectCreate (weekbackquotstotquot, OBJLABEL, compagno, 0, 0) ObjectSet (weekbackquotstotquot, OBJPROPCOLOR, rosso-arancione) ObjectSet (weekbackquotstotquot, OBJPROPXDISTANCE, xcoord 45) ObjectSet (weekbackquotstotquot, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquotstotquot, DoubleToStr (rosso, 0), 9, quotCourier Newquot, rosso-arancione) se (ObjectFind (weekbackquottotquot) -1) ObjectCreate (weekbackquottotquot, OBJLABEL, compagno, 0, 0) ObjectSet (weekbackquottotquot , OBJPROPCOLOR, Giallo) ObjectSet (weekbackquottotquot, OBJPROPXDISTANCE, xcoord 80) ObjectSet (weekbackquottotquot, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquottotquot, quotT: quotDoubleToStr (redblue, 0), 9, quotCourier Newquot, giallo) ycoord ycoord 20 se (ObjectFind (weekbackquotsigquot ) -1) ObjectCreate (weekbackquotsigquot, OBJLABEL, compagno, 0, 0) ObjectSet (weekbackquotsigquot, OBJPROPCOLOR, Rosso) ObjectSet (weekbackquotsigquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotsigquot, OBJPROPYDISTANCE, ycoord) tendenza stringa di colore quotNONEquot col Bianco ObjectSetText (weekbackquotsigquot, tendenza, 12, quotLucida Console Boldquot, col) WindowRedraw () deleteobjects void (int weekback) for (int m0mltpair. countm) se (ObjectFind (quotWAquotweekbackPairsNames1m) gt -1) ObjectDelete (quotWAquotweekbackPairsNames1m) se (ObjectFind (quotWquotweekbackPairsNames1m) gt -1) ObjectDelete (quotWquotweekbackPairsNames1m) se (ObjectFind (weekbackquotbtotquot) gt -1) ObjectDelete (weekbackquotbtotquot) se (ObjectFind (weekbackquottotquot) gt -1) ObjectDelete (weekbackquottotquot) se (ObjectFind (weekbackquotstotquot) gt -1) ObjectDelete (weekbackquotstotquot) se (ObjectFind ( weekbackquotlinquot) gt -1) ObjectDelete (weekbackquotlinquot) se (ObjectFind (weekbackquotlinmedquot) gt -1) ObjectDelete (weekbackquotlinmedquot) se (ObjectFind (weekbackquotsigtitquot) gt -1) ObjectDelete (weekbackquotsigtitquot) se (ObjectFind (quotWquotweekbackquot00quot) gt -1) ObjectDelete ( quotWquotweekbackquot00quot) se (ObjectFind (quotWquotweekbackquot01quot) gt -1) ObjectDelete (quotWquotweekbackquot01quot) se (ObjectFind (quotWquotweekbackquot02quot) gt -1) ObjectDelete (quotWquotweekbackquot02quot) se (ObjectFind (quotWquotweekbackquot03quot) gt -1) ObjectDelete (quotWquotweekbackquot03quot) se (ObjectFind (quotWquotweekbackquot04quot) gt -1) ObjectDelete (quotWquotweekbackquot04quot) se (ObjectFind (quotWquotweekbackquot05quot) gt -1) ObjectDelete (quotWquotweekbackquot05quot) se (ObjectFind (quotWquotweekbackquot06quot) gt -1) ObjectDelete (quotWquotweekbackquot06quot) se (ObjectFind (quotWquotweekbackquot07quot) gt -1) ObjectDelete (quotWquotweekbackquot07quot) if (ObjectFind (quotWquotweekbackquot08quot) gt -1) ObjectDelete (quotWquotweekbackquot08quot) se (ObjectFind (quotWquotweekbackquot09quot) gt -1) ObjectDelete (quotWquotweekbackquot09quot) se (ObjectFind (quotWquotweekbackquot10quot) gt -1) ObjectDelete (quotWquotweekbackquot10quot) se (ObjectFind (quotWquotweekbackquot11quot) gt - 1) ObjectDelete (quotWquotweekbackquot11quot) se (ObjectFind (quotWquotweekbackquot12quot) gt -1) ObjectDelete (quotWquotweekbackquot12quot) se (ObjectFind (quotWquotweekbackquot13quot) gt -1) ObjectDelete (quotWquotweekbackquot13quot) se (ObjectFind (quotWquotweekbackquot14quot) gt -1) ObjectDelete (quotWquotweekbackquot14quot) if ( ObjectFind (quotWquotweekbackquot15quot) gt -1) ObjectDelete (quotWquotweekbackquot15quot) se (ObjectFind (quotWquotweekbackquot16quot) gt -1) ObjectDelete (quotWquotweekbackquot16quot) se (ObjectFind (quotWquotweekbackquot17quot) gt -1) ObjectDelete (quotWquotweekbackquot17quot) se (ObjectFind (quotWquotweekbackquot18quot) gt -1) ObjectDelete (quotWquotweekbackquot18quot) se (ObjectFind (quotWquotweekbackquot19quot) gt -1) ObjectDelete (quotWquotweekbackquot19quot) se (ObjectFind (quotWquotweekbackquot20quot) gt -1) ObjectDelete (quotWquotweekbackquot20quot) se (ObjectFind (quotWquotweekbackquot21quot) gt -1) ObjectDelete (quotWquotweekbackquot21quot) se (ObjectFind ( quotWquotweekbackquot22quot) gt -1) ObjectDelete (quotWquotweekbackquot22quot) se (ObjectFind (quotWquotweekbackquot23quot) gt -1) ObjectDelete (quotWquotweekbackquot23quot) se (ObjectFind (quotWquotweekbackquot24quot) gt -1) ObjectDelete (quotWquotweekbackquot24quot) se (ObjectFind (quotWquotweekbackquot25quot) gt -1) ObjectDelete ( quotWquotweekbackquot25quot) se (ObjectFind (quotWquotweekbackquot26quot) gt -1) ObjectDelete (quotWquotweekbackquot26quot) se (ObjectFind (quotWquotweekbackquot27quot) gt -1) ObjectDelete (quotWquotweekbackquot27quot) se (ObjectFind (weekbackquotsigquot) gt -1) ObjectDelete (weekbackquotsigquot) doppia dPoint (stringa MGS) doppio punto MarketInfo (MGS, MODEPOINT) se (StringFind (MGS, quotJPYquot) GT0) Point0.01 se (Point0) Point0.0001 ritorno (Point) int ArraySearch (stringamp m, string e) for (int iltArraySize I0 (m) I ) se (mi) ritorno (i) ritorno (-1) drawrating void (int iIndex, int weekback, stringamp PairsSearch, stringa pairdisplay, int xcoord, int ycoord, int compagno) int result ArraySearch (PairsSearch, pairdisplay) Stampa (risultato) if (risultato 1-ampamp resultiindex) se (ObjectFind (quotWquotweekbackpairdisplay) -1) ObjectDelete (quotWquotweekbackpairdisplay) se (ObjectFind (quotWAquotweekbackpairdisplay) -1) ObjectDelete (quotWAquotweekbackpairdisplay) ObjectCreate (quotWquotweekbackpairdisplay, OBJLABEL, compagno, 0, 0) ObjectSet (quotWquotweekbackpairdisplay, OBJPROPCOLOR, Bianco) ObjectSet (quotWquotweekbackpairdisplay, OBJPROPXDISTANCE, xcoord 95) 75 ObjectSet (quotWquotweekbackpairdisplay, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackpairdisplay, DoubleToStr (result1,0), 9, quotCourier Newquot, Bianco) ObjectCreate (quotWAquotweekbackpairdisplay, OBJLABEL, compagno, 0, 0) ObjectSet (quotWAquotweekbackpairdisplay, OBJPROPXDISTANCE, xcoord 110) 110 ObjectSet (quotWAquotweekbackpairdisplay, OBJPROPYDISTANCE, ycoord) se (risultato GT iIndex) è salito ObjectSetText (quotWAquotweekbackpairdisplay, CharToStr (241), 10, quotWingdingsquot, calce) else if (risultato lt iIndex) è andato giù ObjectSetText (quotWAquotweekbackpairdisplay, CharToStr (242), 10, quotWingdingsquot, Rosso)
No comments:
Post a Comment