felixlindemann

#####################################################
##################    Project R    ##################
##################   Lottozahlen   ##################
##################    Copyright    ##################
################## Felix LIndemann ##################
#####################################################
#####################################################
#                                                   #
# Parameters:                                       #
#            n: Anzahl Lotto-Reihen                 #

felixlindemann

 private void WriteDocumentProperty(string propertyName, string value)
        {
            Microsoft.Office.Core.DocumentProperties properties;
            Document doc = this.getDoc();
            properties = (Microsoft.Office.Core.DocumentProperties)
                 doc.CustomDocumentProperties;
            if (properties.Cast<DocumentProperty>().Where(c => c.Name == propertyName).Count() == 0)
                properties.Add(propertyName, false, MsoDocProperties.msoPropertyTypeString, Guid.NewGuid().ToString());
            properties[propertyName].Value = value;

felixlindemann

  private string ReadDocumentProperty(string propertyName)
        {
            Microsoft.Office.Core.DocumentProperties properties;
            Document doc = this.getDoc();
            properties = (Microsoft.Office.Core.DocumentProperties)
                 doc.CustomDocumentProperties;
            if (properties.Cast<DocumentProperty>().Where(c => c.Name == propertyName).Count() > 0)
                return properties[propertyName].Value.ToString();

felixlindemann

 private Document getDoc()
        {
            if (this.doc == null) { this.doc = Globals.ThisAddIn.Application.ActiveDocument; }
            return doc;
        }

felixlindemann

 public void Save()
        {
            Saving = true;
            try
            {
                writeProperties();
                Document doc = getDoc();
                FileInfo f = new FileInfo(doc.FullName);
                String strFileName = String.Format(@"{0}\{1} - v.{2}.{3}.{4}.docx", f.Directory.FullName, DocTitle, Revision, Version, Build);

felixlindemann

# define function
# found in: 
# 				Wilmott, Paul (2007): 
#					Paul Wilmott introduces quantitative finance. 
#					2. Edition. Chichester: Wiley. 
# r: number of random numbers to be calculated
StandNorm<-function(r=30){
	
	# how many iterations should be calculated? 
	# 50 proofed to be a good number to get robust

felixlindemann

<math display="block">
	<mrow>
		<mi>r</mi>
		<mo>=</mo>
		<msqrt>
			<mfrac>
				<mrow>
					12
				</mrow>
				<mrow>

felixlindemann

r = \sqrt{\frac{12}{n}}\cdot (\sum_{i=1}^n(RAND())-\frac{n}{2})

felixlindemann

% Optimal Lot-Size with the Andler Formula
% Author: Felix Lindemann
% Source: Beamer by Till Tantau <--- Great!
% GNUPLOT required
\RequirePackage{atbegshi}
\documentclass{beamer}

\usepackage{verbatim}
\usepackage{animate}
\usepackage{calc}

felixlindemann

% Rooty helix
% Author: Felix Lindemann
\documentclass{minimal}

\usepackage{tikz}
\usetikzlibrary{calc}
\begin{document}

\pagestyle{empty}
\pgfdeclarelayer{background}