ProRealTime
Pour discuter sur l’interface de ProRealTime Software, nos configurations graphiques...

Indicateur[32]

par Raiko » 26 Fév 2015 20:00

Bonsoir,

J'ai un indicateur long à charger (héhé je commence à coder du complexe, je progresse ;)). Je voudrais rajouter une ligne de code à mon indicateur pour calculer seulement sur les 32 dernieres barres par exemple et ainsi gagner du temps.
Peut-etre avec "barindex" ou "defparam preloadbars" ou une boucle, pour l'instant j'y arrive pas :) .

:merci:

Re: Indicateur[32]

par koub » 26 Fév 2015 20:38

Plop Raiko,

J'ai un indicateur long à charger (héhé je commence à coder du complexe, je progresse ;)).

Sûrement, tu progresses à pas de géant, mais c'est surtout que PRT est un peu lourdingue dès que tu touches aux boucles... ^^
Maintenant, il faut optimiser... Montres nous ton code, on essaiera de t'aider au mieux.

+, koub. :)

Re: Indicateur[32]

par Raiko » 28 Fév 2015 20:10

Mon code donne x si x >x[1] quand x>0 et x si x <x[1] quand x<0 (c"est mon signal). Je crois que c'est la partie suivante du code qui est lourde. Elle donne le + haut ou + bas d'une série quand
x>0 et quand x<0. Exemple, 2, -6, -2, -8, 3 resultat 0, 0, 0, -8 ou 1, -3, 5 resultat 0, -3, 0. Je crois qu'avec la fonction highest and lowest ya moyen de faire mieux. Pas besoin de lire tout le code ci dessous, évidemment y'a la meme structure qui se répéte.
Pfiou il est sympa cette indicateur mais il m'a fatigué haha. Enfin c'est un bon début pour du "fait maison".
Voila visualement:
ACCOR.png


Voila le code:
Code: Tout sélectionner

indicL=INDIC<0
indicB=INDIC<INDIC[1]
indicB2=INDIC<INDIC[2] AND indicB
indic1B2=INDIC>INDIC[1]AND INDIC[1]<INDIC[2]
indic2B2=INDIC>INDIC[2]AND INDIC[2]<INDIC[1]
indicB3=indicB2 AND INDIC<INDIC[3]
indic1B3=indic1B2 AND INDIC[1]<INDIC[3]
indic2B3=indic2B2 AND INDIC[2]<INDIC[3]
indic3B3=INDIC>INDIC[3]AND INDIC[3]<INDIC[1] AND INDIC[3]<INDIC[2]
indicB4=indicB3 AND INDIC<INDIC[4]
indic1B4=indic1B3 AND INDIC[1]<INDIC[4]
indic2B4=indic2B3 AND INDIC[2]<INDIC[4]
indic3B4=indic3B3 AND INDIC[3]<INDIC[4]
indic4B4=INDIC[4]<INDIC AND INDIC[4]<INDIC[1] AND INDIC[4]<INDIC[2] AND INDIC[4]<INDIC[3]
indicB5=indicB4 AND INDIC<INDIC[5]
indic1B5=indic1B4 AND INDIC[1]<INDIC[5]
indic2B5=indic2B4 AND INDIC[2]<INDIC[5]
indic3B5=indic3B4 AND INDIC[3]<INDIC[5]
indic4B5=indic4B4 AND INDIC[4]<INDIC[5]
indic5B5=INDIC[5]<INDIC AND INDIC[5]<INDIC[1] AND INDIC[5]<INDIC[2] AND INDIC[5]<INDIC[3] AND INDIC[5]<INDIC[4]
indicB6=indicB5 AND INDIC<INDIC[6]
indic1B6=indic1B5 AND INDIC[1]<INDIC[6]
indic2B6=indic2B5 AND INDIC[2]<INDIC[6]
indic3B6=indic3B5 AND INDIC[3]<INDIC[6]
indic4B6=indic4B5 AND INDIC[4]<INDIC[6]
indic5B6=indic5B5 AND INDIC[5]<INDIC[6]
indic6B6=INDIC[6]<INDIC AND INDIC[6]<INDIC[1] AND INDIC[6]<INDIC[2] AND INDIC[6]<INDIC[3] AND INDIC[6]<INDIC[4] AND INDIC[6]<INDIC[5]
indicB7=indicB6 AND INDIC<INDIC[7]
indic1B7=indic1B6 AND INDIC[1]<INDIC[7]
indic2B7=indic2B6 AND INDIC[2]<INDIC[7]
indic3B7=indic3B6 AND INDIC[3]<INDIC[7]
indic4B7=indic4B6 AND INDIC[4]<INDIC[7]
indic5B7=indic5B6 AND INDIC[5]<INDIC[7]
indic6B7=indic6B6 AND INDIC[6]<INDIC[7]
indic7B7=INDIC[7]<INDIC AND INDIC[7]<INDIC[1] AND INDIC[7]<INDIC[2] AND INDIC[7]<INDIC[3] AND INDIC[7]<INDIC[4] AND INDIC[7]<INDIC[5]  AND INDIC[7]<INDIC[6]
indicB8=indicB7 AND INDIC<INDIC[8]
indic1B8=indic1B7 AND INDIC[1]<INDIC[8]
indic2B8=indic2B7 AND INDIC[2]<INDIC[8]
indic3B8=indic3B7 AND INDIC[3]<INDIC[8]
indic4B8=indic4B7 AND INDIC[4]<INDIC[8]
indic5B8=indic5B7 AND INDIC[5]<INDIC[8]
indic6B8=indic6B7 AND INDIC[6]<INDIC[8]
indic7B8=indic7B7 AND INDIC[7]<INDIC[8]
indic8B8=INDIC[8]<INDIC AND INDIC[8]<INDIC[1] AND INDIC[8]<INDIC[2] AND INDIC[8]<INDIC[3] AND INDIC[8]<INDIC[8] AND INDIC[8]<INDIC[5]  AND INDIC[8]<INDIC[6]  AND INDIC[8]<INDIC[7]


indicH=INDIC>0
indicA=INDIC>INDIC[1]
indicA2=INDIC>INDIC[2] AND indicA
indic1A2=INDIC<INDIC[1]AND INDIC[1]>INDIC[2]
indic2A2=INDIC<INDIC[2]AND INDIC[2]>INDIC[1]
indicA3=indicA2 AND INDIC>INDIC[3]
indic1A3=indic1A2 AND INDIC[1]>INDIC[3]
indic2A3=indic2A2 AND INDIC[2]>INDIC[3]
indic3A3=INDIC>INDIC[3]AND INDIC[3]>INDIC[1] AND INDIC[3]>INDIC[2]
indicA4=indicA3 AND INDIC>INDIC[4]
indic1A4=indic1A3 AND INDIC[1]>INDIC[4]
indic2A4=indic2A3 AND INDIC[2]>INDIC[4]
indic3A4=indic3A3 AND INDIC[3]>INDIC[4]
indic4A4=INDIC[4]>INDIC AND INDIC[4]>INDIC[1] AND INDIC[4]>INDIC[2] AND INDIC[4]>INDIC[3]
indicA5=indicA4 AND INDIC>INDIC[5]
indic1A5=indic1A4 AND INDIC[1]>INDIC[5]
indic2A5=indic2A4 AND INDIC[2]>INDIC[5]
indic3A5=indic3A4 AND INDIC[3]>INDIC[5]
indic4A5=indic4A4 AND INDIC[4]>INDIC[5]
indic5A5=INDIC[5]>INDIC AND INDIC[5]>INDIC[1] AND INDIC[5]>INDIC[2] AND INDIC[5]>INDIC[3] AND INDIC[5]>INDIC[4]
indicA6=indicA5 AND INDIC>INDIC[6]
indic1A6=indic1A5 AND INDIC[1]>INDIC[6]
indic2A6=indic2A5 AND INDIC[2]>INDIC[6]
indic3A6=indic3A5 AND INDIC[3]>INDIC[6]
indic4A6=indic4A5 AND INDIC[4]>INDIC[6]
indic5A6=indic5A5 AND INDIC[5]>INDIC[6]
indic6A6=INDIC[6]>INDIC AND INDIC[6]>INDIC[1] AND INDIC[6]>INDIC[2] AND INDIC[6]>INDIC[3] AND INDIC[6]>INDIC[4] AND INDIC[6]>INDIC[5]
indicA7=indicA6 AND INDIC>INDIC[7]
indic1A7=indic1A6 AND INDIC[1]>INDIC[7]
indic2A7=indic2A6 AND INDIC[2]>INDIC[7]
indic3A7=indic3A6 AND INDIC[3]>INDIC[7]
indic4A7=indic4A6 AND INDIC[4]>INDIC[7]
indic5A7=indic5A6 AND INDIC[5]>INDIC[7]
indic6A7=indic6A6 AND INDIC[6]>INDIC[7]
indic7A7=INDIC[7]>INDIC AND INDIC[7]>INDIC[1] AND INDIC[7]>INDIC[2] AND INDIC[7]>INDIC[3] AND INDIC[7]>INDIC[4] AND INDIC[7]>INDIC[5]  AND INDIC[7]>INDIC[6]
indicA8=indicA7 AND INDIC>INDIC[8]
indic1A8=indic1A7 AND INDIC[1]>INDIC[8]
indic2A8=indic2A7 AND INDIC[2]>INDIC[8]
indic3A8=indic3A7 AND INDIC[3]>INDIC[8]
indic4A8=indic4A7 AND INDIC[4]>INDIC[8]
indic5A8=indic5A7 AND INDIC[5]>INDIC[8]
indic6A8=indic6A7 AND INDIC[6]>INDIC[8]
indic7A8=indic7A7 AND INDIC[7]>INDIC[8]
indic8A8=INDIC[8]>INDIC AND INDIC[8]>INDIC[1] AND INDIC[8]>INDIC[2] AND INDIC[8]>INDIC[3] AND INDIC[8]>INDIC[8] AND INDIC[8]>INDIC[5]  AND INDIC[8]>INDIC[6]  AND INDIC[8]>INDIC[7]




//COUR


//conditions multiples





IF indicL[1] AND NOT indicL  AND NOT indicL[2] THEN
indicLA5=indic[1]

ELSIF indicL[1] AND NOT indicL  AND indicL[2] AND NOT indicL[3] AND indicB[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL AND  indicL[1] AND indicL[2] AND NOT indicL[3] AND NOT indicB[1] THEN
indicLA5=indic[2]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3] AND NOT indicL[4] AND indicB2[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3] AND NOT indicL[4] AND indic1B2[1] THEN
indicLA5=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3] AND NOT indicL[4] AND indic2B2[1] THEN
indicLA5=indic[3]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indicB3[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indic1B3[1] THEN
indicLA5=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indic2B3[1] THEN
indicLA5=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indic3B3[1] THEN
indicLA5=indic[4]


ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indicB4[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic1B4[1] THEN
indicLA5=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic2B4[1] THEN
indicLA5=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic3B4[1] THEN
indicLA5=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic4B4[1] THEN
indicLA5=indic[5]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indicB5[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic1B5[1] THEN
indicLA5=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic2B5[1] THEN
indicLA5=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic3B5[1] THEN
indicLA5=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic4B5[1] THEN
indicLA5=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic5B5[1] THEN
indicLA5=indic[6]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indicB6[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic1B6[1] THEN
indicLA5=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic2B6[1] THEN
indicLA5=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic3B6[1] THEN
indicLA5=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic4B6[1] THEN
indicLA5=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic5B6[1] THEN
indicLA5=indic[6]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic6B6[1] THEN
indicLA5=indic[7]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indicB7[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic1B7[1] THEN
indicLA5=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic2B7[1] THEN
indicLA5=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic3B7[1] THEN
indicLA5=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic4B7[1] THEN
indicLA5=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic5B7[1] THEN
indicLA5=indic[6]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic6B7[1] THEN
indicLA5=indic[7]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic7B7[1] THEN
indicLA5=indic[8]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indicB8[1] THEN
indicLA5=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic1B8[1] THEN
indicLA5=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic2B8[1] THEN
indicLA5=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic3B8[1] THEN
indicLA5=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic4B8[1] THEN
indicLA5=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic5B8[1] THEN
indicLA5=indic[6]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic6B8[1] THEN
indicLA5=indic[7]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic7B8[1] THEN
indicLA5=indic[8]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic8B8[1] THEN
indicLA5=indic[9]


ELSE
indicLA5=indicLA5[1]


ENDIF

IF indicL[1] AND NOT indicL  AND NOT indicL[2] THEN
indicLA6=indic[1]

ELSIF indicL[1] AND NOT indicL  AND indicL[2] AND NOT indicL[3] AND indicB[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL AND  indicL[1] AND indicL[2] AND NOT indicL[3] AND NOT indicB[1] THEN
indicLA6=indic[2]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3] AND NOT indicL[4] AND indicB2[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3] AND NOT indicL[4] AND indic1B2[1] THEN
indicLA6=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3] AND NOT indicL[4] AND indic2B2[1] THEN
indicLA6=indic[3]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indicB3[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indic1B3[1] THEN
indicLA6=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indic2B3[1] THEN
indicLA6=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND NOT indicL[5] AND indic3B3[1] THEN
indicLA6=indic[4]


ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indicB4[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic1B4[1] THEN
indicLA6=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic2B4[1] THEN
indicLA6=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic3B4[1] THEN
indicLA6=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5] AND NOT indicL[6] AND indic4B4[1] THEN
indicLA6=indic[5]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indicB5[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic1B5[1] THEN
indicLA6=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic2B5[1] THEN
indicLA6=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic3B5[1] THEN
indicLA6=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic4B5[1] THEN
indicLA6=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6] AND NOT indicL[7] AND indic5B5[1] THEN
indicLA6=indic[6]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indicB6[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic1B6[1] THEN
indicLA6=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic2B6[1] THEN
indicLA6=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic3B6[1] THEN
indicLA6=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic4B6[1] THEN
indicLA6=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic5B6[1] THEN
indicLA6=indic[6]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indic6B6[1] THEN
indicLA6=indic[7]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indicB7[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic1B7[1] THEN
indicLA6=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic2B7[1] THEN
indicLA6=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic3B7[1] THEN
indicLA6=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic4B7[1] THEN
indicLA6=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic5B7[1] THEN
indicLA6=indic[6]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic6B7[1] THEN
indicLA6=indic[7]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8] AND NOT indicL[9] AND indic7B7[1] THEN
indicLA6=indic[8]

ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indicB8[1] THEN
indicLA6=indic[1]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic1B8[1] THEN
indicLA6=indic[2]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic2B8[1] THEN
indicLA6=indic[3]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic3B8[1] THEN
indicLA6=indic[4]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic4B8[1] THEN
indicLA6=indic[5]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic5B8[1] THEN
indicLA6=indic[6]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic6B8[1] THEN
indicLA6=indic[7]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic7B8[1] THEN
indicLA6=indic[8]
ELSIF indicL[1] AND NOT indicL  AND indicL[2]  AND indicL[3]  AND indicL[4] AND indicL[5]  AND indicL[6]  AND indicL[7]  AND indicL[8]  AND indicL[9] AND NOT indicL[10] AND indic8B8[1] THEN
indicLA6=indic[9]
ELSE
indicLA6=0


ENDIF



IF indicL AND NOT indicL[1] THEN
indicLHA=indic
ELSE
indicLHA=0
ENDIF

IF indicL AND indicL[1] AND NOT indicL[2] AND indicB THEN
indicLHB=indic
ELSE
indicLHB=0
ENDIF

IF indicL AND indicL[1]  AND indicL[2] AND NOT indicL[3] AND indicB  AND indicB2 THEN
indicLHC=indic
ELSE
indicLHC=0
ENDIF

IF indicL  AND indicL[1]  AND indicL[2]  AND indicL[3] AND NOT indicL[4] AND indicB  AND indicB2  AND indicB3 THEN
indicLHD=indic
ELSE
indicLHD=0
ENDIF

IF indicL  AND indicL[1]  AND indicL[2]  AND indicL[3]   AND indicL[4] AND NOT indicL[5] AND indicB  AND indicB2  AND indicB3   AND indicB4 THEN
indicLHE=indic
ELSE
indicLHE=0
ENDIF

IF indicL  AND indicL[1]  AND indicL[2]  AND indicL[3]   AND indicL[4]  AND indicL[5] AND NOT indicL[6] AND indicB  AND indicB2  AND indicB3   AND indicB4 AND indicB5 THEN
indicLHF=indic
ELSE
indicLHF=0
ENDIF

IF indicL  AND indicL[1]  AND indicL[2]  AND indicL[3]   AND indicL[4]  AND indicL[5] AND indicL[6] AND NOT indicL[7] AND indicB  AND indicB2  AND indicB3   AND indicB4 AND indicB5  AND indicB6 THEN
indicLHG=indic
ELSE
indicLHG=0

ENDIF
IF indicL  AND indicL[1]  AND indicL[2]  AND indicL[3]   AND indicL[4]  AND indicL[5] AND indicL[6]  AND indicL[7] AND NOT indicL[8] AND indicB  AND indicB2  AND indicB3   AND indicB4 AND indicB5  AND indicB6  AND indicB7 THEN
indicLHH=indic
ELSE
indicLHH=0
ENDIF
IF indicL  AND indicL[1]  AND indicL[2]  AND indicL[3]   AND indicL[4]  AND indicL[5] AND indicL[6]  AND indicL[7] AND indicL[8] AND NOT indicL[9] AND indicB  AND indicB2  AND indicB3   AND indicB4 AND indicB5  AND indicB6  AND indicB7  AND indicB8 THEN
indicLHI=indic
ELSE
indicLHI=0

ENDIF

IF indicH[1] AND NOT indicH  AND NOT indicH[2] THEN
indicHA5=indic[1]

ELSIF indicH[1] AND NOT indicH  AND indicH[2] AND NOT indicH[3] AND indicA[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH AND  indicH[1] AND indicH[2] AND NOT indicH[3] AND NOT indicA[1] THEN
indicHA5=indic[2]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3] AND NOT indicH[4] AND indicA2[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3] AND NOT indicH[4] AND indic1A2[1] THEN
indicHA5=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3] AND NOT indicH[4] AND indic2A2[1] THEN
indicHA5=indic[3]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indicA3[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indic1A3[1] THEN
indicHA5=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indic2A3[1] THEN
indicHA5=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indic3A3[1] THEN
indicHA5=indic[4]


ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indicA4[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic1A4[1] THEN
indicHA5=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic2A4[1] THEN
indicHA5=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic3A4[1] THEN
indicHA5=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic4A4[1] THEN
indicHA5=indic[5]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indicA5[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic1A5[1] THEN
indicHA5=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic2A5[1] THEN
indicHA5=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic3A5[1] THEN
indicHA5=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic4A5[1] THEN
indicHA5=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic5A5[1] THEN
indicHA5=indic[6]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indicA6[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic1A6[1] THEN
indicHA5=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic2A6[1] THEN
indicHA5=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic3A6[1] THEN
indicHA5=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic4A6[1] THEN
indicHA5=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic5A6[1] THEN
indicHA5=indic[6]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic6A6[1] THEN
indicHA5=indic[7]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indicA7[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indic1A7[1] THEN
indicHA5=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indic2A7[1] THEN
indicHA5=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indic3A7[1] THEN
indicHA5=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indic4A7[1] THEN
indicHA5=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indic5A7[1] THEN
indicHA5=indic[6]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indic6A7[1] THEN
indicHA5=indic[7]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indic7A7[1] THEN
indicHA5=indic[8]


ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indicA8[1] THEN
indicHA5=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indic1A8[1] THEN
indicHA5=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indic2A8[1] THEN
indicHA5=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indic3A8[1] THEN
indicHA5=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indic4A8[1] THEN
indicHA5=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indic5A8[1] THEN
indicHA5=indic[6]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indic6A8[1] THEN
indicHA5=indic[7]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[89] AND NOT indicH[10] AND indic7A8[1] THEN
indicHA5=indic[8]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[9] AND NOT indicH[10] AND indic8A8[1] THEN
indicHA5=indic[9]


ELSE
indicHA5=indicHA5[1]


ENDIF

IF indicH[1] AND NOT indicH  AND NOT indicH[2] THEN
indicHA6=indic[1]

ELSIF indicH[1] AND NOT indicH  AND indicH[2] AND NOT indicH[3] AND indicA[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH AND  indicH[1] AND indicH[2] AND NOT indicH[3] AND NOT indicA[1] THEN
indicHA6=indic[2]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3] AND NOT indicH[4] AND indicA2[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3] AND NOT indicH[4] AND indic1A2[1] THEN
indicHA6=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3] AND NOT indicH[4] AND indic2A2[1] THEN
indicHA6=indic[3]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indicA3[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indic1A3[1] THEN
indicHA6=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indic2A3[1] THEN
indicHA6=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND NOT indicH[5] AND indic3A3[1] THEN
indicHA6=indic[4]


ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indicA4[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic1A4[1] THEN
indicHA6=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic2A4[1] THEN
indicHA6=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic3A4[1] THEN
indicHA6=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5] AND NOT indicH[6] AND indic4A4[1] THEN
indicHA6=indic[5]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indicA5[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic1A5[1] THEN
indicHA6=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic2A5[1] THEN
indicHA6=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic3A5[1] THEN
indicHA6=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic4A5[1] THEN
indicHA6=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6] AND NOT indicH[7] AND indic5A5[1] THEN
indicHA6=indic[6]

ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indicA6[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic1A6[1] THEN
indicHA6=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic2A6[1] THEN
indicHA6=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic3A6[1] THEN
indicHA6=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic4A6[1] THEN
indicHA6=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic5A6[1] THEN
indicHA6=indic[6]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indic6A6[1] THEN
indicHA6=indic[7]


ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indicA7[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indic1A7[1] THEN
indicHA6=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indic2A7[1] THEN
indicHA6=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indic3A7[1] THEN
indicHA6=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indic4A7[1] THEN
indicHA6=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indic5A7[1] THEN
indicHA6=indic[6]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indic6A7[1] THEN
indicHA6=indic[7]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8] AND NOT indicH[9] AND indic7A7[1] THEN
indicHA6=indic[8]



ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indicA8[1] THEN
indicHA6=indic[1]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic1A8[1] THEN
indicHA6=indic[2]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic2A8[1] THEN
indicHA6=indic[3]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic3A8[1] THEN
indicHA6=indic[4]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic4A8[1] THEN
indicHA6=indic[5]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic5A8[1] THEN
indicHA6=indic[6]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic6A8[1] THEN
indicHA6=indic[7]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic7A8[1] THEN
indicHA6=indic[8]
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]   AND indicH[8]   AND indicH[9] AND NOT indicH[10] AND indic8A8[1] THEN
indicHA6=indic[9]

ELSE
indicHA6=0

ENDIF



IF indicH AND NOT indicH[1] THEN
indicHHA=indic
ELSE
indicHHA=0
ENDIF

IF indicH AND indicH[1] AND NOT indicH[2] AND indicA THEN
indicHHB=indic
ELSE
indicHHB=0
ENDIF

IF indicH AND indicH[1]  AND indicH[2] AND NOT indicH[3] AND indicA  AND indicA2 THEN
indicHHC=indic
ELSE
indicHHC=0
ENDIF

IF indicH  AND indicH[1]  AND indicH[2]  AND indicH[3] AND NOT indicH[4] AND indicA  AND indicA2  AND indicA3 THEN
indicHHD=indic
ELSE
indicHHD=0
ENDIF

IF indicH  AND indicH[1]  AND indicH[2]  AND indicH[3]   AND indicH[4] AND NOT indicH[5] AND indicA  AND indicA2  AND indicA3   AND indicA4 THEN
indicHHE=indic
ELSE
indicHHE=0
ENDIF

IF indicH  AND indicH[1]  AND indicH[2]  AND indicH[3]   AND indicH[4]  AND indicH[5] AND NOT indicH[6] AND indicA  AND indicA2  AND indicA3   AND indicA4 AND indicA5 THEN
indicHHF=indic
ELSE
indicHHF=0
ENDIF

IF indicH  AND indicH[1]  AND indicH[2]  AND indicH[3]   AND indicH[4]  AND indicH[5] AND indicH[6] AND NOT indicH[7] AND indicA  AND indicA2  AND indicA3   AND indicA4 AND indicA5  AND indicA6 THEN
indicHHG=indic
ELSE
indicHHG=0
ENDIF
IF indicH  AND indicH[1]  AND indicH[2]  AND indicH[3]   AND indicH[4]  AND indicH[5] AND indicH[6]  AND indicH[7] AND NOT indicH[8] AND indicA  AND indicA2  AND indicA3   AND indicA4 AND indicA5  AND indicA6  AND indicA7 THEN
indicHHH=indic
ELSE
indicHHH=0
ENDIF
IF indicH  AND indicH[1]  AND indicH[2]  AND indicH[3]   AND indicH[4]  AND indicH[5] AND indicH[6]  AND indicH[7]  AND indicH[8] AND NOT indicH[9] AND indicA  AND indicA2  AND indicA3   AND indicA4 AND indicA5  AND indicA6  AND indicA7  AND indicA8 THEN
indicHHI=indic
ELSE
indicHHI=0
ENDIF



Return    indicLA5 as "indiclA5", indicLA6 ,   indicLHA COLOURED as "indicLH1",  indicLHB COLOURED as "indicLH2",  indicLHC COLOURED as "indicLH3",  indicLHD COLOURED as "indicLH4",  indicLHE COLOURED as "indicLH5",  indicLHF COLOURED as "indicLH6",  indicLHG COLOURED as "indicLH7",  indicLHH COLOURED as "indicLH8",  indicLHI COLOURED as "indicLH9", indicHA5 as "indicHA5", indicHA6 ,   indicHHA COLOURED as "indicHH1",  indicHHB COLOURED as "indicHH2",  indicHHC COLOURED as "indicHH3",  indicHHD COLOURED as "indicHH4",  indicHHE COLOURED as "indicHH5",  indicHHF COLOURED as "indicHH6",  indicHHG COLOURED as "indicHH7",  indicHHH COLOURED as "indicHH8",  indicHHI COLOURED as "indicHH9",  indic as "indic", 50 coloured(0,0,0) as "end",-50 coloured(0,0,0)as "end"



S'il y a des moyens d'optimiser le code pour une meilleur vitesse de calcul, je prends! :merci:

Re: Indicateur[32]

par koub » 28 Fév 2015 21:01

Plop Raiko, effectivement 640 lignes de code, c'est du costaud et je t'avouerai l'avoir lu en diagonale... Pour moi, tu donnes la solution dans ton dernier post avec les fonctions Lowest et Highest, si tu connais la période sur laquelle tu souhaites définir tes plus hauts et plus bas, tu optimiseras forcement ton code...

Au fait, à quoi correspond ta variable "INDIC", elle est définie en dur non ?

+, koub. :)

Re: Indicateur[32]

par Ice. » 28 Fév 2015 21:10

Oula, c'est du brut :mrgreen:

Pour répondre à ta question, je dirais (au pif, pas testé ;) ) :

Code: Tout sélectionner
Variable = barindex

if barindex>Variable-32 then

Ton gros code  :)

else
        Indic = 0
endif

Re: Indicateur[32]

par Raiko » 28 Fév 2015 22:04

Salut Koub,
Indic est une formule courte dérivée du CCI. J'avais envie d'une solution en une ligne de code apres ces 640 lignes :lol: Mais quel plaisir de devoir encore coder, je l'aurais :twisted: .

Salut Ice,
J'aimerais bien etre une fine lame en codage mais je pars de zero il y a peu alors je fais pas dans le raffiné, on peut meme dire que c'est du brut oui haha ;), ca pique les yeux, y'en a meme paraitrait qui deviendraient aveugle...
J'ai tester vite fait avec barindex, pas réussit mais je rééssayerais aussi.
:merci:

Re: Indicateur[32]

par Greg31600 » 28 Fév 2015 22:24

Partir de Zéro en codage, et "écrire" + de 600 lignes de code...quel volonté/motivation !
Bravo - toi !
:bravo: :mercichinois: :bravo:

Re: Indicateur[32]

par Raiko » 28 Fév 2015 23:38

Le temps à remarquablement diminué grace a lowest. J'y ai été comme un bourrin dans mon premier code haha.
Une ligne ici pour 9 précédemment.
Code: Tout sélectionner
ELSIF indicH[1] AND NOT indicH  AND indicH[2]  AND indicH[3]  AND indicH[4] AND indicH[5]  AND indicH[6]  AND indicH[7]  AND indicH[8]  AND indicH[9] AND NOT indicH[10] THEN
indicHA6=HIGHest[9](indic)

J'aimerais utiliser barindex aussi car a partir de UT journalier c'est quand meme long. Avec ce que j'ai pris de Ice ca m'enleve le résultat sur tout le graph et pas seulement sur N barre. Pas pratique mais ca va plus vite oui :lol:.

Re: Indicateur[32]

par koub » 01 Mar 2015 07:42

Plop Raiko,

J'aimerais bien etre une fine lame en codage mais je pars de zero il y a peu alors je fais pas dans le raffiné, on peut meme dire que c'est du brut oui haha ;), ca pique les yeux, y'en a meme paraitrait qui deviendraient aveugle...

Nous avons tous commencé avec des programmes plus ou moins évolués et plus ou moins optimisés, l'important c'est de faire et je pense que Ice est du même avis... En prog, l'apprentissage est continuel et c'est le plus intéressant... Tout ce que je vois, c'est que comme le dit Greg, tu es motivé, tu partages et tu avances bien, et cet état d'esprit vaut un remerciement... :roll:

PRT ne se prête pas trop à l'optimisation car il est assez limité de part le fait qu'il soit en easy-language (par exemple ne pas pouvoir découper ton code en fonction, sub, etc. le rend lourdingue et répétotof)...

Essayes ça pour palier au BarIndex:
Code: Tout sélectionner
// tu souhaites lancer ton indicateur sur les 32 dernières bougies, toutes UT confondues
Variable = 32
FOR i=0 TO Variable DO

           // ici ton gros code (penses à inclure ta ligne qui définie INDIC...
           // Les INDIC deviendront INDIC[i]
           // Les IndicH[1] deviendront des IndicH[i+1]
           // ...
           // Les indicH[10] deviendront des indicH[i+10], etc.

NEXT

je ne sais si tu gagneras en temps de traitement car il s'agit d'une boucle et c'est clairement poussif sur PRT, mais bon, sait-on jamais...

+ :musique:

Re: Indicateur[32]

par Ice. » 01 Mar 2015 11:08

koub a écrit:Nous avons tous commencé avec des programmes plus ou moins évolués et plus ou moins optimisés, l'important c'est de faire et je pense que Ice est du même avis...


Bien sur ;) J'ai fais des codes de milliers de lignes sur PRT (oui oui, milliers :mrgreen: ) non optimisé de ce style quand j'avais moins d’expérience, on passe tous par là (surtout moi) mais l'important c'est d'arriver au résultat que l'on souhaite !

Sinon effectivement ce que je t'avais dis était idiot, cela ne peut fonctionner car PRT travaille candle par candle sans tenir compte du "forward".

Articles en relation
comment convertir un indicateur 1h en indicateur 1min
par Raiko » 09 Aoû 2014 09:35 (11 Réponses)
1er indicateur PRT
Fichier(s) joint(s) par koub » 20 Déc 2014 12:45 (11 Réponses)
Indicateur prt
par flashover26 » 26 Nov 2015 13:04 (6 Réponses)
Cours et indicateur
par falex » 28 Aoû 2014 17:22 (14 Réponses)
Code indicateur
par benylio » 18 Nov 2014 18:50 (5 Réponses)
Indicateur prt au format ex4
par flashover26 » 02 Déc 2015 17:21 (29 Réponses)
ALERTE SMS SUR INDICATEUR PRT
par Apo-71 » 13 Aoû 2017 19:32 (5 Réponses)
creation indicateur MM
par Falpa » 11 Aoû 2019 13:36 (1 Réponses)
Indicateur divergence RSI/MACD
par Alexstart » 02 Mai 2014 12:23 (2 Réponses)
Importer un indicateur sur ProRealTime
Fichier(s) joint(s) par kelly » 21 Aoû 2014 13:18 (11 Réponses)

ProRealTime