jagd

#!/usr/bin/perl

#
# Script to calibrate the measured result
#
# Author: wuchuanren@gmail.com
# Date:	  01.Jun. 2013
#

use strict;

jagd

"" feko
autocmd BufNewFile,BufRead *.pre set filetype=feko
autocmd filetype feko call Feko()

function! Feko()

	"" Syntax Highlight

	set syntax=feko

jagd

{-
  x^(n-1) % n == 1
  k == n-1 == d*(2^m)
und
    a^d % n == (1 || n-1)
  oder irgendeine
    a^(d * (2^i))  %  n == n-1
      davon, i = 1, 2, 3 ... m
-}

jagd

int MillerRabin(uint32_t a, int n)
{
	/* x^(n-1) % n == 1  */
	/* k == n-1 == d*(2^m) */

	 /*  davon :
	 *  a^d % n == 1
	 * oder
	 *  a^(d * (2^i))  %  n == n-1
	 * davon, i = 1, 2, 3 ...