Discussion :

[kuligan]

Bonjour

Je commence par mon bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
For i = 0.0 To 7.0 Step 0.1
 
       Kbut(i) = 3 * coeffA * (i ^ 2) + 2 * coeffB * i + coeffC
       Force(i) = KRess * i
       ForceBS(i) = (KRess + Kbut(i)) * i
       Forceeq(i) = ForceBS(i) - Force(i)
 
Next
For Each item As Object In Forceeq
       If ecart > item Then
             ind = Array.FindIndex(Forceeq, item)
             MsgBox(ind)
        End If
Next item

Problème: dans la première boucle for je lui demande un step de 0,1 donc je devrais avoir 70 valeurs dans mes tableaux or ca ne m'en affiche que 7. Je me demande donc si les index d'un tableau peuvent etre autre qu'un integer? Il est clair que du coup ma deuxième boucle for me donne pas le bon index vu qu'il y en a que 7 dans mon tableau.Si quelqu'un peut m'éclairer je suis preneur.

Merci d'avance

[Pol63]

un index de tableau est en effet un entier

sinon ton code a l'air d'etre pas POO donc je te conseille de faire des classes et des collections plutot que des tableaux pour chaque valeur !

[kuligan]

Ok je vais essayer j'en ai jamais fait encore mais je devrais trouver rapidement comment faire!

Merci

[kuligan]

merci Pol63 pour m'avoir guidé!Voila la solution ( peut etre amélioré largement!)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        Dim dic As New Dictionary(Of Double, Double)
        Dim lst As New List(Of Double)
        Dim lst1 As New List(Of Double)
        Dim lst2 As New List(Of Double)
        Dim lst3 As New List(Of Double)
        Dim i As Double
 
        For i = 0.0 To 7.0 Step 0.001
 
            lst.Add(3 * coeffA * (i ^ 2) + 2 * coeffB * i + coeffC)
            lst1.Add(KRess * i)
            lst2.Add((KRess + lst(i * 1000)) * i)
            lst3.Add(lst2(i * 1000) - lst1(i * 10))
            dic.Add(lst3(i * 1000), i)
 
        Next
        For Each kvp As KeyValuePair(Of Double, Double) In dic
             If (ecart - kvp.Key > 0.04) And (ecart - kvp.Key < 0.05) Then
                     dic.TryGetValue(kvp.Key, ind)
             End If
        Next kvp

[Pol63]

c'est pas plus joli

je ne sais pas ce que tu mets dans les collections, et d'ailleurs si quelqu'un doit modifier ton code dans quelques mois il ne le saura pas non plus !


avec des exemples nommés si dans list1 tu mets un coefficient, dans list2 une température etc...

il serait déjà mieux au lieu de mettre list1 de mettre listCoeff et list2 deviendrait listTemperatures, déjà le code est plus lisible

si en plus on passe par des classes ca devient encore plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
public class element
  public coefficient as double
  public température as double
end class

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim l as new list(of element)
dim e as new element
e.coefficient = ...
e.température = ...
l.add(e)

parce que tu verras meme toi dans 6 mois tu n'arriveras pas à relire ton code sinon

[kuligan]

malheureusement je suis débutant et en plus j'ai appris sur le tas donc je sais que mon code est pas très joli et donc j'apprécis tes remarques. Je vais essayer de rectifier ca dans le futur.