[R] R and computer heat

[Alexandre Aguiar]

Em Terça 07 Out 2008, Dr Eberhard Lisse escreveu:
> Why don't you hack a little script that looks at system load,
> temperature and date/time and writes it somewhere. Then

Done! Columns are time, % of cpu usage and cpu temp in Celsius degrees.
The R script used was complete in about 2 min 10 sec and the temp rose up to 
79 without cpu overload. I use *several* concurrent processes.

The shell script is below. I changed it to produce a "seconds" column and 
csv output.

The image attached was obtained in another run. Note that cpu_load (blue) 
was multiplied by 80 and never reached 80 (less than 1% during processing). 
The first peak was R loading.

Em Terça 07 Out 2008, Tom Backer Johnsen escreveu:
> My guess is that it the graphics card which is hard at work.

Maybe. But the script produces no screen output. All devices (grDevices) are 
files. Is video adaptor used in this setting? DVD play won't have any 
effect on temperature.

------------------8><--------------------------
2008-10-07 18:28:38 :: 1.01 :: 48
2008-10-07 18:28:39 :: 1.01 :: 48
2008-10-07 18:28:40 :: 1.01 :: 48
2008-10-07 18:28:41 :: 1.00 :: 51
2008-10-07 18:28:42 :: 1.00 :: 51
2008-10-07 18:28:43 :: 1.00 :: 51
2008-10-07 18:28:44 :: 1.00 :: 51
2008-10-07 18:28:45 :: 1.00 :: 51
2008-10-07 18:28:46 :: 0.99 :: 49
2008-10-07 18:28:48 :: 0.99 :: 49
2008-10-07 18:28:49 :: 0.99 :: 49
2008-10-07 18:28:50 :: 0.99 :: 49
2008-10-07 18:28:51 :: 0.99 :: 48
2008-10-07 18:28:52 :: 0.99 :: 48
2008-10-07 18:28:53 :: 0.99 :: 48
2008-10-07 18:28:54 :: 0.99 :: 48
2008-10-07 18:28:55 :: 0.99 :: 48
2008-10-07 18:28:57 :: 0.98 :: 48
2008-10-07 18:28:58 :: 0.98 :: 48
2008-10-07 18:28:59 :: 0.98 :: 48
2008-10-07 18:29:00 :: 0.98 :: 48
2008-10-07 18:29:01 :: 0.98 :: 48
2008-10-07 18:29:02 :: 0.98 :: 48
2008-10-07 18:29:03 :: 0.98 :: 48
2008-10-07 18:29:05 :: 0.98 :: 48
2008-10-07 18:29:06 :: 0.98 :: 57
2008-10-07 18:29:07 :: 0.98 :: 57
2008-10-07 18:29:08 :: 0.98 :: 57
2008-10-07 18:29:09 :: 0.98 :: 57
2008-10-07 18:29:10 :: 0.98 :: 57
2008-10-07 18:29:11 :: 0.99 :: 60
2008-10-07 18:29:12 :: 0.99 :: 60
2008-10-07 18:29:13 :: 0.99 :: 60
2008-10-07 18:29:15 :: 0.99 :: 60
2008-10-07 18:29:16 :: 0.99 :: 60
2008-10-07 18:29:17 :: 0.99 :: 62
2008-10-07 18:29:18 :: 0.99 :: 62
2008-10-07 18:29:19 :: 0.99 :: 62
2008-10-07 18:29:20 :: 0.99 :: 62
2008-10-07 18:29:21 :: 1.00 :: 64
2008-10-07 18:29:22 :: 1.00 :: 64
2008-10-07 18:29:23 :: 1.00 :: 64
2008-10-07 18:29:25 :: 1.00 :: 64
2008-10-07 18:29:26 :: 1.00 :: 64
2008-10-07 18:29:27 :: 1.00 :: 65
2008-10-07 18:29:28 :: 1.00 :: 65
2008-10-07 18:29:29 :: 1.00 :: 65
2008-10-07 18:29:30 :: 1.00 :: 65
2008-10-07 18:29:31 :: 1.00 :: 67
2008-10-07 18:29:32 :: 1.00 :: 67
2008-10-07 18:29:33 :: 1.00 :: 67
2008-10-07 18:29:35 :: 1.00 :: 67
2008-10-07 18:29:36 :: 1.00 :: 67
2008-10-07 18:29:37 :: 1.00 :: 68
2008-10-07 18:29:38 :: 1.00 :: 68
2008-10-07 18:29:39 :: 1.00 :: 68
2008-10-07 18:29:40 :: 1.00 :: 68
2008-10-07 18:29:41 :: 1.03 :: 69
2008-10-07 18:29:42 :: 1.03 :: 69
2008-10-07 18:29:43 :: 1.03 :: 69
2008-10-07 18:29:45 :: 1.03 :: 69
2008-10-07 18:29:46 :: 1.04 :: 69
2008-10-07 18:29:47 :: 1.04 :: 70
2008-10-07 18:29:48 :: 1.04 :: 70
2008-10-07 18:29:49 :: 1.04 :: 70
2008-10-07 18:29:50 :: 1.04 :: 70
2008-10-07 18:29:51 :: 1.04 :: 71
2008-10-07 18:29:52 :: 1.04 :: 71
2008-10-07 18:29:54 :: 1.04 :: 71
2008-10-07 18:29:55 :: 1.04 :: 71
2008-10-07 18:29:56 :: 1.04 :: 71
2008-10-07 18:29:57 :: 1.04 :: 72
2008-10-07 18:29:58 :: 1.04 :: 72
2008-10-07 18:29:59 :: 1.04 :: 72
2008-10-07 18:30:00 :: 1.04 :: 72
2008-10-07 18:30:01 :: 1.04 :: 73
2008-10-07 18:30:02 :: 1.04 :: 73
2008-10-07 18:30:03 :: 1.04 :: 73
2008-10-07 18:30:05 :: 1.04 :: 73
2008-10-07 18:30:06 :: 1.04 :: 73
2008-10-07 18:30:07 :: 1.04 :: 74
2008-10-07 18:30:08 :: 1.04 :: 74
2008-10-07 18:30:09 :: 1.04 :: 74
2008-10-07 18:30:10 :: 1.04 :: 74
2008-10-07 18:30:11 :: 1.03 :: 74
2008-10-07 18:30:12 :: 1.03 :: 74
2008-10-07 18:30:13 :: 1.03 :: 74
2008-10-07 18:30:15 :: 1.03 :: 74
2008-10-07 18:30:16 :: 1.04 :: 74
2008-10-07 18:30:17 :: 1.04 :: 75
2008-10-07 18:30:18 :: 1.04 :: 75
2008-10-07 18:30:19 :: 1.04 :: 75
2008-10-07 18:30:20 :: 1.04 :: 75
2008-10-07 18:30:21 :: 1.04 :: 75
2008-10-07 18:30:22 :: 1.04 :: 75
2008-10-07 18:30:23 :: 1.04 :: 75
2008-10-07 18:30:25 :: 1.04 :: 75
2008-10-07 18:30:26 :: 1.04 :: 75
2008-10-07 18:30:27 :: 1.04 :: 76
2008-10-07 18:30:28 :: 1.04 :: 76
2008-10-07 18:30:29 :: 1.04 :: 76
2008-10-07 18:30:30 :: 1.04 :: 76
2008-10-07 18:30:31 :: 1.04 :: 76
2008-10-07 18:30:32 :: 1.04 :: 76
2008-10-07 18:30:33 :: 1.04 :: 76
2008-10-07 18:30:35 :: 1.04 :: 76
2008-10-07 18:30:36 :: 1.05 :: 76
2008-10-07 18:30:37 :: 1.05 :: 76
2008-10-07 18:30:38 :: 1.05 :: 76
2008-10-07 18:30:39 :: 1.05 :: 76
2008-10-07 18:30:40 :: 1.05 :: 76
2008-10-07 18:30:41 :: 1.05 :: 76
2008-10-07 18:30:43 :: 1.05 :: 76
2008-10-07 18:30:44 :: 1.05 :: 76
2008-10-07 18:30:45 :: 1.05 :: 76
2008-10-07 18:30:46 :: 1.05 :: 76
2008-10-07 18:30:47 :: 1.05 :: 77
2008-10-07 18:30:48 :: 1.05 :: 77
2008-10-07 18:30:49 :: 1.05 :: 77
2008-10-07 18:30:50 :: 1.05 :: 77
2008-10-07 18:30:51 :: 1.06 :: 77
2008-10-07 18:30:52 :: 1.06 :: 77
2008-10-07 18:30:54 :: 1.06 :: 77
2008-10-07 18:30:55 :: 1.06 :: 77
2008-10-07 18:30:56 :: 1.06 :: 77
2008-10-07 18:30:57 :: 1.06 :: 78
2008-10-07 18:30:58 :: 1.06 :: 78
2008-10-07 18:30:59 :: 1.06 :: 78
2008-10-07 18:31:00 :: 1.06 :: 78
2008-10-07 18:31:01 :: 1.07 :: 78
2008-10-07 18:31:02 :: 1.07 :: 78
2008-10-07 18:31:03 :: 1.07 :: 78
2008-10-07 18:31:05 :: 1.07 :: 78
2008-10-07 18:31:06 :: 1.10 :: 78
2008-10-07 18:31:07 :: 1.10 :: 78
2008-10-07 18:31:08 :: 1.10 :: 78
2008-10-07 18:31:09 :: 1.10 :: 78
2008-10-07 18:31:10 :: 1.10 :: 78
2008-10-07 18:31:11 :: 1.11 :: 79
2008-10-07 18:31:13 :: 1.11 :: 79
2008-10-07 18:31:14 :: 1.11 :: 79
2008-10-07 18:31:15 :: 1.11 :: 79
2008-10-07 18:31:16 :: 1.10 :: 79
2008-10-07 18:31:17 :: 1.10 :: 74
2008-10-07 18:31:18 :: 1.10 :: 74
2008-10-07 18:31:19 :: 1.10 :: 74
2008-10-07 18:31:21 :: 1.13 :: 74
2008-10-07 18:31:22 :: 1.13 :: 66
2008-10-07 18:31:23 :: 1.13 :: 66
2008-10-07 18:31:24 :: 1.13 :: 66
2008-10-07 18:31:25 :: 1.13 :: 66
2008-10-07 18:31:26 :: 1.14 :: 64
2008-10-07 18:31:27 :: 1.14 :: 64
2008-10-07 18:31:28 :: 1.14 :: 64
2008-10-07 18:31:30 :: 1.14 :: 64
2008-10-07 18:31:31 :: 1.14 :: 64
2008-10-07 18:31:32 :: 1.14 :: 62
2008-10-07 18:31:33 :: 1.14 :: 62
2008-10-07 18:31:34 :: 1.14 :: 62
2008-10-07 18:31:35 :: 1.14 :: 62
2008-10-07 18:31:36 :: 1.14 :: 62
2008-10-07 18:31:37 :: 1.14 :: 61
2008-10-07 18:31:38 :: 1.14 :: 61
2008-10-07 18:31:39 :: 1.14 :: 61
2008-10-07 18:31:40 :: 1.14 :: 61
2008-10-07 18:31:41 :: 1.14 :: 59
2008-10-07 18:31:43 :: 1.14 :: 59
2008-10-07 18:31:44 :: 1.14 :: 59
2008-10-07 18:31:45 :: 1.14 :: 59
2008-10-07 18:31:46 :: 1.14 :: 59
2008-10-07 18:31:47 :: 1.14 :: 58
2008-10-07 18:31:48 :: 1.14 :: 58
2008-10-07 18:31:49 :: 1.14 :: 58
2008-10-07 18:31:50 :: 1.14 :: 58
2008-10-07 18:31:51 :: 1.15 :: 57
2008-10-07 18:31:53 :: 1.15 :: 57
2008-10-07 18:31:54 :: 1.15 :: 57
2008-10-07 18:31:55 :: 1.15 :: 57
2008-10-07 18:31:56 :: 1.15 :: 57
2008-10-07 18:31:57 :: 1.15 :: 56
2008-10-07 18:31:58 :: 1.15 :: 56
2008-10-07 18:31:59 :: 1.15 :: 56
2008-10-07 18:32:01 :: 1.15 :: 56
2008-10-07 18:32:02 :: 1.15 :: 55
2008-10-07 18:32:03 :: 1.15 :: 55
2008-10-07 18:32:04 :: 1.15 :: 55
2008-10-07 18:32:05 :: 1.15 :: 55
2008-10-07 18:32:06 :: 1.15 :: 55
2008-10-07 18:32:07 :: 1.15 :: 55
2008-10-07 18:32:09 :: 1.15 :: 55
2008-10-07 18:32:10 :: 1.15 :: 55
2008-10-07 18:32:11 :: 1.15 :: 55
------------------8><--------------------------
#!/bin/bash
LOG="./machinemon-$(date +"%Y%m%d%s").csv"
[ $# == 0 ] && LONG=60 || LONG=$(expr $1 \* 60)
START=$(date +%s)
DIFF=0
echo "time,seconds,cpu_load,cpu_temp" > $LOG
while [ $DIFF -lt $LONG ]; do
    CPU=$(uptime | awk -F ": " '{ print $2 }' | cut -d" " -f3)
    TEMP=$(cat /proc/acpi/thermal_zone/THRM/temperature)
    TEMP=$(expr ${TEMP:25:2})
    TIME=$(date +"%F %T")
    sleep 1
    DIFF=$(expr $(date +%s) - $START)
    echo "$TIME,$DIFF,$CPU,$TEMP" >> "$LOG"
done
# cat $LOG | less
------------------8><--------------------------



Alexandre

-- 
Alexandre Santos Aguiar, MD, SCT
--
website: http://spsconsultoria.com/
Phone: +55-11-3717-4866 (SP)
Phone: +55-21-3717-4866 (RJ)
Voicemail: +55-11-2157-6891 (SP)
Fax: +55-11-5549-8760 (SP)
--
-------------- Pr?xima Parte ----------
Um anexo n?o-texto foi limpo...
Nome: n?o dispon?vel
Tipo: application/pgp-signature
Tamanho: 189 bytes
Descri??o: This is a digitally signed message part.
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20081007/71159d92/attachment.bin>