Personality test

In this example TikZ is used to produce the graphic output of a personality test developed by Prof. Poul Sveistrup.

Edit and compile if you like:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
% In this document Tikz is used to produce the graphic output of
% personality test by Sveistrup. More on the test (in Danish) here:
% http://www.socsci.auc.dk/samfbasis/kurser/projektarb/2006_7_farvetest.doc
% Author: Rasmus Pank Roulund
\documentclass[DIV=14]{scrartcl}
\pagestyle{empty}
\usepackage{tikz}
\usepackage{fltpoint}
\usepackage{subfig}
%Adding new counters
\newcounter{lenA}\newcounter{lenB}
\newcounter{lenC}\newcounter{lenD}
\newcommand{\svenstrup}[4]{
    \setcounter{lenA}{#1}%
    \setcounter{lenB}{#2}%
    \setcounter{lenC}{#3}%
    \setcounter{lenD}{#4}%
    \fpMul{\fourAB}{\thelenA}{\thelenB}%
    \fpDiv{\threeAB}{\fourAB}{2}%
    %
    \fpMul{\fourBC}{\thelenB}{\thelenC}%
    \fpDiv{\threeBC}{\fourBC}{2}%
    %
    \fpMul{\fourAD}{\thelenA}{\thelenD}%
    \fpDiv{\threeAD}{\fourAD}{2}%
    %
    \fpMul{\fourCD}{\thelenC}{\thelenD}%
    \fpDiv{\threeCD}{\fourCD}{2}%
    %
    \sffamily
    \begin{tikzpicture}[scale=.60]
        %Styles are defined.
        \tikzstyle{axes}=[]
        \tikzstyle{important line}=[very thick]
        %Let us lay the grounds.
        %grid
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX