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 !

Commentaires (1)

1. kellgrooB (site web) 05/09/2012

buy propecia online - <a href=http://buypropeciaonlineone.com/#agam1.e-monsite.com>propecia online</a> , http://buypropeciaonlineone.com/#sgam1.e-monsite.com buy generic propecia

Ajouter un commentaire

Vous utilisez un logiciel de type AdBlock, qui bloque le service de captchas publicitaires utilisé sur ce site. Pour pouvoir envoyer votre message, désactivez Adblock.

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