radioactivité : curseur pour expliquer les mesures de Sievert

un cursueur de la radioactivité pour prendre la mesure des Sievert : avec références et liens sur Internet ...

Editer script ‘Sievert curseur’
script-gam1 = ( à jouer, avec l'outil de bas de page, avec : "util gam1" puis "code applette" - coché "DIRECT" )
_-_-_-_-_-_ Sievert curseur _-_-_ (semi-normal DIRECT) _-_-_-_-_-_
// definition des références/lien-Internet	!
$V0RL0: type=liste(RF_~ce site~http://okidor.free.fr/reflects~,99,1)	!

$V0RLa: type=liste(RFa~conséquences~http://sante.planet.fr/actualites-irradiations-quelles-sont-les-consequences-sante.57248.2071.html?page=0,1~,99,1)	!
T0nava:p=%W87;20§ cc=bleu§ cf=vert	d=14	t=RFa	#
B0nava: frm=T0nava§ CLICK=gm1.naviguer(http://sante.planet.fr/actualites-irradiations-quelles-sont-les-consequences-sante.57248.2071.html?page=0,1,0,ERR[STATUT&MODOP])	!

$V0RLb: type=liste(RFb~irradiations~http://fr.wikipedia.org/wiki/Sievert#Effet_des_doses_d.27irradiations~,99,0)	!
T0navb:p=%W87;45§ cc=bleu§ cf=vert	d=14	t=RFb	#
B0navb: frm=T0navb§ CLICK=gm1.naviguer(http://fr.wikipedia.org/wiki/Sievert#Effet_des_doses_d.27irradiations,0,ERR[STATUT&MODOP])	!

$V0RLc: type=liste(RFc~conversion~http://www.hc-sc.gc.ca/ewh-semt/occup-travail/radiation/dosim/res-centre/conversion-fra.php~,99,1)	!
T0navc:p=%W87;70§ cc=bleu§ cf=vert	d=14	t=RFc	#
B0navc: frm=T0navc§ CLICK=gm1.naviguer(http://www.hc-sc.gc.ca/ewh-semt/occup-travail/radiation/dosim/res-centre/conversion-fra.php,0,ERR[STATUT&MODOP])	!

$V0RLd: type=liste(RFd~radiologie~http://www.ms.public.lu/fr/activites/radioprotection/protect-radio-applic-medic/protect-patients/risques-lies-a-la-radiologie/index.html~,99,1)	!
T0navd:p=%W87;95§ cc=bleu§ cf=vert	d=14	t=RFd	#
B0navd: frm=T0navd§ CLICK=gm1.naviguer(http://www.ms.public.lu/fr/activites/radioprotection/protect-radio-applic-medic/protect-patients/risques-lies-a-la-radiologie/index.html,0,ERR[STATUT&MODOP])	!

$V0RLe: type=liste(mesure~http://www.sievert-system.org/WebMasters/fr/mesure.html~,99,1)	!
T0nave:p=%W87;115§ cc=bleu§ cf=vert	d=14	t=RFe	#
B0navd: frm=T0nave§ CLICK=gm1.naviguer(http://www.sievert-system.org/WebMasters/fr/mesure.html,0,ERR[STATUT&MODOP])	!

// ATTENTION - palliatif : selInd définit ici length	!

$V0RF0: type=liste($V0RL0~ à vous de voir~...~,99,1)	!

$V0RFb1mu: type=liste($V0RLb~Fumer une cigarette : 0.001 mSv~la limite annuelle d’exposition pour la population générale en France est atteinte~ à environ un paquet par semaine~ et dépassée à plus d’1 cartouche tous les deux mois~,99,4)	!
$V0RFb2mu: type=liste($V0RLb~Une centrale nucléaire française : 0.002 mSv/an~ en état de fonctionnement normal - hors accident~Au delà -incident sérieux- des mesures de protection de la population~ -et des travailleurs indispensables sur le site-~ peuvent être nécessaires~,99,5)	!
$V0RFb80mu: type=liste($V0RLb~Un voyage Paris-New York aller et retour : 0.08 mSv soit 9.5 µSv/heure~dose due au rayonnement cosmique supplémentaire à environ 10 000 mètres d’altitude~La limite annuelle d’exposition ... serait atteinte à 17 allers-retours par an sur ce trajet~,99,3)	!
$V0RFb300mu: type=liste($V0RLb~Une radiographie des poumons : 0.3 mSv~,99,1)	!

$V0RFb300: type=liste($V0RLb~Dose annuelle moyenne reçue en France : ~ environ 2.4 mSv/an/personne~,99,2)	!

$V0RFb302: type=liste($V0RLb~Limite autorisée pour l'exposition de la population aux rayonnements artificiels~ en France : 1 mSv/an/personne ~(Code de la santé publique, Article R1333-8).~,99,3)	!

$V0RFb20ms: type=liste($V0RLb~dosimétrie mensuelle fixée à 1.5 mSv ~ dosimétrie fixée par les entreprises à 16 mSv/an.~(Code du travail Article R231-76)~Limite autorisée pour les personnels exposés en France:~ 20 mSv sur 12 mois glissants par personne ~,99,5)	!

$V0RFb01si: type=liste($V0RLb~pour des doses aux organes inférieures à 100 mSv=0.1 Sv~ l'étude des victimes de Hiroshima et Nagasaki n'a pas révélé de risque statistiquement significatif de cancers~de faibles expositions (inférieures à 0.1 Sv) stimulent les mécanismes protecteurs des cellules~et ont de ce fait un effet globalement bénéfique~,99,4)	!

$V0RFd01ss: type=liste($V0RLd~Les deux premières semaines après la conception~ l'irradiation entraîne un effet tout ou rien :~soit la mort de l'embryon soit la croissance normale. ~A partir des doses de 100 milli-Sievert on peut observer la mort embryonnaire ~mais l'embryon peut aussi survivre à des doses beaucoup plus élevées~,99,5)	!

$V0RFa04sH: type=liste($V0RLa~centrale de Fukushima ~La contamination se fait directement par contact et inhalation~Si un nuage radioactif impacte votre région la plupart des pathologies se déclareront ~ des années après l’exposition~,99,4)	!

$V0RFb05s: type=liste($V0RLb~L'observation des nettoyeurs de Tchernobyl a révélé ~une morbidité anormalement élevée~sans signe clinique spécifiquement liés à l'irradiation - suggérant un syndrome immunodéficitaire radioinduit.~Le risque de mortalité s'élève de 14% par sievert dans les 30 ans~ suivant la radio-exposition avec 1 seuil de 0.5 Sv~,99,5)	!

$V0RFb1s: type=liste($V0RLb~L'homme présente des signes cliniques dus aux irradiations à partir d'une dose unique équivalente à 1 Sv~dénommé le «mal des rayons». L'individu est alors systématiquement hospitalisé.~,99,2)	!

$V0RFa1sH: type=liste($V0RLa~À partir d'une dose de 1 sievert/heure reçue par le corps humain~on constate une hausse du nombre de cancers au sein de la population concernée~,99,2)	!

$V0RFb2a4s: type=liste($V0RLb~syndrome hématopoïétique - leucopénie ~lymphocytes et globules blancs diminuent considérablement. ~l'irradiation peut mener à une anémie (carence en globules rouges)~,99,3)	!
$V0RFb3a45s: type=liste($V0RLb~On définit l'irradiation aiguë globale comme étant la dose tuant 50 % des sujets exposés au rayonnement ionisant~Cette valeur admet un intervalle de 3 à 4,5 Sv~syndrome hématologique s'étalant sur une trentaine de jours. Aucun traitement n'est administré~,99,3)	!

$V0RFa4a45s: type=liste($V0RLa~entre 4 et 4.5 sievert par heure~la moitié des personnes exposées meurt.~Une forte exposition peut induire ainsi des œdèmes cérébraux~la destruction de la moelle osseuse - des troubles vasculaires~des hémorragies internes et une destruction du système immunitaire~,99,5)	!

$V0RFb8s: type=liste($V0RLb~on observe un syndrome gastrointestinal avec diarrhées aiguës ~ hémorragie digestive menant à la mort~,99,2)	!

$V0RFb10s: type=liste($V0RLb~La mort est pratiquement certaine pour des doses supérieures à 10 Sv~,99,1)	!
$V0RFb40s: type=liste($V0RLb~on observe un syndrome nerveux avec convulsions- coma et mort instantanée.~,99,1)	!


// bornes des intervalles de valeurs commentés	!
$V0biv: type=liste($V0i00~$V0im01~$V0im02~$V0im80~$V0im300~$V0ims1~$V0ims2p4~$V0ims20~$V0ids1i~$V0ids1s~$V0i04sH~$V0i05s~$V0i1s~$V0i1sH~$V0i2a4s~$V0i3a45s~$V0i4a45s~$V0i8s~$V0i10s~$V0i40s~~~,14,19)	!

$V1iiMax: type=nombre($V0biv.selInd)	!

// infos référencées sur chaque borne ou intervalle	!
// (bornes~commentaires) *n	!
$V0i00: type=liste(0µSv~$V0RF0~,99,0)	!
$V0im01: type=liste(0.001 mSv~$V0RFb1mu~,99,0)	!
$V0im02: type=liste(0.002 mSv~$V0RFb2mu~,99,0)	!
$V0im80: type=liste(0.08 mSv~$V0RFb80mu~,99,0)	!
$V0im300: type=liste(0.3 mSv~$V0RFb300mu~,99,0)	!
$V0ims1: type=liste(1 mSv~$V0RFb302~,99,0)	!
$V0ims2p4: type=liste(2.4 mSv~$V0RFb300~,99,0)	!
$V0ims20: type=liste(20 mSv~$V0RFb20ms~,99,0)	!

$V0ids1i: type=liste( < 0.1 Sv~$V0RFb01si~,99,0)	!
$V0ids1s: type=liste( > 0.1 Sv~$V0RFd01ss~,99,0)	!

$V0i04sH: type=liste(0.4 Sv/Heure~$V0RFa04sH~,99,0)	!
$V0i05s: type=liste(0.5 Sv~$V0RFb05s~,99,0)	!

$V0i1s: type=liste(>=1 Sv~$V0RFb1s~,99,0)	!
$V0i1sH: type=liste(>1 Sv/Heure~$V0RFa1sH~,99,0)	!

$V0i2a4s: type=liste(2 à 4 Sv~$V0RFb2a4s~,99,0)	!
$V0i3a45s: type=liste(3 à 4.5 Sv~$V0RFb3a45s~,99,0)	!
$V0i4a45s: type=liste(4 à 4.5 Sv~$V0RFa4a45s~,99,0)	!

$V0i8s: type=liste(>=8 Sv~$V0RFb8s~,99,0)	!
$V0i10s: type=liste(>=10 Sv~$V0RFb10s~,99,0)	!
$V0i40s: type=liste(>=40 Sv~$V0RFb40s~,99,0)	!

// position et taille de l'ascenceur :	!
D0a1: p1=%W20;50	p2=%W50;16	VU_N	!
T0svLow:p=70;25§ cc=gris§ cf=jaune	sty=italique	d=12	t=1 µSv	!
T0svHigh:p=D0a1.p1.x+D0a1.p2.x;25§ cc=gris-sombre§ cf=jaune	sty=italique	d=12	t=40 Sv	!
G0a0: cc=gris	pts=_100;25!	e-9!_D0a1.p1.x+20;D0a1.p1.y!	e3!_-6.5;-9|	e4!_7.5;-1|	e1!_-1;10|	!
G0a1: cc=gris	pts=_D0a1.p1.x+D0a1.p2.x;25!	e9!_D0a1.p1.x+D0a1.p2.x-22;D0a1.p1.y!		e3!_-1.5;-9|	e4!_7.5;0|	e1!_-6;9|	!

// Traitement-affichage :	!
P0affi: p=25;100	%setK=250	VU_N	!

$V1Lien: type=texte($V0RL0[2],80)	#
T1lien:p=%W60;%H95§ cc=bleu§ cf=cyan	d=12	t=$V1Lien	#

$V0ii: type=nombre(1)	!
$V1nn: type=nombre(0)	!
$V1Lien: type=nombre(0)	!
$V1LienM: type=nombre(4)	!

$V1ni: type=nombre(0)	!
$V1nmax: type=nombre(0)	!
CMD10z2: # $V1nmax.v=$V0RFb302.selInd	#

$V1ddd: type=texte(_?d,80)	#
$V1ddr: type=texte(_?r,80)	!
$V1ddR: type=texte(_?R,80)	!
$V1cmd: type=texte(_?C,80)	!
$V1info: type=texte(_?I,80)	!
$V1ddP: type=texte(_?P,80)	!
$V1ddp: type=texte(_?p,80)	!

T1affi2:p=P0affi.x;P0affi.y+30§ cc=noir§ cf=blanc	d=12	t=tgfyt	!

A1sv: p=D0a1.p1	t=D0a1.p2.x;D0a1.p2.y	bo=0;30	va=2	#
$V1isv: type=decimal(A1sv.va)	#

CMD1aa0152: # $V0ii.v=A1sv.va	#
CMD1a00154: #-> ?=($V1isv>$V1iiMax)	#
CMD1aa0156: # $V0ii.v=$V1iiMax	#
CMD1a00158: #<- ?=(NON)	#

CMD1aa020: # $V1cmd.v='$V1ddr.v=$ +V0biv +[ +$V0ii +]'	#
CMD1aa021: # $V1cmd.Eval()	#
CMD1aa025: # $V1cmd.v='$V1ddR.v= +$V1ddr +[0]'	#
CMD1aa026: # $V1cmd.Eval()	#

T1choix:p=D0a1.p1.x+(D0a1.p2.x*0.4);D0a1.p1.y-9§ cc=blanc§ cf=rose	d=14	sty=gras	t=$V1ddR	#
CMD1aa028: # $V1cmd.v='$V1info.v= +$V1ddr +[1]'	#
CMD1aa029: # $V1cmd.Eval()	#

CMD1a0021: # $V1nn.v=0	#
CMD1a0022: # $V1Lien.v=0	#
CMD1a0023: # $V1cmd.v='$V1nmax.v=( +$V1info +.selInd ++1)'	#

CMD1aa024: # $V1cmd.Eval()	#

CMD1a0026: # $V1cmd.v='$V1ddP.v= +$V1info +[0]' 	#
CMD1aa027: # $V1cmd.Eval()	#

CMD1a0028: # $V1cmd.v='$V1ddr.v= +$V1ddP +[0]'	#
CMD1a0029: # $V1cmd.Eval()	#
CMD1a0031: # $V1cmd.v='$V1ddR.v= +$V1ddP +[1]'	#
CMD1a0032: # $V1cmd.Eval()	#
CMD1a0034: #  T1affi2[$V1nn]: p.y=((22*$V1nn)+T1affi2.p.y) , t=( +$V1ddr +)  - +$V1ddR + -  voir :	#
CMD1a0035: #  $V1nn.Plus(1)	#
CMD1a0038: # $V1cmd.v='$V1ddR.v= +$V1ddP +[2]'	#
CMD1a0039: # $V1cmd.Eval()	#
CMD1a0040: #  T1lien[$V1Lien]: p.x=P0affi.x+30,p.y=((22*$V1nn)+T1affi2.p.y) , t=$V1ddR	#
CMD1a0041: #  $V1Lien.Plus(1)	#

CMD1a0044: # $V1ni.v=1	#
CMD1a00440: #-> ?=($V1ni<$V1nmax)	#

CMD1a00441: # $V1cmd.v='$V1ddp.v= +$V1info +[ +$V1ni +]' 	#

CMD1a00441b: # $V1cmd.Eval()	#
CMD1a00442: #  $V1ddd.v=$V1ddp	#

CMD1a00444: #  T1affi2[$V1nn]: VU_=VU_O, p.x=20,p.y=((22*$V1nn)+T1affi2.p.y+22) , t=$V1ddd	#
CMD1a00446: #  $V1nn.Plus(1)	#
CMD1a00447: #  $V1ni.Plus(1)	#
CMD1a00449: #<- ?=(OUI)	#

CMD1a0050: #  T1affi2[$V1nn]: p.x=150,p.y=((22*$V1nn)+T1affi2.p.y+22) , t=- - - -	#
CMD1a0051: #  $V1nn.Plus(1)	#

$V1nMax: type=nombre(($V1nn+1))	!
CMD1ff010: #-> ?=($V1nn<$V1nMax)	#
CMD1ff012: #  T1affi2[$V1nn]:  VU_=VU_N, p.x=20, p.y=((22*$V1nn)+T1affi2.p.y) , t= 	#
CMD1ff014: #  $V1nn.Plus(1)	#
CMD1ff050: #<- ?=(OUI)	#

CMD1ff060: #-> ?=($V1Lien<$V1LienM)	#
CMD1ff062: #  T1lien[$V1Lien]: VU_=VU_N, t=	#
CMD1ff063: #  $V1Lien.Plus(1)	#
CMD1ff064: #<- ?=(OUI)	#

CMD1a000P: @ T1affi2[0_]	!
CMD1a000L: @ T1lien[0_]	!

T1isv:p=D0a1.p1.x-50;D0a1.p1.y+12§ cc=noir§ cf=blanc	d=12	t=( +$V0ii	+)	#


_-_-_-_-_-_-_-_-_-_-_
Pour reprendre, modifier ou adapter ce script, quelques remarques essentielles:
  • Noter la séparation des données et du traitement-affichage de ces donnée
    ( c'est pas du XML ... mais on peut quand même faire des choses ;-)
  • repérer la liste des bornes d'intervalles balayée par le curseur :
      // bornes des intervalles de valeurs commentés	!
      $V0biv: type=liste($V0i00~$V0im01~$V0im02~$V0im80~$V0im300~$V0ims1~$V0ims2p4~$V0ims20~$V0ids1i~$V0ids1s~$V0i04sH~$V0i05s~$V0i1s~$V0i1sH~$V0i2a4s~$V0i3a45s~$V0i4a45s~$V0i8s~$V0i10s~$V0i40s~~~,14,19)	!
      
    repérer ensuite les variables précisant les lignes d'infos, et leur référence et lien Internet ...
    chaque valeur de tableau (nom de variable, phrase, etc ... ) est séparée par un '~'
    ATTENTION à ne pas utiliser, dans les phrases, des "," ou "(" ou ")" ou ' " ' ...
  • Ok, ce code-gam1 est ici plutôt acrobatique ! ...
    mais, il permet de vérifier que, même avec cette version de gam1 que l'on s'interdit de faire évoluer depuis des années
    ... on arrive toujours à faire ce qu'on veut !
    C'est ni l'envie, ni la foison d'idées qui manquent pour rendre ce codage plus pratique ou plus puissant ...
    c'est votre participation
    Ya-K !

Aucune note. Soyez le premier à attribuer une note !

utilitaire de bas de page pour gam1 version :       OK ? pour votre
script par page URL cookie
_-_-_-_-_-_ _-_-_-_-_-_

_-_-_-_-_-_-_-_-_-_-_
        ( × )

( en : cette page autre )
label =
Editer le script du label