View gist:70204bead964de3985dc
#!/usr/bin/perl
# Based on http://www.perlmonks.org/?node_id=65152
use strict;
use Net::INET6Glue::INET_is_INET6;
use Net::LDAP;
use constant HOST => 'ip6-localhost:1389';
use constant BASE => 'ou=people';
View gist:9663373
$ git --version
git version 1.8.5.rc2.7.g8167612 # same behavour with 1.9.1.423.g4596e3a
$ git init
Initialized empty Git repository in /home/torstein/tmp/git-empty/.git/
$ echo "f" >file
$ git add file
View gist:5133826
Bus 002 Device 009: ID 0d8c:0309 C-Media Electronics, Inc.
Device Descriptor:
bLength 18
bDescriptorType 1
bcdUSB 2.00
bDeviceClass 239 Miscellaneous Device
bDeviceSubClass 2 ?
bDeviceProtocol 1 Interface Association
bMaxPacketSize0 64
idVendor 0x0d8c C-Media Electronics, Inc.
View avg_cyclic()
-- MySQL
SELECT UNIX_TIMESTAMP(date), avg_cyclic, frequency_start , frequency_stop, intensity, source
FROM (SELECT MAX(id) AS max_id, CONCAT(echo.frequency_start , '-', echo.frequency_stop) AS frequency
FROM echo
WHERE channel = {0}
GROUP BY frequency) AS id,
echo,
(SELECT
IF (avg(sin(direction*PI()/180))>0 AND avg(cos(direction*PI()/180))>0,
atan(avg(sin(direction*PI()/180))/avg(cos(direction*PI()/180))),
View simple makefile
all: program run plot
.PHONY: run plot
program: file.c
gcc -o program file.c
run:
./program
View file_filter
#!/usr/bin/perl
use strict;
use warnings;
# Use: cat file | ./filter.pl > new_file
while(<>) {
if (/^(\w+(\\\w+)*)\\(\w+)\t(\w+)$/) {
print "$1;$3;$4\n";
}
View koordinatsystemkrøll.c
/* Read acc and gyro */
body_linear_acc /* contains: u_dot, v_dot, w_dot */
body_rotation_acc /* contains: p_dot, q_dot, r_dot */
/* Calculate angle TODO: compensate for turning */
local_angle = find_angles_atan2(body_linear_acc)
/* Read GPS position and speed */
gps_speed /*contains x, y, z */
gps_position /* contains x_dot, y_dot, z_dot */