Commit 96afe87c authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Added coding:utf-8

parent 76ecaed5
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-advices.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: 7090.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-banks.el
;;;;LANGUAGE: emacs lisp
......@@ -133,8 +134,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-cajamar-table
;; ---------------------------------------------------------------------
......@@ -195,8 +196,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
));;when
(setq data (cdr data))
);;while
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n" solde)
);;let
(message "Not found!"))
......@@ -258,8 +259,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-cajamar-old
;; ------------------------------------------------------------------------
......@@ -310,8 +311,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-evolvebank-xls-eur
;; ---------------------------------------------------------------------
......@@ -362,8 +363,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(replace-match lin nil nil)
(printf "%s\n" lin)
));;while
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
));;from-patagon-table
......@@ -421,8 +422,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-evolvebank-table
(defun from-evolvebank-xls-esp ()
......@@ -471,8 +472,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-evolvebank-xls-esp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-banks.el
;;;;LANGUAGE: emacs lisp
......@@ -169,8 +170,8 @@ Use Mozilla, and copy-and-paste to emacs."
(t ":GASTO-CORRIENTE")))
journal)
(insert lin))))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n\n\n" solde)
(dolist (entry (reverse journal))
(printf "(%s %s %s %s\n %s %s\n %s\n %s)\n\n"
......@@ -234,8 +235,8 @@ Use Mozilla, and copy-and-paste to emacs."
debits (append debits (list deb))
solde sol)
(insert lin))))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n" solde)));;from-cajamar-2003-mozilla
......@@ -301,8 +302,8 @@ See: from-cajamar-mozilla"
(setq debits (nconc debits deb))
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "(setq movements '%S)\n" movements))
));;from-cajamar-table
......@@ -359,8 +360,8 @@ See: from-cajamar-mozilla"
(setq solde sol)
(insert lin)))
(setq data (cdr data)))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; solde : %s\n" solde))
(message "Nothing found! (Need from 'Fecha' to 'NO HAY MAS MOVIMIENTOS').")))
......@@ -404,8 +405,8 @@ See: from-cajamar-mozilla"
(setq debits (append debits (list deb)))
(store-match-data mat)
(replace-match lin nil nil)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
(insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
(insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
));;from-cajamar-old
......@@ -454,8 +455,8 @@ See: from-cajamar-mozilla"
(replace-match lin nil nil)
(printf "%s\n" lin)
)) ;;while
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
(printf "; crédits : %s\n" (pjb-string-amount-list credits))
(printf "; débits : %s\n" (pjb-string-amount-list debits))
));;from-patagon-table
......@@ -512,8 +513,8 @@ See: from-cajamar-mozilla"
;;; (store-match-data mat)
;;; (replace-match lin nil nil)))
;;;
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; ));;from-evolvebank-table
;;;
;;;
......@@ -563,8 +564,8 @@ See: from-cajamar-mozilla"
;;; (store-match-data mat)
;;; (replace-match lin nil nil)))
;;;
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; ));;from-evolvebank-xls-esp
;;;
;;;
......@@ -693,8 +694,8 @@ See: from-cajamar-mozilla"
;;; (setq debits (append debits (list deb)))
;;; (store-match-data mat)
;;; (replace-match lin nil nil)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
;;; (insert (format "; débits : %s\n" (pjb-string-amount-list debits)))
;;; ));;from-evolvebank-xls-eur
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-blink.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-bourse.el
;;;;LANGUAGE: emacs lisp
......@@ -180,7 +181,7 @@ for each devise [See: pjb-euro].")
(defmethod amount-at-devise ((self DeviseAccount) devise)
"Retourne le montant de la devise indiquée dans le devise-account.
"Retourne le montant de la devise indiquée dans le devise-account.
Voir account-valuation pour la valeur totale du devise-account."
(cdr (assoc devise (amounts self)))
);;amount-at-devise
......@@ -191,8 +192,8 @@ Voir account-valuation pour la valeur totale du devise-account."
);;devises
(defmethod account-valuation ((self DeviseAccount) devise)
"Retourne la valeur du devise-account dans la devise indiquée.
Utilise pjb-euro, et nécessite pour les devises flottantes, des cours à jour."
"Retourne la valeur du devise-account dans la devise indiquée.
Utilise pjb-euro, et nécessite pour les devises flottantes, des cours à jour."
(let ((total-euro 0.0))
(mapc (lambda (a)
(setq total-euro (+ total-euro
......@@ -203,7 +204,7 @@ Utilise pjb-euro, et n
(defmethod account-add ((self DeviseAccount) devise montant)
"Additionne au devise-account le montant indiqué dans la devise indiquée.
"Additionne au devise-account le montant indiqué dans la devise indiquée.
Pour additionner deux comptes, utiliser account-add-account.
Return: self."
(let ((ligne (assoc devise (amounts self))))
......@@ -215,7 +216,7 @@ Return: self."
(defmethod account-sub ((self DeviseAccount) devise montant)
"Soustrait du devise-account le montant indiqué dans la devise indiquée.
"Soustrait du devise-account le montant indiqué dans la devise indiquée.
Pour soustraire deux comptes, utiliser account-sub-account.
Return: self."
(let ((ligne (assoc devise (amounts self))))
......@@ -262,8 +263,8 @@ RETURN: self"
(defmethod account-operation-account ((self DeviseAccount)
(other DeviseAccount) op-lambda)
"Retourne un devise-account résultat de l'opération op-lambda sur
les paires de montants de même devise, et ajoute les montants-devise
"Retourne un devise-account résultat de l'opération op-lambda sur
les paires de montants de même devise, et ajoute les montants-devise
restants."
(let ((sort-a (sorted-accounts self))
(sort-b (sorted-accounts other))
......@@ -274,7 +275,7 @@ restants."
(setq result
(cons
(cond
((and a b (compare-sequal-sn-c a b)) ;; les deux sont égaux
((and a b (compare-sequal-sn-c a b)) ;; les deux sont égaux
(setq sort-a (cdr sort-a) ;; on les passe
sort-b (cdr sort-b))
;; resultat : l'operation appliquee sur eux.
......@@ -1258,20 +1259,20 @@ RETURN: self."
(defun portefeuille (operations &rest options)
"
OPERATIONS est une liste d'opérations boursières au format :
OPERATIONS est une liste d'opérations boursières au format :
( (DATE QUANTITE DEVISE COURS COMISSION SYMBOL)
(2000-10-16 20 EUR 8.98 8.20 ES0132580319) )
Achat : quantité > 0
Vente : quantité < 0
Achat : quantité > 0
Vente : quantité < 0
On peut placer 0, 1 ou plusieurs options:
'efface-reste-du-tampon --> efface le reste du tampon à partir du point
d'insertion avant d'afficher les résultats.
'efface-reste-du-tampon --> efface le reste du tampon à partir du point
d'insertion avant d'afficher les résultats.
les symboles monétaires définis
dans (euro-get-devises) --> affiche les totaux dans la devise indiquée
(que les cours soient à jour!).
les symboles monétaires définis
dans (euro-get-devises) --> affiche les totaux dans la devise indiquée
(que les cours soient à jour!).
"
(let ((portfolio (make-instance Portfolio))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-c.el
;;;;LANGUAGE: emacs lisp
......
......@@ -1816,7 +1816,7 @@ RETURN: A regexp that match the given REGEXP, but
(format tree
(token-regexp
(regexp-opt
(mapcar (function STRING) symbols)
(mapcar (lambda (x) (string-upcase (symbol-name x))) symbols)
;; (mapcan (function up-down-case) symbols)
'words))))
((consp tree) (cons (format-regexp-in (car tree))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
(setf *cl-lambda-lists* (make-hash-table :test (function equal) :size 978))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;****************************************************************************
;;FILE: pjb-cl-magic.el
;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-class.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-computer-paper.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: constantes.el
;;;;LANGUAGE: emacs lisp
......@@ -74,13 +75,13 @@
"Avogadro's number") ;;N
(def-phys-const H_0 1.01325e5 (* kg (^ m -1) (^ s -2))
"pression atmosphrique normale") ;;H_0
"pression atmosphérique normale") ;;H_0
(def-phys-const V_0 22.414e-3 (* (^ m 3) (^ mol -1))
"volume molaire du gaz parfait (CN)") ;;V_0
(def-phys-const T_0 273.15 K
"zro de l'chelle Celsius") ;;T_0
"zéro de l'échelle Celsius") ;;T_0
(def-phys-const n_0 (/ N V_0) (^ m -3)
"Loschmidt's number") ;;n_0
......@@ -94,10 +95,10 @@
"constante de la gravitation") ;;G
(def-phys-const e 1.602189e-19 C
"charge lmentaire") ;;e
"charge élémentaire") ;;e
(def-phys-const c 299792458.0 (* m (^ s -1))
"clrit de la lumire") ;;c
"célérité de la lumière") ;;c
(def-phys-const k 1.38066e-23 (* J (^ K -1))
"Boltzmann's constant") ;;k
......@@ -115,10 +116,10 @@
"Mass of electron") ;;m_e
(def-phys-const mu_0 (* 16e-7 (atan 1)) (* H (^ m -1))
"permabilit du vide") ;;mu_0
"perméabilité du vide") ;;mu_0
(def-phys-const epsilon_0 (/ 1 (* mu_0 c c)) (* F (^ m -1))
"permittivit du vide") ;;epsilon_0
"permittivité du vide") ;;epsilon_0
(def-phys-const g_n 9.80665 (* m (^ s -2))
"pesanteur normale") ;;g_n
......@@ -169,7 +170,7 @@
(def-phys-const earth-GM .3986e15 (* (^ m 3) (^ s -2))
"G Mass of Earth") ;;earth-GM
"G × Mass of Earth") ;;earth-GM
(def-phys-const earth-albedo-bond 0.306 1
"Bond Albedo of Earth") ;;earth-albedo-bond
......@@ -184,13 +185,13 @@
;;; Solar Irradiance 1367.6 W m-2
;;; Black-Body Temperature 254.3 K
;;; Moment of Inertia 0.3308 I MR-2
;;; J2 1082.63 10-6
;;; J2 1082.63 × 10-6
;;; Topographic Range 20 km
;;;; Orbital Parameters
;;;; Semimajor Axis 149.60 106 km
;;;; Semimajor Axis 149.60 × 106 km
;;;; Sidereal Orbit Period 365.256 day
;;;; Tropical Orbit Period 365.242 day
......@@ -232,10 +233,10 @@
(def-phys-const earth-length-of-day 24.0000 hours)
(def-phys-const earth-obliquity-to-orbit 23.45 1)
(def-phys-const earth-orbital-eccentricity 0.01671022 1)
(def-phys-const earth-orbital-inclination 0.00005 )
(def-phys-const earth-longitude-of-ascending-node -11.26064 )
(def-phys-const earth-longitude-of-pericenter 102.94719 )
(def-phys-const earth-mean-longitude 100.46435 )
(def-phys-const earth-orbital-inclination 0.00005 °)
(def-phys-const earth-longitude-of-ascending-node -11.26064 °)
(def-phys-const earth-longitude-of-pericenter 102.94719 °)
(def-phys-const earth-mean-longitude 100.46435 °)
(def-phys-const earth-dipole-field-strength 0.3076 (* gauss (^ Re 3)))
(def-phys-const earth-latitude-of-dipole-north 78.6 N)
(def-phys-const earth-longitude-of-dipole-north 70.1 W)
......@@ -291,10 +292,10 @@
(def-phys-const moon-revolution-period 27.322 day)
(def-phys-const moon-synodic-period 29.53 day)
(def-phys-const moon-mean-orbital-velocity 1.023 (* km (^ s -1)))
(def-phys-const moon-orbital-inclination 5.145 )
(def-phys-const moon-orbital-inclination 5.145 °)
(def-phys-const moon-orbital-excentricity 0.0549 1)
(def-phys-const moon-sidereal-rotation-period 655.728 hours)
(def-phys-const moon-equatorial-inclination 6.68 )
(def-phys-const moon-equatorial-inclination 6.68 °)
(def-phys-const moon-recession-rate-from-earth 3.8 (* cm (^ yr -1)))
......@@ -320,9 +321,9 @@
(def-phys-const mars-moment-of-inertia 0.366 (* I (^ MR -2)))
(def-phys-const mars-neon-ne 2.5 ppm)
(def-phys-const mars-nitrogen-n2 2.7 %)
(def-phys-const mars-obliquity-to-orbit 25.19 )
(def-phys-const mars-obliquity-to-orbit 25.19 °)
(def-phys-const mars-orbital-eccentricity 0.0934 1)
(def-phys-const mars-orbital-inclination 1.85 )
(def-phys-const mars-orbital-inclination 1.85 °)
(def-phys-const mars-oxygen-o2 0.13 %)
(def-phys-const mars-perihelion 206.6e6 km)
(def-phys-const mars-polar-radius 3375 km)
......@@ -390,13 +391,13 @@ RETURN: x' ; t' ; dx' ; dt' such as
;;; (setq t_ (/ d v))
;;; (setq gamma (car (lorentz d t_ v)))
;; Luego, por efecto de la compresin del tiempo cuando se viaja a
;; Luego, por efecto de la compresión del tiempo cuando se viaja a
;; velocidades cerca de c, la sonda no tarda tanto tiempo en llegar, y,
;; por lo contrario, la gente que se queda en la Tierra debe esparar ms
;; por lo contrario, la gente que se queda en la Tierra debe esparar más
;; tiempo en antes de saber que la sonda a llegado.
;;
;; Cmo se podra verificar en cualquier pgina web sobre el tema (para
;; decir que esta clase de informacin esta a accesible por todo con un
;; Cómo se podra verificar en cualquier página web sobre el tema (para
;; decir que ¡esta clase de información esta a accesible por todo con un
;; par de clics!):
;;
;; Aplicando las transformadas de Lorentz:
......@@ -408,30 +409,30 @@ RETURN: x' ; t' ; dx' ; dt' such as
;; que dan las coordenadas (x',t') dentro de un referencial que se mueve
;; a la velocidad v con respecto a un referencial fijo, dadas la
;; coordenadas (x,t) dentro del referencial fijo, se puede deducir
;; facilmente la dilatacin y la contraccin de la longitud y de la
;; duracin:
;; facilmente la dilatación y la contracción de la longitud y de la
;; duración:
;;
;; l' = l / gamma
;; d' = d / gamma
;;
;; (o si se es vago, se puede tanbien buscar en el web con un par de clic
;; de ms).
;; de más).
;;
;;
;; As que, por ejemplo, si la sonda viaja a v/c = 0.90 or 90% de la
;; velocidad de la luz, a una distancia de 4.3 aos-luz, lo hara en un
;; tiempo superior a 4.3 aos (visto desde el referencial fijo, es decir,
;; Así que, por ejemplo, si la sonda viaja a v/c = 0.90 or 90% de la
;; velocidad de la luz, a una distancia de 4.3 años-luz, lo hara en un
;; tiempo superior a 4.3 años (visto desde el referencial fijo, es decir,
;; desde la Tierra porque va siempre a una velocidad menor que c:
;;
;; d = 4.3 * ao * c
;; d = 4.3 * año * c
;; v = 0.9 * c
;; t = d / v
;;
;; t = ( 4.3 * ao * c ) / ( 0.9 * c )
;; = ( 4.3 / 0.9 ) * ao
;; = 4.777 ao
;; t = ( 4.3 * año * c ) / ( 0.9 * c )
;; = ( 4.3 / 0.9 ) * año
;; = 4.777 año
;;
;; Pero, visto de la sonda, la duracin del viaje es:
;; Pero, visto de la sonda, la duración del viaje es:
;;
;; d' = d / gamma
;; con:
......@@ -441,8 +442,8 @@ RETURN: x' ; t' ; dx' ; dt' such as
;;
;; asi que:
;;
;; d' = 4.777 ao / 2.294
;; d' = 2.082 ao
;; d' = 4.777 año / 2.294
;; d' = 2.082 año
;;
;;
;; En el caso que la sonda viaje a 99% de la velocidad de la luz,
......@@ -451,31 +452,31 @@ RETURN: x' ; t' ; dx' ; dt' such as
;; gamma = 1 / sqrt( 1 - 0.99^2 )
;; gamma = 7.089
;; y:
;; d' = 4.777 ao / 7.089
;; d' = 0.673 ao, o 8 meses,
;; d' = 4.777 año / 7.089
;; d' = 0.673 año, o 8 meses,
;;
;; a comparar con los 3 meses que Cristobal Colomb tom para ir a America!
;; ¡a comparar con los 3 meses que Cristobal Colomb tomó para ir a America!
;;
;; (Esto para decir que se podria salir a explorar las estrellas con la
;; tecnologia que tenemos desde hace 50 aos : los reactores nucleares,
;; tecnologia que tenemos desde hace 50 años : los reactores nucleares,
;; salvo que los que se quedan atras no verian volver a los astronautas
;; que van ms lejos).
;; que van más lejos).
;;
;;
;;
;;
;; (En el caso del photon que viaja a la velocidad de la luz, l toca los
;; (En el caso del photon que viaja a la velocidad de la luz, él toca los
;; dos puntos al mismo tiempo, de su punto de vista. Cuando quita un
;; electron y cuando llega a un otro electro, que sea dentro de la misma
;; molecula o al otro lado de la galaxia o del universo, para l es al
;; mismo tiempo. Las interaccines electro-magneticas son efectivamente
;; molecula o al otro lado de la galaxia o del universo, para él es al
;; mismo tiempo. Las interacciónes electro-magneticas son efectivamente
;; instantaneas, para los photones).
;;
;;
;;
;; http://scienceworld.wolfram.com/physics/TimeDilation.html
;; http://www.geocities.com/angelto.geo/bhole/lorentz.html
;; y miles de pginas sobre el tema...
;; y miles de páginas sobre el tema...
;;
;;; (show constantes)
......@@ -615,7 +616,7 @@ RETURN: x' ; t' ; dx' ; dt' such as
(while (re-search-forward regexp nil t)
(replace-match to-string fixed-case literal))))
(goto-char (point-min))
(while (re-search-forward "| *\\([-+]*[0-9][ 0-9]*\\(\\.[0-9][ 0-9]*\\)*\\)\\( 10\\([-+]*[0-9][0-9]*\\)\\)?\\( .*\\)?$" nil t)
(while (re-search-forward "| *\\([-+]*[0-9][ 0-9]*\\(\\.[0-9][ 0-9]*\\)*\\)\\( × 10\\([-+]*[0-9][0-9]*\\)\\)?\\( .*\\)?$" nil t)
(let* ((mantissa-str (match-string-no-properties 1))
(exponent-str (match-string-no-properties 4))
(unit-str (match-string-no-properties 5))
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-cvs.el
;;;;LANGUAGE: emacs lisp
......@@ -42,7 +43,7 @@
;; file = { revision=(file,*) }
;; tag = { {file_i,version_j), k!=l ==> file_k!=file_l }
;;
;; arc_file ( (file,v1),(file,v2) ) si v2 succède v1 (+branches)
;; arc_file ( (file,v1),(file,v2) ) si v2 succède v1 (+branches)
;; arc_tag ( (tag1,tag) si existe arc_file(n1,n2) avec n1 dans tag1
;; et n2 dans tag2 )
;; poind(arc_tag(tag1,tag2)) = cardinal { arc_file(n1,n2) avec n1 dans tag1
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-cvspass.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-dodo.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-dot.el
;;;;LANGUAGE: emacs-lisp
......
;;;; -*- coding: utf-8 -*-
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-emacs.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: pjb-erc.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;*****************************************************************************
;;;;FILE: pjb-euro.el
;;;;LANGUAGE: emacs lisp
......@@ -46,24 +47,24 @@
(:BEF 40.3399 1.00 "%10.0f" "Franc Belge")
(:DEM 1.95583 0.01 "%10.2f" "Mark Allemand")
(:ESP 166.386 1.00 "%10.0f" "Peseta Espagnole")
(:FRF 6.55957 0.01 "%10.2f" "Franc Franais")
(:FRF 6.55957 0.01 "%10.2f" "Franc Français")
(:IEP 0.787564 0.01 "%10.2f" "Lire Irlandaise")
(:ITL 1936.27 1.00 "%10.0f" "Lire Italienne")
(:LUF 40.3399 1.00 "%10.0f" "Franc Luxembourgeois")
(:NLG 2.20371 1.00 "%10.2f" "Florin Nerlandais")
(:NLG 2.20371 1.00 "%10.2f" "Florin Néerlandais")
(:ATS 13.7604 0.01 "%10.2f" "Shilling Autrichien")
(:PTE 200.428 1.00 "%10.0f" "Escudo Portuguais")
(:FIM 5.94573 1.00 "%10.0f" "Mark Finlandais")
;; Cours variables:
(:UKL 1.0 0.01 "%10.2f" "Livre Sterling")
(:AUD 1.0 0.01 "%10.2f" "Dollar Australien")
(:USD 1.0 0.01 "%10.2f" "Dollar Amricain")
(:USD 1.0 0.01 "%10.2f" "Dollar Américain")
(:CAD 1.0 0.01 "%10.2f" "Dollar Canadien")
(:JPY 1.0 1.00 "%10.0f" "Yen Japonais")
(:FRS 1.0 0.01 "%10.2f" "Franc Suisse")
(:SEK 1.0 0.01 "%10.2f" "Couronne Sudoise")
(:SEK 1.0 0.01 "%10.2f" "Couronne Suèdoise")
(:DKK 1.0 0.01 "%10.2f" "Couronne Danoise")
(:NOK 1.0 0.01 "%10.2f" "Couronne Norvgienne")
(:NOK 1.0 0.01 "%10.2f" "Couronne Norvégienne")
)
"This is the list of the devises that are in the euro,
with their conversion ratios.
......@@ -227,20 +228,20 @@ three-letter devise code. The value is euro-round'ed before formating."
("1/10 Kruger Rand" 3.105)
("Lingot" 1000.00)
("Barre" 1000.00)
("Napolon (Pice Franaise 20 FRF)" 5.80)
("Pice Suisse 20 Francs" 5.80)
("Pice Union Latine 20 Francs" 5.80)
("Napoléon (Pièce Française 20 FRF)" 5.80)
("Pièce Suisse 20 Francs" 5.80)
("Pièce Union Latine 20 Francs" 5.80)
("Souverain" 7.32)
("Pice 20 Dollars Amricains" 30.09)
("Pice 10 Dollars Amricains" 15.04)
("Pice 50 Pesos Mexicains" 37.50)
("Pice 10 Florins" 6.05)
("Demi-Napolon (Pice Franaise 10 FRF)" 2.90)
("Pice Tunisienne 20 Francs" 5.80)
("Pièce 20 Dollars Américains" 30.09)
("Pièce 10 Dollars Américains" 15.04)
("Pièce 50 Pesos Mexicains" 37.50)
("Pièce 10 Florins" 6.05)
("Demi-Napoléon (Pièce Française 10 FRF)" 2.90)
("Pièce Tunisienne 20 Francs" 5.80)
("Souverain Elisabeth II" 7.32)
("Demi-Souverain" 3.66)
("Pice 5 Dollars Amricains" 7.52)
("Pice 20 Marks" 7.17)
("Pièce 5 Dollars Américains" 7.52)
("Pièce 20 Marks" 7.17)
)
"A list of sublist (name gold-mass-in-gram) of gold coins and lingot."
);;gold-coins
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: pjb-font.el
;;;;LANGUAGE: emacs lisp
......@@ -355,4 +356,4 @@ RETURN: A tree where the child of each node are labelled with
(select-default-font)))
(provide 'pjb-font)
\ No newline at end of file
(provide 'pjb-font)
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-graph.el
;;;;LANGUAGE: emacs-lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: pjb-html.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-i2p-expression.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-layers.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-list.lisp
;;;;LANGUAGE: common-lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;*****************************************************************************
;;;;FILE: pjb-mail.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-make-depends.el
;;;;LANGUAGE: emacs
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-objc-mode.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;******************************************************************************
;;;;FILE: pjb-object.el
;;;;LANGUAGE: emacs lisp
......
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-
;;;;****************************************************************************
;;;;FILE: pjb-page.el
;;;;LANGUAGE: emacs lisp
......@@ -115,4 +116,4 @@
(sit-for delay)
(force-mode-line-update t)
) ;;while
(message "Done.")))
\ No newline at end of file
(message "Done.")))
;;;; -*- mode:emacs-lisp;coding:utf-8 -*-