From a65d0f022b80af9ce75c5c3f5f21c98da1a87cf6 Mon Sep 17 00:00:00 2001 From: schodet Date: Mon, 23 Jan 2006 20:13:08 +0000 Subject: Limitations aux moteurs que l'on a. --- m/motors/motors.pl | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'm/motors') diff --git a/m/motors/motors.pl b/m/motors/motors.pl index c388ea3..1f173ac 100644 --- a/m/motors/motors.pl +++ b/m/motors/motors.pl @@ -119,13 +119,10 @@ sub compute } 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 ({ m => 10, d => 80 }, 'RE025CLL', 10); +compute ({ m => 10, d => 80 }, 'RE025G', 20.25); +compute ({ m => 10, d => 60 }, 'RE025CLL', 10); +compute ({ m => 10, d => 60 }, 'RE025G', 20.25); +compute ({ m => 10, d => 40 }, 'RE025CLL', 10); +compute ({ m => 10, d => 40 }, 'RE025G', 20.25); compute_end; -- cgit v1.2.3