Le DataTaker

\'Programme type incluant les différentes parties que l'on doit retrouver dans tout programme

RESET
\w5

D=\d
T=\t

/D /T \'Horodatage des données (date et heure)

\' polynômes et mises à l'échelle
Y1=10,5,1"Units"
S2=1,100,4,20"Units"

\' Initialisations
1..5CV(W)=0

\w1 \'tempo de 1 secondes pour que le Datataker " digère " tout

\' Début de la définition du programme
BEGIN
\' Première chaine de scrutation
RA5S
1V(Y1,"Voltage",FF1,=1CV)
3#I(S2,"Current",FF2,=2CV)

\' Calculs
3CV("Power =")=1CV*2CV

\' Seconde chaine de scrutation
RB1H
2TT("Air Temp",FF1,AV)(MX)(MN)

\' Définition de la chaine de scrutation statistique (si nécéssaire)
RS30S

\' Définition des alarmes
RZ1S
IF1(3CV<100)"Power level is Low^M^J"

END

\' Autorise le stockage et le mode de stockage
LOGON
/o

\' démarre les chaines de scrutation
G

\' Lecture de 3 thermocouples en mode unipolaire sur la voie 3 d'un Datataker.

RESET
\w3

D=\d \'mise à la date du DT par le PC
T=\t \'mise à l'heure

BEGIN
RA2S
3*TJ("TC J")
3+TK("TC K")
3-TT("TC T")
END
G

\'Routine de gestion de batterie

RESET
\w3

P15=0 \'mode faible consommation si pas d'alim. externe
P17=10 \'mode faible conso. 10 Sec après perte alim. externe

BEGIN
RZ1M \'toutes les minutes
IF1(0%V(M18:156,101)<5650)1WARN \'batt faible : voyant 1
IF2(0%V(M18:156,101)<5550)2WARN"[HA]" \'batt trop faible, voyant 2 et stop
IF3(0%V(M18:156,101)>5650)"[1WARN=0 2WARN=0 GA]" \'batt OK, relance acquisitions, éteindre voyants

RA5S
\'ici, traitement effectué par la chaine RA

END
G

\' Programme de surveillance du débit entrant et sortant d'une pompe à injection de gas oil et
\' calcul de la consommation.
\' Mesure du débit et température du gas oil d'admission et de retour avec compensation
\' de l'expansion carrée.
\' Tient compte du coefficient d'expansion cubique pour le gas oil : 0.00067 / Deg C

RESET \' Reset the Datataker
\w5

D=\d
T=\t

/T \' Horodatage des données (heure uniquement)

\' Mises à l'échelle des débitmètres
Y1=0,0.1176"ml/min" \' Débitmètre d'alimentation
Y2=0,0.1176"ml/min" \' Débitmètre de retour
Y3=0,1"ml/min" \' Unités pour les calculs de débits
Y4=0,1"Litres" \' Unités pour les débits

20CV(W)=0 \' RAZ de l'accumulateur de consommation

\w1 \'pause d'une seconde

BEGIN
RA1D
D \' marquage de la date à minuit

RB1M \' mesure du débit chaque minute
1HSC("Supply Flow",R,Y1,FF1,=1CV) \' Débit entrant
2HSC("Return Flow",R,Y2,FF1,=2CV) \' Débit de retour

1PT385(4W,=3CV) \' Température du gas oil entrant
2PT385(4W,=4CV) \' Température du gas oil sortant

5CV(W)=2CV*((4CV-3CV)*0.00067) \' Volume expansion of return fuel

6CV("Corrected Return Flow",Y3,FF1)=2CV-5CV
7CV("Minute Consumption",Y3,FF1)=1CV-6CV
20CV("Total Consumption",Y4,FF2)=20CV+(7CV/1000)
END

\' Définition clavier pour DT600 ou afficheur déporté
K1="",[]
K2="",[]
K3="Reset",[20CV(W)=0]
K4="",[]

LOGON \'Stockage
G \'Go

\' Programme pour scruter de plus en plus lentement

\' Ce programme lit les entrées de la façon suivante :
\' - ttes les secondes du début jusqu'à 10 secondes
\' - ttes les 10 secondes de 10 secondes de fonctionnement à 1 minute
\' - ttes les minutes de 1 minute à 10 minutes de fonctionnement
\' - ttes les 10 minutes ensuite jusqu'à 1 heure

RESET
\w5

D=\d
T=\t

/D /T

/n/u
P22=44

BEGIN
\' Initialise un compteur interne pour mesurer les temps de repos
1CV(W)=0

\' déclare une chaine pour incrémenter le compteur ttes les secondes par exemple
RA1S 1CV(W)=1CV+1

\' Spécifie les voies à scruter initialement ttes les secondes initialement
RB1S 1V 2R 3F 4TT

\' Les intervalles sont détectés par la commande IF (ou ALARM), qui en interne
\' modifie la chaine de scrutation
IF1(1CV>10)"[RB10S]"
IF2(1CV>60)"[RB1M]"
IF3(1CV>600)"[RB10M]"
IF4(1CV>3600)"[H]"
END

LOGON

\' Programme pour scruter des entrées à intervalles logarithmiques

\' Scrutation à intervalles de 1, 10, 100, 1000, 10000, 100000 et 1000000 secondes.

RESET \' Reset du Datataker
\w5

D=\d
T=\t

/D /T \'Horodatage de données (heure et date)

\' initialisations diverses
/n/u
P22=44
LOGON

\' Initialize an internal counter for measuring off time intervals
1CV(W)=0

\' Pause pendant que le Datataker s'initialise
\w1

BEGIN
\' Spécification des voies scrutées dans la chaine RX
RX 1V 2R 3F 4TT

\' définie une chaine pour incrémenter un compteur toutes les secondes par exemple
RA1S 1CV(W)=1CV+1

\' Scrutation des voies à chaque intervalle logarithmique.
\' Les intervalles sont détectés par la commande IF (ou ALARM) qui automatiquement
\' envoie un ordre de scrutation (X) à la chaine RX.
IF1(1CV>1)"[X]"
IF2(1CV>10)"[X]"
IF3(1CV>100)"[X]"
IF4(1CV>1000)"[X]"
IF5(1CV>10000)"[X]"
IF6(1CV>100000)"[X]"
END

\' Programme incluant une gestion de batterie
\' Ce programme reste résidant sur la carte mémoire
\' La carte doit donc être présente dans le Datataker lors du chargement

RESET
\w3 'tempo de 3 secondes

D=\d 'mise à la date
T=\t 'et à l'heure du PC

/u/n/c/m/D/T 'pas d'unité ni n° voie ni identif. ni messages
'mais affichage Date et heure

;K1="Go",[G] 'Touche K1=Go
;K2="Halt",[H] 'Touche K2=Halt
;K3="Ef carte",[CDATA] 'Touche K3=Efface carte

;Y1=0,2"A" 'shunt 200A/100mV
;Y2=0,0.25"A" 'shunt 25A/100mV

;BEGIN
; RZ10S 'toutes les 10 secondes
; IF1(0%V(M18:156,101)<5650)1WARN 'batt faible : voyant 1
; IF2(0%V(M18:156,101)<5550)2WARN"[HA]" 'batt trop faible, voyant 2 et stop

; IF3(0%V(M18:156,101)>5650)"[1WARN=0 2WARN=0]" 'éteindre voyants

; RA1S 'toutes les secondes
; 1..3V(A,NR) 'mesure hautes tensions
; 4..5V(Y1,A,NR) 'mesure courants 200A
; 6V(Y2,A,NR) 'idem mais 25A
; 7..9PT385(120.0,NR) 'mesure températures
; 10F(A,NR) 'mesure fréquences haute tension
;END
;H 'ne démarre pas tout de suite
;LOGON 'stockage

RESET
\w3
D=\d
T=\t

\'mises à l'échelle
S1=0,400,4,20"bars"
S2=0,600,4,20"bars"
S3=-0.9,9,4,20"Tours/min"
S4=0,1560,4,20"A"
S5=0,20,4,20"cm/min"
S6=0,1300,4,20"mm"

\'mettre les param. de défaut : // (avec erreurs et retours console)
\'supprimer les erreurs : /m
\'supprimer les retours console (scrutation rapide) : /r
\'remettre les retours console : /R
/m/r

1..22CV(W)=0

\'on commence les cycles de scrutation
BEGIN
RA1M 'résultats statistiques ttes les minutes
RS1S

\'mesures effectuées ttes les secondes, stockage des moy et MAX ttes les minutes
\'les moy ds les CV impairs, MAX ds les CV pairs

1#I(AV,=1CV,W)(MX,=2CV,W)
2#I(AV,=3CV,W)(MX,=4CV,W)
3#I(AV,=5CV,W)(MX,=6CV,W)
4#I(AV,=7CV,W)(MX,=8CV,W)
5#I(AV,=9CV,W)(MX,=10CV,W)

6+I(AV,=11CV,W)(MX,=12CV,W)
6-I(AV,=13CV,W)(MX,=14CV,W)

7#I(AV,=15CV,W)(MX,=16CV,W)
8#I(AV,=17CV,W)(MX,=18CV,W)
9#I(AV,=19CV,W)(MX,=20CV,W)
10#I(=21CV,W)

\'restitution des mesures avec du texte
1CV(S1,"Moy pres PFE101:",FF2)
2CV(S1,"MAX pres PFE101:",FF2)

3CV(S1,"Moy pres PFE102:",FF2)
4CV(S1,"MAX pres PFE102:",FF2)

5CV(S1,"Moy pres PFE103:",FF2)
6CV(S1,"MAX pres PFE103:",FF2)

7CV(S1,"Moy pres PFE104:",FF2)
8CV(S1,"MAX pres PFE104:",FF2)

9CV(S2,"Moy pres PFE804:",FF2)
10CV(S2,"MAX pres PFE804:",FF2)

11CV("Moy vib. Vert. :",FF2)
12CV("MAX vib. Vert. :",FF2)

13CV("Moy vib. Hor. :",FF2)
14CV("MAX vib. Hor. :",FF2)

15CV(S3,"Moy Vit. coupe :",FF2)
16CV(S3,"MAX Vit. coupe :",FF2)

17CV(S4,"Moy Courant mot:",FF2)
18CV(S4,"MAX Courant mot:",FF2)

19CV(S5,"Moy vit allong.:",FF2)
20CV(S5,"MAX vit allong.:",FF2)

21CV(S6," Allongement:",FF2)

END
LOGON

EXEMPLE 9

\' Programme pour surveiller une girouette et calculer
\' - la vitesse moyenne du vent
\' - sa direction moyenne
\' - l'écart type de la vitesse du vent
\' - l'écart type de sa direction

\' Le programme est tel que les capteurs de vitesse et direction sont :
\' - anémomètre avec une sortie 0 - 1000 mV pour 0 - 50 m/s
\' - indicateur de direction avec une sortie 0 - 1000 mV pour 0 - 360 deg

RESET
\w5

D=\d
T=\t

/D /T

\' Polynômes
Y1=0,0.050"m/s" \' Vitesse vent 0-1000mV = 0-50 m/s
Y2=0,0.360"Deg" \' Direction du vent 0-1000mV = 0-360 deg

\' Définitions des unités pour les calculs
Y3=0,1"m/s"
Y4=0,1"Deg"

\' RAZ des accumulateurs utilisés pour les calculs intermédiaires (variables de voies)
10..16CV(W)=0

\w1

BEGIN
\' Scrutation élémentaire ttes les 5 secondes
RA5S
1V(Y1,=1CV,W) \' Scrutation et sauvegarde vitesse
2V(Y2,=2CV,W) \'idem direction

2CV(W)=2CV/57.29 \' Conversion direction du vent en radians pour les fonctions trigonométriques
\' du Datataker

10CV(W)=10CV+COS(2CV) \' Somme des COS
11CV(W)=11CV+SIN(2CV) \' Somme des SIN
12CV(W)=12CV+1CV \' Somme des vitesses
13CV(W)=13CV+(1CV*1CV) \' Somme des vitesses * vitesses
14CV(W)=14CV+(1CV*COS(2CV)) \' Somme des vitesses * COS
15CV(W)=15CV+(1CV*SIN(2CV)) \' Somme des vitesses * SIN
16CV(W)=16CV+1.0 \' Nombre de scrutations

\' Chaine de calcul des données, et stockage et retour ttes les minutes
RB1M
20CV(W)=14CV/16CV \' Moyenne vitesse * COS
21CV(W)=15CV/16CV \' Moyenne vitesse * SIN

\' Calcul et stockage/affichage/retour vitesse moyenne
22CV(W)=SQRT((20CV*20CV)+(21CV*21CV))

22CV("Mean Wind Speed",Y3,FF2)

\' Calcul et stockage/affichage/retour direction moyenne
23CV(W)=ATAN(21CV/20CV)*57.29

\' Recherche du cadran pour la direction du vent
23CV(W)=23CV+((20CV>0)AND(21CV<0))*360 \' 4ième cadran : +Cos -Sin
23CV(W)=23CV+((20CV<0)AND(21CV<0))*180 \' 3ième cadran : -Cos -Sin
23CV(W)=23CV+((20CV<0)AND(21CV>0))*180 \' 2ième cadran : -Cos +Sin
23CV(W)=23CV+((20CV>0)AND(21CV>0))*0 \' 1ier cadran : +Cos +Sin

23CV(W)=23CV-(12CV=0)*(23CV+1) \' Pas de vent, retourne -1.0

23CV("Mean Wind Dirn",Y4,FF2)

\' Calcul et stockage/affichage/retour écart type vitesse
24CV(W)=13CV-((12CV*12CV)/16CV)
24CV(W)=SQRT(24CV/16CV)

24CV("SD Wind Speed",Y3,FF2)

\' Calcul et stockage/affichage/retour écart type direction
25CV(W)=10CV/16CV
26CV(W)=11CV/16CV
27CV(W)=SQRT((25CV*25CV)+(26CV*26CV))
27CV(W)=SQRT(-2.0*LN(27CV))*57.29

27CV("SD Wind Dirn",Y4,FF2)

\' RAZ des accumulateurs
10..16CV(W)=0
END

LOGON

G