ok, pour avoir toutes les permutations possibles si on ne veut pas un état permanent tant qu’on a 4 fois A> 4 autres, il aurait fallu faire 3 fois > et une fois cross over, mais en attribuant le cross over tour à tour à chacune des 4mme, et avec un or pour les les 4 groupes de4 conditions. Mais c’est un peu lourd en écriture, une possibilité plus légère pour tenir compte de tous les cas est la suivante:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
A=exponentialaverage[20]
B=exponentialaverage[50]
C=exponentialaverage[100]
D=exponentialaverage[200]
E=exponentialaverage[300]
action=0
// croisement à la hausse 20 avec toute les mm exp
condition1=A > B
condition2=A > C
condition3=A > D
condition4=A > E
//croisement à la baisse 20 toute les moyennes mobiles exp
condition7=A < B
condition8=A < D
condition9=A < C
condition10=A < E
crit1=condition1 and condition2 and condition3 and condition4
crit2=condition7 and condition8 and condition9 and condition10
if crit1 and not crit1[1] then
action=1
if action=1 then
drawarrowup( barindex,2*low–high) coloured(0,191,255)
endif
elsif crit2 and not crit2[1] then
action=–1
if action=–1 then
drawarrowdown(barindex,2*high–low) coloured(255,69,0)
endif
endif
return
//return action
|
J’y ai au passage positionné les flèches au même x = barindex bien sûr, mais avec une ordonnée y compatible avec n’importe quel actif (alors que y=+/-action va mettre la flèche à hauteur +/-1 ce qui est un peu bas sur un graphe CAC40 ou DAX30 par exemple.
Si on veut les flèches sur le graphe, il ne faut plus faire un “return action” mais juste un “return”, et ajouter l’indicateur à la fenêtre du prix (via la petite clé à molette immédiatement à droite du titre “prix” au coin supérieur gauche de la fenêtre) plutôt qu’en fenêtre séparée sous le prix.
Si par contre on préfère garder l’indicateur sous le prix en fenêtre séparée pour voir “action” à +/-1, alors il faut garder la ligne “return action” et supprimer le “return” seul. Mais on ne peut pas simultanément avoir un indicateur en fenêtre séparée qui sait mettre la flèche sur le prix, c’est ou l’un ou l’autre (ou alors il faut faire tourner 2 versions de l’indicateur, à la fois une en fenêtre séparée avec “return action” sans flèche, et une sur la fenêtre prix avec “return” et les flèches)
Bonjour et merci pour vos indications qui simplifient le code de ces permutations.
Dans un registre similaire, je cherche à coder en langage PRT l’algorithme de Heap sur les permutations (n parmi n) en numérotant les conditions de départ (dans votre code ci-dessus A,B,C,D,E) dans un tableau ($COND) ce qui permettrait aisément de les faire varier. Ainsi, l’ensemble des permutations se retrouverait dans un nouveau tableau sous forme d’un nombre “concaténant” les chiffres résultant de chaque permutation, exemple : chiffres 1,2,3,4,5 -> 12345, etc…
Le langage à priori qui me semble le plus proche de PRT serait : “Microsoft Small Basic” trouvé ici :
https://rosettacode.org/wiki/Permutations#Microsoft_Small_Basic
Est-ce transposable facilement en langage PRT ?
Merci d’avance pour votre réponse
Philippe
————————————-
‘Permutations – sb
n=4
printem = “True”
For i = 1 To n
p[i] = i
EndFor
count = 0
Last = “False”
While Last = “False”
If printem Then
For t = 1 To n
TextWindow.Write(p[t])
EndFor
TextWindow.WriteLine(“”)
EndIf
count = count + 1
Last = “True”
i = n – 1
While i > 0
If p[i] < p[i + 1] Then
Last = “False”
Goto exitwhile
EndIf
i = i – 1
EndWhile
exitwhile:
j = i + 1
k = n
While j < k
t = p[j]
p[j] = p[k]
p[k] = t
j = j + 1
k = k – 1
EndWhile
j = n
While p[j] > p[i]
j = j – 1
EndWhile
j = j + 1
.
