Extraire des valeurs d'un tableauRésolu

Question

Bonjour et merci de votre aide et du temps consacré
Mon projet et de réaliser une toute petite application pour automatiser la réalisation de patron de livre plié comme montré dans l'exemple sur ce site : 
http://www.faitmain-faitcoeur.fr/en-papier/tuto-livre-plie-ecriture/ 

Donc jusqu'à maintenant : 
1) Je charge une photo dans une pictureBox (Image brut sans le traçage de ligne) : çà j'y suis arrivé
2) Je récupère les hauteurs de bande de couleur (départ=>arrivée) de chaque colonne dans un tableau comme le tableau ci-dessous : çà j'y suis arrivé
3) Et donc maintenant il me faudrait extraire le tableau final et là franchement pour moi c'est trop compliqué donc si quelqu'un pouvait me donner des conseil ce serait très gentil.



Voici le problème que je rencontre dans un tableau à deux dimension comme ci-dessous je voudrais extraire des données dans un nouveau tableau.
Donc voici comment mon tableau est formalisé
4	188	193
5	188	193
6	187	193
7	101	116
7	186	193
8	93	124
8	185	193
9	90	127
9	184	193
10	85	131
10	184	192
11	83	133
11	183	192
12	80	137
12	181	192
13	79	139
13	180	192
14	75	141
14	179	192
15	74	143
15	178	192
16	72	145
16	176	192
17	71	146
17	176	191
18	69	148
18	174	191
19	67	149
19	173	191
20	65	151
20	171	191
21	65	152
21	170	191
22	63	154
22	167	191
23	62	155
23	166	191
24	60	157
24	163	191
25	59	157
25	162	191
26	58	191
27	57	191
28	56	191
29	55	191
30	54	98
30	120	191
31	53	94
31	123	192
32	52	88
32	128	192
33	51	86
33	131	192
34	50	82
34	135	192
35	49	80
35	135	192
36	49	78
36	131	193
37	48	76
37	129	193
38	47	73
38	126	193
39	46	72
39	124	193
40	45	70
40	120	191
41	45	69
41	118	189
42	44	67
42	114	185
43	43	66
43	112	183
44	4	8
44	43	64
44	108	179
45	3	8
45	42	63
45	106	177
46	3	9
46	41	61
46	102	175
47	4	10
47	41	60
47	100	176
48	5	11
48	40	59
48	97	177
49	5	12
49	40	58
49	95	177
50	5	14
50	39	57
50	91	178
51	6	14
51	39	56
51	89	161
51	161	178
52	7	16
52	38	55
52	84	157
52	162	179
53	7	18
53	37	54
53	82	155
53	162	179
54	7	20
54	37	53
54	77	151
54	164	180
55	8	22
55	37	52
55	75	149
55	164	180
56	9	25
56	36	51
56	69	145
56	166	181
57	9	27
58	61	139
58	167	182
59	10	34
59	35	49
59	57	137
59	167	182
60	11	134
60	169	183
61	11	132
61	169	183
62	12	128
62	170	183
63	13	126
63	170	184
64	13	122
64	172	184
ect ...
donc Voici les conditions  d'extraction :
En colonne 0 : un numéro unique ou répété
Donc en partant du départ du tableau colonne "0":
Si le numéro est unique alors
je récupère la ligne 
autrement  
Si le numéro est répété alors 
je récupères qu'une  seule ligne des numéro répété  avec comme condition:
à la première ligne de la colonne "0"  si le numéro est répété alors
je prends la valeur la plus haute de la colonne "1" et je conserve donc cette ligne.
Ensuite je continu  et dans la série d'après quelque soit le nombre de  répetition je prend la valeur inférieur à celle d'avant .
Lorsque j'arrive à la valeur la plus petite ; je redémarre avec une valeur la plus haute 
jusqu'à arrivé à  un numéro unique
comme ceci jusqu'à la fin du tableau.
Merci Bcp

ucfoutu · Answer

Bonjour,
et donc, dans ta série des "donc", jugeant la chose trop "compliquée" pour toi, tu attends quoi, exactement ? 
Je te rappelle que l'on ne reçoit ici de l'aide que concernant une difficulté technique, spécifique et parfaitement isolée rencontrée dans le cours de ton développement.
Où est cette difficulté précise et isolée (accompagnée du code au moins tenté pour la résoudre) ?

Whismeril · Answer

Bonsoir et c'est là que l'on se dit
Oh, quel dommage de ne pas se servir de .Net (VB, C#, etc.. peu importe) pour ce que c'est => Un Langage Objet
Et oui là, j'ai déjà dit que ton programme serait bien plus simple à coder avec une collection d'objets, mais bon....

cs_roro69 · Answer

Bonsoir et merci de votre intèret
voici ce qui a été tenté pour récupérer les infos:

'reprise dans la colonne 4 des répétitions

For i = LBound(Tablo, 2) To UBound(Tablo, 2)
    MonDico(Tablo(0, i)) = MonDico(Tablo(0, i)) + 1
 Next
 For i = LBound(Tablo, 2) To UBound(Tablo, 2)
    Tablo(3, i) = MonDico(Tablo(0, i))
 Next

'Création Tableau final
 Rep = 0
 Ind = 0
 x = 0
 While Ind < UBound(Tablo, 2)
    If Tablo(3, Ind) = Rep Then
        For i = 0 To 2
            ReDim Preserve tabfin(0 To 2, 0 To x)
            tabfin(i, x) = Tablo(i, Ind + Rep1 - 1) ' et non Ind+Rep1
        Next i
        If Rep1 = 1 Then Rep1 = Rep Else Rep1 = Rep1 - 1
        Ind = Ind + Rep
        x = x + 1
    Else
        Rep = Tablo(3, Ind)
        Rep1 = Rep
    End If
 Wend

 
Mais en fait je me suis aperçu que ce n'ètait pas sur les répetions qu'il fallait filtrer mais sur l'ensemble de la colonne. Et là j'ai beau chercher je ne trouve vraiment pas.
Après ceci ;si je n'ai pas d'autre piste je mettrai fin à ce projet car un peu trop compliqué pour moi.
En tout cas merci de votre aide et du temps consacré

vb95 · Answer

Salut cs_roro69
le plus dur est de comprendre ce que tu veux faire
Voilà ce que j'ai compris

4 188 193   ' n4 : unique on prend 188
5 188 193   ' n5 : unique on prend 188
6 187 193   ' n6 : unique on prend 187
7 101 116   ' n7 : on prend 186 en colonne 1
7 186 193
8 93 124     ' n8 : on prend 185 car < 186 en colonne 1
8 185 193
9 90 127     ' n9 : on prend 184 car < 185 en colonne 1
9 184 193
10 85 131   ' n10 : on prend 85 car < 184 en colonne 1
10 184 192
11 83 133    ' n11 : on prend 83 car < 85 en colonne 1
11 183 192
12 80 137    ' n12 : on prend 80 car < 83 en colonne 1
12 181 192
13 79 139    ' n13 : on prend 79 car < 80 en colonne 1
13 180 192
14 75 141    ' n14 : on prend 75 car < 79 en colonne 1
14 179 192
15 102 143   ' n15 : on prend 178 car pas de valeur < à 75 
-15 178 192
16 72 145    '  n16 : on prend 176 car < 178 en colonne 1
16 176 192
17 71 146    '  n17 : on prend 71 car < 176 en colonne 1
17 176 191 

J'ai modifié la ligne avec un tiret pour ce qui suit.
Si à un moment on ne trouve pas dans la série courante une valeur inférieure à celle prise dans la série précédente ( la série avec le n° 15)  on prend la valeur la plus haute de la série courante et on continue à la prochaine série  et répétant le processus

cs_ShayW · Answer

Bonjour

Je récupère les hauteurs de bande de couleur (départ=>arrivée) de chaque colonne dans un tableau comme le tableau ci-dessous : çà j'y suis arrivé 

Peux tu montrer  ton code ?

vb95 · Answer

salut cs_roro69

Regarde ce que donne ce code
sur une Form tu mets
- ta PictureBox1
- 3 Listbox (1 , 2 et 3 ) côte-côte et de même dimension
- un bouton Button1 pour lancer le processus

Les listboxs vont afficher les valeurs des 3 colonnes
On a compris pour prendre le plus haut et le plus bas 
Problème : pourquoi prend-on à certains endroits les valeurs intermédiaires ? 
Essaies d'expliquer avec l'exemple que tu as donné ( voir ci-dessous) en te servant des valeurs des colonnes pour qu'on comprenne ! Merci

15 74 143 ( unique donc je prend ligne)
16 72 145
16 176 192 (Là je prend plus grand que 74(colonne1))
17 71 146 (Là je prend plus petit (Colonne1)) voir remarque
44 4 8
44 43 64
44 108 179 (Là je prend plus grand (colonne1))
45 3 8
45 42 63 (Là je prend intermédiare) pourquoi pas 106 ?
45 106 177
46 3 9 (Là je prend plus petit (Colonne1))
46 41 61
46 102 175
47 4 10
47 41 60 (Là je prend intermédiare) pourquoi pas 100 ?
47 100 176
48 5 11
48 40 59
48 97 177 (Là je prend intermédiaire (colonne1))
48 100 176
49 40 58
49 95 177 (Là je prend plus grand (colonne1))
50 5 14 (Là je prend plus petit (Colonne1))
50 39 57
50 91 178 


de plus cette ligne est unique
17 71 146 (Là je prend plus petit (Colonne1))
donc là je prends la ligne ! Ok mais ensuite c'est plus petit ou plus grand qu'il faut prendre ?

Public Class Form1    Private Structure Structcolonne        Dim col0 As Integer        Dim col1 As Integer        Dim col2 As Integer    End Structure    Private listecols As New List(Of Structcolonne)    Private listecol As Structcolonne    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load    End Sub    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim img As Bitmap = New Bitmap(PictureBox1.Image)        Dim c As Color, r As Integer, g As Integer, b As Integer        Dim toppix As Integer, pixlength As Integer, total As Integer, ans As Integer        For i = 0 To img.Width - 1            toppix = 0            pixlength = 0            For j = 0 To img.Height - 1                c = img.GetPixel(i, j)                r = Convert.ToInt32(c.R)                g = Convert.ToInt32(c.G)                b = Convert.ToInt32(c.B)                ans = (r + g + b) \ 3                If (ans > 127) Then                    r = 255 : g = 255 : b = 255                Else                    r = 0 : g = 0 : b = 0                End If                total = r + g + b                If toppix = 0 Then                    If total < 765 Then                        toppix = j                        pixlength = 1                    End If                Else                    If total < 765 Then                        pixlength += 1                    Else                        With listecol                            .col0 = i                            .col1 = toppix - 1                            .col2 = toppix + pixlength                        End With                        listecols.Add(listecol)                        toppix = 0                        pixlength = 0                    End If                End If            Next        Next        For i = 0 To listecols.Count - 1            With listecols(i)                ListBox1.Items.Add(.col0.ToString)                ListBox2.Items.Add(.col1.ToString)                ListBox3.Items.Add(.col2.ToString)            End With        Next    End SubEnd Class

vb95 · Answer

Autre chose 

Lorsque pour la colonne 1 il y a plusieurs fois le même nombre on prend le plus petit ou le plus grand de cette série  ! C'est bien cela ?

4 188 193 ( unique donc je prend ligne)
5 188 193 ( unique donc je prend ligne)
6 187 193 ( unique donc je prend ligne)
7 101 116
7 186 193 (Là le plus grand parmi la série des 7
8 93 124 (Là le plus petit parmi la série des 8)
8 185 193
9 90 127
9 184 193 (Là le plus grand parmi la série des 9)
 intermédiaire ????????
10 85 131 (Là le plus petit parmi la série de 10)
10 184 192 
etc........

si un intermédiaire était placé entre 9 et 10 cela ne change pas la suite une fois sur 2 plus petit plus grand ?
Pourquoi des intermédiaires et sur quoi te bases-tu pour les déterminer ?

Le truc est très facile à faire mais il faut comprendre le mécanisme exact

cs_roro69 · Answer

Bonsoir et merci pour votre aide et  vos conseils
Je vais tenté de reformuler  depuis le début donc :
Mon projet et de réaliser une toute petite application pour automatiser la réalisation de patron de livre plié comme montré dans l'exemple sur ce site : 
http://www.faitmain-faitcoeur.fr/en-papier/tuto-livre-plie-ecriture/ 

Donc pour ce faire : 
1) Je charge une photo dans une pictureBox (Image brut) 
2) Je récupère les départ et arrivée  (d'une couleur) de chaque colonne de toute l'image
3)Donc ensuite comme expliqué dans le `''tuto ci-dessus'''' chaque colonne représente une feuille qu'il faut plié.(Donc chaque colonne doit être unique)
4) Donc si colonne unique on garde ainsi
5) Si colonne répété 2 fois alors :

-  une colonne réalise la partie haute, (Valeur de départ la plus élevé)
- la colonne suivante réalise la partie basse, (Valeur de départ la plus petite)
- la colonne suivante réalise la partie haute (Valeur de départ la plus élevé)
- la colonne suivante réalise la partie basse(Valeur de départ la plus petite) .......  et ainsi de suite, jusqu'à retrouver des colonnes complètes(Unique) ou des colonne répété deux fois

6)Si colonne répeté 3 fois alors
-  une colonne réalise la partie haute, (Valeur de départ la plus élevé)
- la colonne suivante réalise la partie milieu,(Valeur de départ entre la plus élevé et la plus petite )
- la colonne suivante réalise la partie basse (Valeur de départ la plus petite)
- la colonne suivante réalise la partie haute(Valeur de départ la plus haute)
- la colonne suivante réalise la partie milieu,(Valeur de départ entre la plus élevé et la plus petite )
- la colonne suivante réalise la partie basse (Valeur de départ la plus petite)
 .......  et ainsi de suite, jusqu'à retrouver des colonnes complètes(Unique) ou des colonne répété deux ,trois ; quatre ,cinq fois .

7)Si colonne répété 4 fois ou + alors :
--Même principe que les colonnes répété 3 fois en ajoutant deux partie milieu,(Valeur de départ entre la plus élevé et la plus petite )

Je suis désolé de ne pas pouvoir mieux expliquer ma demande 
Merci de votre temps consacré et de votre aide

ucfoutu · Answer

2) Je récupère les départ et arrivée (d'une couleur) de chaque colonne de toute l'image 
 Je ne comprends pas.
De quelle couleur ?
Montre ce code de "récupération". Il nous permettra peut-être (?) de comprendre ce que tu veux dire ..
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

cs_ShayW · Answer

1 efface ces lignes pc.WriteLine("Begin Count:") pc.WriteLine() pc.Close() et dans la boucle pc.WriteLine() Private listnum As New List(Of List(Of Int32)) 'la liste des résultats Private listresult As New List(Of List(Of Int32)) Private list1 As New List(Of String) Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load'on lit ton fichier pixelcompter.txt et on le décompose GetList() DataProcess() End SubPrivate Sub GetList() list1 = IO.File.ReadAllLines("C:/Compter/pixelcompter.txt").ToList Dim numbers As List(Of Int32) Dim vect() As String For Each item In list1 vect = item.Split(New Char() {}, StringSplitOptions.RemoveEmptyEntries) numbers = New List(Of Int32) For Each num In vect numbers.Add(Convert.ToInt32(num)) Next listnum.Add(numbers) Next End Sub Private Sub DataProcess() ' selon ton algo ' En colonne 0 : un numéro unique ou répété 'Donc en partant du départ du tableau colonne "0": 'Si le numéro est unique alors je récupère la ligne 'autrement Si le numéro est répété alors 'je récupères qu'une seule ligne des numéro répété avec comme 'condition: 'à la première ligne de la colonne "0" si le numéro est répété 'alors 'je prends la valeur la plus haute de la colonne "1" et je conserve 'donc cette ligne. 'Ensuite je continu et dans la série d'après quelque soit le 'nombre de répetition je prend la valeur inférieur à celle d'avant . 'Lorsque j'arrive à la valeur la plus petite ; je redémarre avec une 'valeur la plus haute 'jusqu'à arrivé à un numéro unique Dim flaghighest As Boolean = True Dim data As New List(Of Int32) Dim lastindex As Int32 lastindex = listnum(0)(0) listresult.Add(listnum(0)) For iter = 1 To listnum.Count - 1 If listnum(iter)(0) <> lastindex Then 'index unique listresult.Add(listnum(iter)) lastindex = listnum(iter)(0) ElseIf flaghighest Then 'get highest value If listnum(iter)(1) > listnum(iter - 1)(1) Then listresult.RemoveAt(listresult.Count - 1) listresult.Add(listnum(iter)) End If lastindex = listnum(iter)(0) flaghighest = False Else 'get lowest value If listnum(iter)(1) < listnum(iter - 1)(1) Then listresult.RemoveAt(listresult.Count - 1) listresult.Add(listnum(iter)) End If lastindex = listnum(iter)(0) flaghighest = True End If Next End SubEnd Class

vb95 · Answer

J'ai été sur le site par curiosité et je commence à comprendre
Dans ton tableau d'origine tu as les colonnes d'une image
Chaque colonne peut contenir 1 bloc ou 2 blocs ou plus avec à chaque fois le point de départ de la couleur et son point d'arrivée

- si il n'y a qu'un bloc on prend la ligne ( cela correspond à une colonne pleine sur l'image) 
- si il y a 2 blocs on prend alternativement le haut pour le bloc courant et le bas du bloc suivant : c'est à dire que les 2 colonnes de l'image sont représentées qu'à moitié ( la première est le haut et la seconde est le bas)
-si il y a 3 blocs on prend le haut pour le bloc courant , l'intermédiaire du bloc suivant et le bas du bloc qui suit le précédent

Et encore je dis cela mais sans aucune certitude
C'est bien des Japonais avec leur origami pour inventer un truc aussi compliqué !

vb95 · Answer

Continuons dans notre compréhension 
Dans le tableau qui suit C sont les colonnes de l'image et le chiffre accolé au C le nombre de blocs départ-arrivée

Ligne = je prends la ligne 
+  = je prends la valeur la plus élevée
-   = je prends la valeur la moins elevée


C1    ligne
C1    ligne
C2      +
C2      -
C2      + 
C2       -
C3      +
??????? on fait quoi là : on prend la valeur intermédiaire de la colonne suivante et la valeur la plus petite de la colonne suivant la précédente

Cela signifie aussi que dans le tableau d'origine une colonne image unique n'a qu'une ligne
Une colonne image doublée à 4 lignes (on prend la plus elevée du bloc de 2 puis la plus basse du bloc de 2 qui suit)
Une colonne image triplée à 9 lignes ( on prend plus élevé puis intermédiaire puis la plus basse en se déplaçant à chaque fois d'un bloc)

vb95 · Answer

Resalut cs_roro69
Dis moi si j'ai raison

Tu as dit :

En colonne 0 : un numéro unique ou répété
Donc en partant du départ du tableau colonne "0":
Si le numéro est unique alors
je récupère la ligne
autrement
Si le numéro est répété alors
je récupères qu'une seule ligne des numéro répété avec comme condition:
à la première ligne de la colonne "0" si le numéro est répété alors
je prends la valeur la plus haute de la colonne "1" et je conserve donc cette ligne.
Ensuite je continu et dans la série d'après quelque soit le nombre de répetition je prend la valeur inférieur à celle d'avant .
Lorsque j'arrive à la valeur la plus petite ; je redémarre avec une valeur la plus haute
jusqu'à arrivé à un numéro unique
comme ceci jusqu'à la fin du tableau.  

Ce que je crois comprendre

1) ligne unique : on prend la ligne

2) ligne répété :on prend le plus haut
3) ligne suivante : on prend inférieur mais le plus proche du précédent
4) ligne suivante : on prend inférieur mais le plus proche du précédent
5) ligne suivante : on prend inférieur mais le plus proche du précédent et là mince il n'y a pas de valeur inférieure : donc on prend la valeur la plus élevée et on retourne au point 3

Si entre les points 3 et 5 on trouve une ligne unique on va au point 1 et ensuite on va au point 2 si le ligne qui arrive est répétée

Extraire des valeurs d'un tableau

13 réponses

Votre réponse

Discussions similaires