From eef72722eb82a18440d1824671c9cc81215eaf4c Mon Sep 17 00:00:00 2001 From: schodet Date: Sun, 4 Dec 2005 21:08:10 +0000 Subject: Ajout du RE025G et présentation en colones. --- m/motors/motors.pl | 55 ++++++++++++++++++++++++++++++++++++++++-------------- 1 file changed, 41 insertions(+), 14 deletions(-) (limited to 'm/motors') diff --git a/m/motors/motors.pl b/m/motors/motors.pl index 8e49a1c..aeeb387 100644 --- a/m/motors/motors.pl +++ b/m/motors/motors.pl @@ -20,6 +20,11 @@ my %motors = ( n_0 => 4860, # Vitesse à vide, tr/min M_H => 129, # Couple de démarage, mNm }, + 'RE025G' => { + U => 12, # Tension nominale, V + n_0 => 6800, # Vitesse à vide, tr/min + M_H => 146, # Couple de démarage, mNm + }, ); my %gears = ( @@ -81,24 +86,46 @@ sub comp_cod_res return $r_ * 2 * $pi / $$g{i} / $cod; } +sub compute_begin +{ + print < 10, d => 80 }, 'RE025CLL', 10); -compute ({ m => 10, d => 80 }, 'RE025CLL', 20.25); -compute ({ m => 10, d => 60 }, 'RE025CLL', 10); -compute ({ m => 10, d => 60 }, 'RE025CLL', 20.25); -compute ({ m => 10, d => 40 }, 'RE025CLL', 10); -compute ({ m => 10, d => 40 }, 'RE025CLL', 20.25); +compute_begin; +for (keys %motors) +{ + compute ({ m => 10, d => 80 }, $_, 10); + compute ({ m => 10, d => 80 }, $_, 20.25); + compute ({ m => 10, d => 60 }, $_, 10); + compute ({ m => 10, d => 60 }, $_, 20.25); + compute ({ m => 10, d => 40 }, $_, 10); + compute ({ m => 10, d => 40 }, $_, 20.25); +} +compute_end; -- cgit v1.2.3