Discussion :

[moomaa]

svp lors de l'execution d'un code bash je recois l'errreur suivant :
awk: ./calc_average.awk:18: fatal: division by zero attempted
qlq'1 peut m'aider svp et merci d'avance
le code bash est comme suit :
==================================
script calc_average.awk
==================================

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
BEGIN {
sum = 0;
cpt = 0;
}
{
sum += $1;
cpt++;
}
END {
average = sum / cpt+0;
printf "%f\n", average;
}

[ram-0000]

Je dirais que tu tentes de faire une division par 0 (comme indiqué par le message).

Je voie au moins 2 causes possibles :

• Tu ne passe jamais dans le code "sum += $1;"
• $1 vaut toujours 0

PS : je pense que le code "average = sum / cpt+0;" pourrait être remplacé par "average = sum / cpt;". L'adition du 0 ne sert strictement à rien.

[moomaa]

Merci pour votre reponse ,si vous pouvez m'expliquer comment je peux resoudre ce prblème

[ram-0000]

Heu ...

• En faisant en sorte de passer dans le code "sum += $1;" au moins 1 fois
• En faisant en sorte que $1 soit différent de 0 au moins 1 fois

Plus sérieusement, comment veux tu que l'on t'aide si tu ne montres pas les données en entrée que tu donnes à awk ainsi que la ligne d'appel à awk

[moomaa]

voici les codes complets: (c'est une simulation sous NS2)
=======================================
start.sh
=======================================

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/bin/bash

# Script de lancement des différentes simulation
# Config. des chemins
TCL=simulations
AWK=scripts_awk
RESULT_DIR=results
RESULT=./results.tr
NS=/home/malqui/ns-allinone-2.35/ns-2.35/ns
# set -x
rm $RESULT_DIR/*
# On effectue l'ensemble des simulation contenues dans le répertoire
for f in ./$TCL/*.tcl ; do
echo "*** Operate $f"
TCL_FILE=${f%.*}
TCL_FILE=${TCL_FILE##*/}
j=1
# On fait varier le CRB de 1 à 12
while [ $j -lt 13 ] ; do
echo "*** CBR=$j"
i=0
# On fait 20 simulations
while [ $i -lt 20 ] ; do
echo "****** Simulation #$i"
$NS $f $j
for x in ./$AWK/*.awk ; do
echo "********* Operate $x"
AWK_FILE=${x%.*}
AWK_FILE=${AWK_FILE##*/}
$x $RESULT >> "$RESULT_DIR/$TCL_FILE-$AWK_FILE-$j.csv"
done
i=$[$i+1]
echo
done
# On fait la moyenne des valeurs, pr export en courbe
echo "****** Calculate average for CBR=$j"
for x in ./$AWK/*.awk ; do
AWK_FILE=${x%.*}
AWK_FILE=${AWK_FILE##*/}
echo -n "$j " >> "$RESULT_DIR/curve-$TCL_FILE-$AWK_FILE.csv"
./calc_average.awk $RESULT_DIR/$TCL_FILE-$AWK_FILE-$j.csv >> "$RESULT_DIR/curve-$TCL_FILE-$AWK_FILE.csv"
done
j=$[$j+1]
echo
done
done
rm $RESULT
rm *.nam

========================================
simulationAdHocStatic.tcl
========================================

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
# ======================================================================
# Define options
# ======================================================================
# Set the parameters that we will use for wireless communications
set val(chan)        Channel/WirelessChannel      ; # channel type
set val(prop)        Propagation/TwoRayGround     ; # radio-propagation model
set val(netif)       Phy/WirelessPhy              ; # network interface type
set val(mac)         Mac/802_11                   ; # MAC type
set val(ifq)         Queue/DropTail/PriQueue      ; # interface queue type
set val(ll)          LL                           ; # link layer type
set val(ant)         Antenna/OmniAntenna          ; # antenna model
set val(ifqlen) 50; # Taille de la queue
set val(x) 1000; # X Largeur de la région (en mètres)
set val(y) 1000; # Y Hauteur de la région (en mètres)
set val(nn) 25; # Nombre de nœuds
set val(stop) 30; # Temps de la simulation (en secondes)
set val(sources) [lindex $argv 0]; # Nombre de sources passé enargument
set val(packet_size) 512; # Taille des paquets envoyés (en octets)
set val(interval) 0.1; # Intervalle d'envoi de paquets (en secondes)
set val(rp) DSR; # Protocole de routage
## Mobilité
# Définition de la variable de Random pour le placement des nœuds dans la région
global defaultRNG
$defaultRNG seed 0 
set sizeRNG [new RNG]
$sizeRNG next-substream
# Variable de random utilisée pour un point sur la grille
set size_ [new RandomVariable/Uniform]; # Variable Random uniforme
$size_ set min_ 1; # Valeur minimum
$size_ set max_ 999; # Valeur maximum
$size_ use-rng $sizeRNG
# Variable de random utilisée pour une vitesse de déplacement
set sizespeed_ [new RandomVariable/Uniform]; # Variable Random uniforme
$sizespeed_ set min_ 1; # Valeur minimum
$sizespeed_ set max_ 10; # Valeur maximum
$sizespeed_ use-rng $sizeRNG
# Création du simulateur NS
set ns [new Simulator]
# Paramétrage de l'antenne
Antenna/OmniAntenna set X_ 0; # Direction de X
Antenna/OmniAntenna set Y_ 0; # Direction de Y
Antenna/OmniAntenna set Z_ 1.5; # Direction de Z
Antenna/OmniAntenna set Gt_ 1.0; # Gain de transmission
Antenna/OmniAntenna set Gr_ 1.0; # Gain de réception
# Paramétrage de l'interface réseau
Phy/WirelessPhy set CPThresh_ 10.0; # Collision Threshold
Phy/WirelessPhy set CSThresh_ 1.559e-11; # Portée de détection : 500 mètres
Phy/WirelessPhy set RXThresh_ 0.652e-10; # Portée de communication : 250 mètres (-91,1db)
Phy/WirelessPhy set bandwidth_ 2e6; # Capacité du médium : 2Mbits
Phy/WirelessPhy set Pt_ 0.28183815; # Puissance de transmission :24.5dbm
Phy/WirelessPhy set freq_ 914e+6; # Fréquence : 914MHz
Phy/WirelessPhy set L_ 1.0; # System Loss Factor
# Création des fichiers de trace
set f [open results.tr w]
$ns trace-all $f
$ns eventtrace-all
set nf [open aodv_sim.nam w]
$ns namtrace-all $nf
$ns namtrace-all-wireless $nf $val(x) $val(y)
# Topographie de la simulation
set topo [new Topography];
# Création de la région pour la simulation
$topo load_flatgrid $val(x) $val(y)
# Création du God
create-god $val(nn)
# Création du canal
set chan [new $val(chan)]
# Configuration du nœud
$ns node-config -adhocRouting $val(rp) \
-llType $val(ll) \
-macType $val(mac) \
-ifqType $val(ifq) \
-ifqLen $val(ifqlen) \
-antType $val(ant) \
-propType $val(prop) \
-phyType $val(netif) \
-channel $chan \
-topoInstance $topo \
-agentTrace ON \
-routerTrace ON \
-macTrace ON \
-movementTrace OFF
# Création des nœuds pour la simulation
for {set i 0} {$i < $val(nn)} {incr i} {
set node_($i) [$ns node]
$node_($i) random-motion 0
}
# Position des nœuds dans la région de manière aléatoire
# Spécification des déplacements aléatoires
for {set i 0} {$i < $val(nn)} {incr i} {
set X [expr round([$size_ value])]; # Position X en random sur la grille
set Y [expr round([$size_ value])]; # Position Y en random sur la grille
$node_($i) set X_ $X]; # Position X du nœud sur la grille
$node_($i) set Y_ $Y]; # Position Y du nœud sur la grille
$node_($i) set Z_ 0.0; # Position Z du nœud sur la grille
set speed [expr round([$sizespeed_ value])]; # vitesse en random entre 1m/s et 10m/s
set newX [expr round([$size_ value])]; # Position X en random sur la grille
set newY [expr round([$size_ value])]; # Position Y en random sur la grille
# Définition du premier mouvement
$ns at [expr 0.1 * $i] "$node_($i) setdest $newX $newY $speed";
# Définition des mouvements suivants si la simulation n'est pas terminée
$ns at [expr 0.1 * $i] "setNewDest $node_($i) $newX $newY";
}
# Méthode qui permet de définir une nouvelle destination au nœud mobile
proc setNewDest {node currentX currentY} {
global ns sizespeed_ size_; # Récupère les variables du programme
set speed [expr round([$sizespeed_ value])]; # Vitesse en random entre 1m/s et 10m/s
set nextX [expr round([$size_ value])]; # Position X en random sur la grille
set nextY [expr round([$size_ value])]; # Position Y en random sur la grille
set now [$ns now]; # Date courante de la simulation
set longX [expr $nextX-$currentX]; # Distance en X à parcourir
set longY [expr $nextY-$currentY]; # Distance en Y à parcourir
# Calcul de la longueur du chemin
set distance [expr sqrt(($longX*$longX)+($longY*$longY))];
# Détermination de la date d'arrivée au point destination
set arrivalDate [expr $now + [expr $distance/$speed]];
# Détermination de la prochaine date de mouvement après 5 secondes de pause
set nextMove [expr $arrivalDate + 5.0];
# Définition de la prochaine destination
$ns at $now "$node setdest $nextX $nextY $speed";
# Définition du prochain mouvement si la simulation n'est pas terminée
$ns at $nextMove "setNewDest $node $nextX $nextY";
}
# Création des agents pour les nœuds sources
for {set i 0} {$i < $val(sources)} {incr i} {
# Création de l'agent UDP
set udp_($i) [new Agent/UDP]
$ns attach-agent $node_($i) $udp_($i)
# Création de l'agent Null
set null_($i) [new Agent/Null]
$ns attach-agent $node_([expr [expr $val(nn) - 1] - $i]) $null_($i)
$ns connect $udp_($i) $null_($i)
# Création et paramètrage du CBR
set cbr_($i) [new Application/Traffic/CBR];
$cbr_($i) attach-agent $udp_($i)
$cbr_($i) set type_ CBR; # Type du CBR
$cbr_($i) set packet_size_ $val(packet_size); # Taille des paquets envoyés
$cbr_($i) set rate_ [expr $val(packet_size) * 8 / [$ns delay_parse
$val(interval)]]; # Taux
$cbr_($i) set random_ false
# Début d'envoi de paquets pas en même temps, sinon Erreur de segmentation
$ns at [expr 0.1 * $i] "$cbr_($i) start"; # Début d'envoi de paquets
$ns at $val(stop) "$cbr_($i) stop"; # Fin d'envoi de paquets
}
# Positionne les nœuds sur la grille
for {set i 0} {$i < $val(nn)} {incr i} {
$ns initial_node_pos $node_($i) 30; # 30 : taille du nœud dans nam
}
# Arrêt de la simulation
$ns at $val(stop) "finish"
$ns at [expr $val(stop) + 0.1] "$ns halt"
# Fonction appelée pour terminer la simulation
proc finish {} {
global ns f nf val
$ns flush-trace
close $f
close $nf
exec nam aodv_sim.nam &
exit 0
}
# Début de la simulation
$ns run

========================================
calc_average.awk
========================================

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
#!/usr/bin/awk -f

#
# Fichier AWK qui permet calculer la moyenne des valeurs
# d'un fichier
BEGIN {
sum = 0;
cpt = 0;
}
{
sum += $1;
cpt++;
}
END {
average = sum / cpt;
printf "%f\n", average;
}

===============================================
bande_passante.awk
===============================================

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/awk -f

# Fichier AWK qui permet calculer la bande passante
BEGIN {
size_packets = 0
current_node = 0
node_dest = 0
node_src = 0
id = 0
}
{
# Récupération des valeurs
current_node = $3 # nœud courant
id = $6 # ID du paquet
node_src = $14 # nœud source
node_dest = $15 # nœud destination
# On récupère le nœud destination
sub(/\:([0-9]*)/,"", node_dest)
sub(/\[/,"", node_dest)
# On récupère le nœud source
sub(/\:([0-9]*)/,"", node_src)
sub(/\[/,"", node_src)
# On supprime les "_" contenus dans le nœud courant
gsub(/_/, "", current_node);
# Le type du paquet est cbr
if($7=="cbr") {
# Il s'agit d'une réception de paquet
if($1 == "r") {
# Si le nœud destination est le nœud courant
if( packet_dest[id] == current_node ) {
size_packets = size_packets + $8;
}
}
# Il s'agit d'un envoi de paquet
else if($1 == "s") {
if ( !(id in start) ) {
start[id] = time;
packet_dest[id] = node_dest;
packet_src[id] = node_src
}
}
}
}
END {
# print "Bande passante : " (size_packets * 8) / (30 * 1e6) " Mbits/sec";
print (size_packets * 8) / (30 * 1e6);
}

===========================================
delai_bout_en_bout.awk
===========================================

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#!/usr/bin/awk -f

#
# Fichier AWK qui permet de calculer le délai de bout
# en bout des paquets envoyés
BEGIN {
nb_packets = 0
time = 0
current_node = 0
node_dest = 0
node_src = 0
id = 0
highest_packet_id = 0
}
{
# Récupération des valeurs
time = $2 # Temps
current_node = $3 # nœud courant
id = $6 # ID du paquet
node_src = $14 # nœud source
node_dest = $15 # nœud destination
# On récupère le nœud destination
sub(/\:([0-9]*)/,"", node_dest)
sub(/\[/,"", node_dest)
# On récupère le nœud source
sub(/\:([0-9]*)/,"", node_src)
sub(/\[/,"", node_src)
# On supprime les "_" contenus dans le nœud courant
gsub(/_/, "", current_node);
# Le type du paquet est cbr
if($7=="cbr") {
# Il s'agit d'une réception de paquet
if($1 == "r") {
# Si le nœud destination est le nœud courant
if( packet_dest[id] == current_node )
end[id] = time;
if( id > highest_packet_id )
highest_packet_id = id;
}
# Il s'agit d'un envoi de paquet
else if($1 == "s") {
if ( !(id in start) ) {
start[id] = time;
packet_dest[id] = node_dest;
packet_src[id] = node_src
}
}
}
}
END {
for ( id = 0; id <= highest_packet_id; id++ ) {
if( ( id in start ) && ( id in end ) ) {
if ( start[id] < end[id] ) {
total_time = end[id] - start[id] + total_time;
nb_packets++;
}
}
}
# Calcul du délai de bout en bout
delay = total_time / (nb_packets * 512 * 8);
# Affichage du résultat
print delay;
}

=====================================
perte_paquets.awk
=====================================

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
23
24
25
26
27
28
#!/usr/bin/awk -f

#
# Fichier AWK qui permet de calculer le nombre de
# paquets perdus
BEGIN{
packets_sent = 0
packets_received = 0
packets_dropped = 0
}
{
# Si le type du paquet est cbr
if($7=="cbr"){
# Si il s'agit d'une réception de paquet
if($1 == "r")
packets_received++;
# Si il s'agit d'un envoi ou d'un forward de paquet
else if($1 == "s" || $1 =="f")
packets_sent++;
# Si il s'agit d'un paquet droppé
else if($1 == "D")
packets_dropped++;
}
}
END{

print (packets_dropped / packets_sent) * 100;
}

[ram-0000]

Quand je parlais des données, je parlais de ce fichier : $RESULT_DIR/$TCL_FILE-$AWK_FILE-$j.csv qui est généré par ton script.

• Quel est son contenu ?
• Son contenu correspond il bien à ce que tu attends ?

Au fait, il va falloir que toi aussi tu te retrousses les manches et que tu cherches aussi de ton côté. Je t'ai donné une piste, à toi aussi d'avancer sur ton problème.

[moomaa]

Non il ne repond pas à mes attends
voici son contenu :
========================
fichier.csv
========================
1 0.000000
2 0.000000
3 0.000000
4 0.000000
5 0.000000
6 0.000000
7 0.000000
8 0.000000
9 0.000000
10 0.000000
11 0.000000
12 0.000000

[ram-0000]

et bien maintenant, tu connait la cause de ton problème. Toutes tes valeurs son nulles et donc tu divises par 0.

1ere chose, corriger ton calcul de moyenne car la moyenne de 10 valeurs à 0 est 0. Tu dois rajouter un test afin de ne pas faire la division par 0 (et provoquer cette erreur).

2eme chose, trouver pourquoi toutes tes valeurs sont nulles.

[moomaa]

le probleme est resolu je vous remercie infiniment pour votre collaboration