Trouvé dans un ancien forum

[Martin]

J'ai trouvé ces programmes courts sur le forum Boris Cornets Original Yellow, posté par le membre alban320
Ce programme fonctionne en français, les termes spécifiques doivent être traduits dans n'importe quelle langue pour qu'il soit universel.

CHUTE :
Calcule la chute de tension qui doit être inférieure à 3%, en tenant compte de la tension, de la longueur, de la charge électrique et de la section (en millimètres carrés).

Code: Select all

CHUTE:
LOCAL I,CH,P,L,S,U
DO
 CLS
 PRINT "TENSION (V) "+CHR$(63)+" ";
 INPUT U
 IF U=0
  STOP
 ELSE
  PRINT "SECTION en mm2 "+CHR$(63)+" ";
  INPUT S
  PRINT "LONGUEUR (m) "+CHR$(63)+" ";
  INPUT L
  PRINT "PUISSANCE en KW "+CHR$(63)+" ";
  INPUT P
  IF U=380
   I=P/0.65816
  ELSEIF U=220
   I=P/0.220
  ELSE
   I=P/U*1000
  ENDIF
  CH=0.0173*I*L/S
  PRINT "CHUTE Tension:"
  AT 15,4
  PRINT FIX$(CH,2,10);
  PRINT "%"
  GET
 ENDIF
UNTIL U=0

P380:
Si vous connaissez la puissance en Kilowatts, le programme vous donne l'intensité en Ampères

Code: Select all

P380:
LOCAL P,I,C
DO :CLS :PRINT "PUISSANCE (KW) "+CHR$(63);
INPUT P :IF P=0 :STOP :ELSE :AT 1,2 :PRINT "COS Phi "+chr$(63); :INPUT C :IF P<>0
I=P/0.65816/C
AT 1,3 :PRINT "Intensite = ";
PRINT FIX$(I,2,10)
GET :ENDIF :ENDIF :UNTIL P=0

CABLE:
Il vous conseille quel câble (section en mm²) vous avez besoin en fonction de la puissance à transporter et de la longueur du câble.
Le programme calcule également la chute de tension dans le câble selon les règles.

Code: Select all

CABLE:
LOCAL U%,H,I,K,L,L1,M,N,P,U,C$(3),Z
ESCAPE ON
CLS
PRINT "    TENSION "+CHR$(63)+REPT$(" ",20);
U%=MENUN(2,"220 Mono ,380 Tri")
IF U%=1
 U=220
 M=1
 K=2
ELSEIF U%=2
 U=380
 M=1.732
 K=M
ENDIF
CLS
PRINT "Puissance(KVA):";
INPUT P
I=(P*1000)/(U*M)
PRINT "Intensite = ";
PRINT FIX$(I,2,-7)
PRINT "Long. CABLE "+CHR$(63)+" ";
INPUT L1
IF L1<100
 L1=L1+(SQR((100-L1)*3.3333))
ENDIF
L=L1/1000
N=U*.05
Z=N/(K*I*L)
IF Z>=12.1
 C$="1.5"
ELSEIF Z<12.1 AND Z>=7.41
 C$="2.5"
ELSEIF Z<7.41 AND Z>=4.61
 C$="4"
ELSEIF Z<4.61 AND Z>=3.03
 C$="6"
ELSEIF Z<3.03 AND Z>=1.83
 C$="10"
ELSEIF Z<1.83 AND Z>=1.15
 C$="16"
ELSEIF Z<1.15 AND Z>=.727
 C$="25"
ELSEIF Z<.727 AND Z>=.524
 C$="35"
ELSEIF Z<.524 AND Z>=.387
 C$="50"
ELSEIF Z<.387 AND Z>=.268
 C$="70"
ELSEIF Z<.268 AND Z>=.193
 C$="95"
ELSEIF Z<.193 AND Z>=.153
 C$="120"
ELSEIF Z<.153 AND Z>=.124
 C$="150"
ELSEIF Z<.124 AND Z>=.0991
 C$="185"
ELSEIF Z<.0991 AND Z>=.0754
 C$="240"
ELSEIF Z<.0754 AND Z>=.601
 C$="300"
ELSE
 C$="****"
ENDIF
CLS
AT 1,1
PRINT " CABLE Conseill";CHR$(130)+" : "+REPT$(" ",25);
IF M=1.732
 PRINT "5 G ";
ELSEIF M=1
 PRINT "3 G ";
ENDIF
PRINT C$;
PRINT " mm2 "
PAUSE 0
GET

Il est utile de bien choisir un câble électrique, en tenant compte de sa longueur, de sa section, de sa charge, de sa disposition, etc...
.

Calcul_de_cable.zip

.
Sincèrement et en toute bonne foi
Martin
(Traduction Google)