100825/tex/sh100625relh.sh

#!/bin/bash

# (c) David Vajda
# Stochastik, relative haeufigkeit, h(X), ...
# 10/06/25

echo "(c) David Vajda"
echo "Stochastik, relative haeufigkeit, h(X), ..."
echo "10/06/25"
date +%m/%d/%Y/%N

digits=(8 4 2 1)
i=0
j=0
n=$((32*4))

while [ $i -lt $n ]
do
    # if [ $(($RANDOM%2)) -eq 0 ]
    # then

    # fi
    x=$((${digits[$j*($RANDOM%2)]}))
    y=$(($y+x))
    i=$(($i+1))
    j=$((($j+1)%4))
    if [ $j -eq 0 ]
    then
        echo "$(($i/4)). $y"
        y=0
        x=0
    fi
done

i=0
m=
X=(M L K J I H G F E D C B A)

while [ $i -lt ${#X[@]} ]
do
    # echo "${X[$((!($i/4)*($i%4)))]}"
    if [ $(($i/4)) -eq 0 ]
    then
        echo "${X[$(($i%4))]}"
    fi
    i=$(($i+1))
done