gelinive

git clone git://bebou.netlib.re/gelinive
Log | Files | Refs | README |

commit a87bb0ef68f29d28aa033995462f3817ea5ac037
Auterice: Arthur Pons <arthur.pons@unistra.fr>
Date:   Mon, 11 Mar 2024 00:02:47 +0100

Premier commit

Diffstat:
A
calcR
 | 
16
++++++++++++++++
A
data
 | 
9
+++++++++
A
gelinive
 | 
8
++++++++
A
mail
 | 
17
+++++++++++++++++
A
sumcol
 | 
6
++++++

5 files changed, 56 insertions(+), 0 deletions(-)
diff --git a/calcR b/calcR
@@ -0,0 +1,16 @@
+# q P n h e d R H
+# 1	0	0	0		46		100
+# 1	1	0	0		0		54
+# 1	1	1	5		2		54
+# 1	1	2	5		2		52
+# 1	1	2	5		2		50
+# 1	1	5	5		3		48
+# 1	1	6	5		3		45
+# 1	1	1	5		40		42
+# 1	1	5	10		2		2
+
+
+awk -F'\t' '{ if($5=="0"){ print "print \"/\n\"" } else { printf "(%s*%s)/%s+%s+%s\n", $3, $4, $5, $1, $2 } }' |
+bc -l |
+sed -E '/^[0-9]+\./ s/\..*//;'
+
diff --git a/data b/data
@@ -0,0 +1,9 @@
+1	0	0	0	46	100
+1	1	0	0	0	54
+1	1	1	5	2	54
+1	1	2	5	2	52
+1	1	2	5	2	50
+1	1	5	5	3	48
+1	1	6	5	3	45
+1	1	1	5	40	42
+1	1	5	10	2	2
diff --git a/gelinive b/gelinive
@@ -0,0 +1,8 @@
+#! /bin/sh
+
+tempfile=$(mktemp);trap "rm -rf $tempfile" EXIT
+
+< $1 ./calcR |
+	paste $1 - > $tempfile
+< $tempfile ./sumcol 5 |
+	paste $tempfile -
diff --git a/mail b/mail
@@ -0,0 +1,17 @@
+Bonjour. Voici, comme promis, un sondage et coupe stratigraphique effectué par
+des collègues en 1996 à Méribel. Nous avions eu à exploiter ces deux fiches et
+à effectuer la coupe sur papier millimétrique. Nous calculons la résistance à
+l'enfoncement en utilisant la formule R= sur la première fiche. On calcule
+alors d = enfoncement pour n coups. Puis R par la formule magique. Géliniv
+nous le calcule et fait le dessin du même coup, ce qui est bien plus facile
+pour nous, observateurs pas forcément doués en math.
+
+Ensuite: un sondage du 14/03/2013 effectué dans les Vosges, avec la courbe faite à la main et la même faite par geliniv.
+
+Alors, si vous trouvez le temps de ressortir un petit programme qui fasse la
+même chose, sensiblement avec la même présentation et en couleur, ce serait
+sympa et utile pour la suite de nos études. Il faudra trouver un nom à ce
+petit programme, de préférence en alsacien. (c)unistra Bretzy, ou autre petit
+nom bien couleur locale.
+
+Schneeflocke, Schneeteufel, Schneewirbel, Schneesturm
diff --git a/sumcol b/sumcol
@@ -0,0 +1,6 @@
+#! /bin/sh
+
+awk -v col=${1:-1} '
+BEGIN { getline; tot=$col; print tot }
+{tot=$col+tot;print tot }
+'