Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_author=Georges, Khaznadar

slib_license=GPL

slib_title=Data about nucleides, or LaTeX typesetting

slib_example=H\

17\

6\

H, tex 13, +\

6, tex\

6, tex 13\

Pu, tex\

Pu, tex 239

!exit

:proc

slib_data=$wims_read_parm

nb_data = !itemcnt $slib_data

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!! cette table des nucleides a été extraite du service

!! web http://nucleardata.nuclear.lu.se/toi/listnuc.asp?sql=

!! le 7 juillet 2020, et retraitée à l'aide d'un programme

!! en Python. Les éléments de 110 (Ds) à 118 (Og) ont été

!! repris de la page https://iupac.org/what-we-do/periodic-table-of-elements/

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

slib_nucleides=1, H, 1, 99.985, 2, 0.015\

2, He, 3, 0.000137, 4, 99.999863\

3, Li, 6, 7.5, 7, 92.5\

4, Be, 9, 100.0\

5, B, 10, 19.9, 11, 80.1\

6, C, 12, 98.9, 13, 1.1\

7, N, 14, 99.634, 15, 0.366\

8, O, 16, 99.762, 17, 0.038, 18, 0.2\

9, F, 19, 100.0\

10, Ne, 20, 90.48, 21, 0.27, 22, 9.25\

11, Na, 23, 100.0\

12, Mg, 24, 78.99, 25, 10.0, 26, 11.01\

13, Al, 27, 100.0\

14, Si, 28, 92.23, 29, 4.67, 30, 3.1\

15, P, 31, 100.0\

16, S, 32, 95.02, 33, 0.75, 34, 4.21, 36, 0.02\

17, Cl, 35, 75.77, 37, 24.23\

18, Ar, 36, 0.337, 38, 0.063, 40, 99.6\

19, K, 39, 93.2581, 40, 0.0117, 41, 6.7302\

20, Ca, 40, 96.941, 42, 0.647, 43, 0.135, 44, 2.086, 46, 0.004, 48, 0.187\

21, Sc, 45, 100.0\

22, Ti, 46, 8.0, 47, 7.3, 48, 73.8, 49, 5.5, 50, 5.4\

23, V, 50, 0.25, 51, 99.75\

24, Cr, 50, 4.345, 52, 83.789, 53, 9.501, 54, 2.365\

25, Mn, 55, 100.0\

26, Fe, 54, 5.8, 56, 91.72, 57, 2.2, 58, 0.28\

27, Co, 59, 100.0\

28, Ni, 58, 68.077, 60, 26.223, 61, 1.14, 62, 3.634, 64, 0.926\

29, Cu, 63, 69.17, 65, 30.83\

30, Zn, 64, 48.6, 66, 27.9, 67, 4.1, 68, 18.8, 70, 0.6\

31, Ga, 69, 60.108, 71, 39.892\

32, Ge, 70, 21.23, 72, 27.66, 73, 7.73, 74, 35.94, 76, 7.44\

33, As, 75, 100.0\

34, Se, 74, 0.89, 76, 9.36, 77, 7.63, 78, 23.78, 80, 49.61, 82, 8.73\

35, Br, 79, 50.69, 81, 49.31\

36, Kr, 78, 0.35, 80, 2.25, 82, 11.6, 83, 11.5, 84, 57.0, 86, 17.3\

37, Rb, 85, 72.165, 87, 27.835\

38, Sr, 84, 0.56, 86, 9.86, 87, 7.0, 88, 82.58\

39, Y, 89, 100.0\

40, Zr, 90, 51.45, 91, 11.22, 92, 17.15, 94, 17.38, 96, 2.8\

41, Nb, 93, 100.0\

42, Mo, 92, 14.84, 94, 9.25, 95, 15.92, 96, 16.68, 97, 9.55, 98, 24.13, 100, 9.63\

43, Tc\

44, Ru, 96, 5.52, 98, 1.88, 99, 12.7, 100, 12.6, 101, 17.0, 102, 31.6, 104, 18.7\

45, Rh, 103, 100.0\

46, Pd, 102, 1.02, 104, 11.14, 105, 22.33, 106, 27.33, 108, 26.46, 110, 11.72\

47, Ag, 107, 51.839, 109, 48.161\

48, Cd, 106, 1.25, 108, 0.89, 110, 12.49, 111, 12.8, 112, 24.13, 113, 12.22, 114, 28.73, 116, 7.49\

49, In, 113, 4.3, 115, 95.7\

50, Sn, 112, 0.97, 114, 0.65, 115, 0.34, 116, 14.53, 117, 7.68, 118, 24.23, 119, 8.59, 120, 32.59, 122, 4.63, 124, 5.79\

51, Sb, 121, 57.36, 123, 42.64\

52, Te, 120, 0.096, 122, 2.603, 123, 0.908, 124, 4.816, 125, 7.139, 126, 18.95, 128, 31.69, 130, 33.8\

53, I, 127, 100.0\

54, Xe, 124, 0.1, 126, 0.09, 128, 1.91, 129, 26.4, 130, 4.1, 131, 21.2, 132, 26.9, 134, 10.4, 136, 8.9\

55, Cs, 133, 100.0\

56, Ba, 130, 0.106, 132, 0.101, 134, 2.417, 135, 6.592, 136, 7.854, 137, 11.23, 138, 71.7\

57, La, 138, 0.0902, 139, 99.9098\

58, Ce, 136, 0.19, 138, 0.25, 140, 88.48, 142, 11.08\

59, Pr, 141, 100.0\

60, Nd, 142, 27.13, 143, 12.18, 144, 23.8, 145, 8.3, 146, 17.19, 148, 5.76, 150, 5.64\

61, Pm\

62, Sm, 144, 3.1, 147, 15.0, 148, 11.3, 149, 13.8, 150, 7.4, 152, 26.7, 154, 22.7\

63, Eu, 151, 47.8, 153, 52.2\

64, Gd, 152, 0.2, 154, 2.18, 155, 14.8, 156, 20.47, 157, 15.65, 158, 24.84, 160, 21.86\

65, Tb, 159, 100.0\

66, Dy, 156, 0.06, 158, 0.1, 160, 2.34, 161, 18.9, 162, 25.5, 163, 24.9, 164, 28.2\

67, Ho, 165, 100.0\

68, Er, 162, 0.14, 164, 1.61, 166, 33.6, 167, 22.95, 168, 26.8, 170, 14.9\

69, Tm, 169, 100.0\

70, Yb, 168, 0.13, 170, 3.05, 171, 14.3, 172, 21.9, 173, 16.12, 174, 31.8, 176, 12.7\

71, Lu, 175, 97.41, 176, 2.59\

72, Hf, 174, 0.162, 176, 5.206, 177, 18.606, 178, 27.297, 179, 13.629, 180, 35.1\

73, Ta, 180, 0.012, 181, 99.988\

74, W, 180, 0.13, 182, 26.3, 183, 14.3, 184, 30.67, 186, 28.6\

75, Re, 185, 37.4, 187, 62.6\

76, Os, 184, 0.02, 186, 1.58, 187, 1.6, 188, 13.3, 189, 16.1, 190, 26.4, 192, 41.0\

77, Ir, 191, 37.3, 193, 62.7\

78, Pt, 190, 0.01, 192, 0.79, 194, 32.9, 195, 33.8, 196, 25.3, 198, 7.2\

79, Au, 197, 100.0\

80, Hg, 196, 0.15, 198, 9.97, 199, 16.87, 200, 23.1, 201, 13.18, 202, 29.86, 204, 6.87\

81, Tl, 203, 29.524, 205, 70.476\

82, Pb, 204, 1.4, 206, 24.1, 207, 22.1, 208, 52.4\

83, Bi, 209, 100.0\

84, Po\

85, At\

86, Rn\

87, Fr\

88, Ra\

89, Ac\

90, Th, 232, 100.0\

91, Pa\

92, U, 235, 0.72, 238, 99.2745\

93, Np\

94, Pu\

95, Am\

96, Cm\

97, Bk\

98, Cf\

99, Es\

100, Fm\

101, Md\

102, No\

103, Lr\

104, Rf\

105, Db\

106, Sg\

107, Bh\

108, Hs\

109, Mt\

110, Ds\

111, Rg\

112, Cn\

113, Nh\

114, Fl\

115, Mc\

116, Lv\

117, Ts\

118, Og

nb_elements = !linecnt $slib_nucleides

la_ligne = ??

cle = !item 1 of $slib_data

cle1 = !char 1 of $cle

!if $cle1 isin 123456789

  !! c'est un nombre, à chercher en première position

  index=1

!else

  !! c'est un symbole, à chercher en deuxième position

  index=2

!endif

la_ligne=erreur : symbole inconnu

!for i=1 to $nb_elements

  l = !line $i of $slib_nucleides

  val = !item $index of $l

  !if $val = $cle

    la_ligne = $l

  !endif

!next

n_ligne = !itemcnt $la_ligne

n_stables = !eval ($n_ligne / 2) -1

# on construit les données pour lélément dans la variable

# elt_data : Z, symbole [; A, abondance]...

elt_data = !items 1,2 of $la_ligne

!if $n_stables > 0

  !for i=1 to $n_stables

    i1 = !eval 2 * $i + 1

    i2 = !eval $i1+1

    les_items = !items $i1,$i2 of $la_ligne

    elt_data = $elt_data; $les_items

  !next

!endif

!if $nb_data < 2

  slib_out = $elt_data

  !goto end

!endif

!! à ce stade, il y a au moins un deuxième paramètre

param2 = !item 2 of $slib_data

param3 = !item 3 of $slib_data

!if tex isin $param2

  !! un traduction en chaîne tex est demandée

  !! on regarde si un isotope particulier est requis

  A = !replace tex by in $param2

  !if $A issametext

    !! c'est le cas où il n'y a pas de demande d'isotope particulier

    !if $n_ligne > 2

      !! il y a au moins un isotope stable, on prend celui-là

      A = !item 3 of $la_ligne

    !else

      !! il n'y a pas d'isotope stable, on n'indique pas A

      A =

    !endif

  !endif

  Z = !item 1 of $la_ligne

  symbole = !item 2 of $la_ligne

  !readproc slib/chemistry/leftind $A, $Z, $symbole, $param3

  !goto end

!endif

:end

slib_out = $slib_out