#include <stdio.h> 
#define MAXLENGTHSTR 255
 
int main(void) 
{ 
  /* Deklaration der Variablen */ 
  int ein1, ein3, aus; 
  char ein2; 
  char s1[MAXLENGTHSTR];
 
  /* Usereingabe */ 
  printf("Eingabe: "); 
  flushall(); gets(s1); 
 
  /* Interne Verarbeitung des Input */ 
  sscanf(s1, "%d %c %d", &ein1, &ein2, &ein3); 
  aus = 0; 
 
  /* Berechnung */ 
  switch(ein2) 
  { 
    case '+': aus = ein1 + ein3; break; /* Addition */ 
    case '-': aus = ein1 - ein3; break; /* Subtraktion */ 
    case '*': aus = ein1 * ein3; break; /* Multiplikation */ 
    case '/': aus = ein1 / ein3; break; /* Division */ 
    case '%': aus = ein1 % ein3; break; /* Modulo */ 
    default: printf("   Input error!\n"); break; 
  } 
 
  /* Ausgabe */ 
  printf("Ergebnis: %d\n", aus); 
 
  /* Ende */ 
  return 0; 
} 

D = imread('Pfadangabe.jpg'); 
imagesc(D) 
 
%Header wird eingefügt 
fid3 = fopen(['D:\\Cybex\\Header' file(i).name_new_R '_Header_63.asc'],'wt'); 
printf(fid3,'%s \t %s \t %s \t %s\n','#Time','#Trig','#Win','#Tor') 
 
%speichert Time, Trigger, Winkel, Torque, Rate, MFs 
fprintf(fid3,'%f \t %f \t %f \t %f \t %f \t %f \t %f \t %f\n',MF_60_30'); 
 
ft2 = [matlabroot '/work/emma/leitung/' fn2 '.txt']; 
[X Y] = textread(ft2, '%d MHz - %f %*s'); 
X= X(1:end,1)*1000000; 
P = interp1(X, Y, linspace(min(X),max(X))); 
 
sz=size(fd); 
 
for k=1:sz(1,1)-1     
    x = (fd(k,2)-fd((k+1),2)); 
    y = (fd(k,3)-fd((k+1),3)); 
 
    head(k,:) = (x,y) 
end 
    panalyse = uicontrol(fh,'Style','PushButton',... 
                         'Units','normalized',... 
                         'Position',[X+j*AbstandX Y-k*AbstandY laenge hoehe],..
                         'String','Analysieren',... 
                         'ToolTipString','Analysiert die simulierten Daten',...
                         'CallBack','analyse(par1,par2,...)',... 
                         'Tag','Analyse'); 
 
X1=X(1); 
X2=X(end); 
X3=X1:X2; 
X4=X1:.25:X2;  % Denke hier kann ich die Genauigkeit angeben 
% für Y sind ja soviele Werte eingelesen wie Zeilen vorhanden 

binDiv m n = 
  if m < n then 0 
    else let d = (2*binDiv m (2*n)) in 
      if m - d*n < n then d else d + 1 
 

class ArrayTest { 
   public static void manipuliere(String[] s) { 
      if (s != null) 
         s[0] = "Hallo"; 
   } 
 
   public static void manipuliere_nix(String[] s) { 
      String[] neu = { "HUHU", "IHR" }; 
      s = neu; 
   } 
 
   public static void main(String[] args) { 
      String[] strings = { "hallo", "Welt" }; 
      manipuliere(strings); 
      for (String s: strings) 
         System.out.println(s); 
      manipuliere_nix(strings); 
      for (String s: strings) 
         System.out.println(s); 
   } 
}

#!/bin/bash
multiply ()           # multipliziert die uebergebenen Parameter
{                     # Anzahl der Parameter ist variabel
  local product=1
  until [ -z "$1" ]   # Until nutzt den ersten uebergebenen Parameter ...
  do
  let "product *= $1"
  shift
  done
  echo $product         #  wird nicht auf STDOUT ausgegeben,
}                       #  wenn es an eine Variable uebergeben wird
 
mult1=15383; mult2=25211
val1=`multiply $mult1 $mult2`
echo "$mult1 X $mult2 = $val1" # 387820813

REAL, DIMENSION(:,:) :: A 
INTEGER :: i,k 
DO i = 1, SIZE(A,1) 
  WRITE(*,*)(A(i,k), k = 1, SIZE(A,2)) ! oder: A(i,:) ! 
END DO 

function so_sth(terms){ 
        terms = terms.replace(/\"/g,""); 
        var terms_split = terms.split(' '); 
        var c = 0; 
        for(var i=0; i<terms_split.length; i++){ 
                term = terms_split[i]; 
                if(term=='') continue; 
                term = term.replace(/\$/g," "); 
        } 
}

#
# Extracting information from the file ...
#
 
paper = open(sys.argv[1]);
 
authorcount = 0;
author = {};
abstract = '';
 
for line in paper:
    if len(re.compile('\\\\title').findall(line)) > 0:
        title = re.compile('\\\\title\[[\s\S]*\]{([\s\S]*)}\n').sub('\\1', line);
 
    if len(re.compile('\\\\keywords').findall(line)) > 0:
        keywords = re.compile('\\\\keywords{([\s\S]*)}\n').sub('\\1', line);
 
    if len(re.compile('\\\\subjclass').findall(line)) > 0:
        msc = re.compile('\\\\subjclass\[2000\]{([\s\S]*)}\n').sub('\\1', line);
 
    if len(re.compile('\\\\author').findall(line)) > 0:
        author[authorcount] = re.compile('\\\\author\\[[\s\S]*\\]{([\s\S]*)}\n').sub('\\1', line);
        author[authorcount] = re.compile('\\\\"u', re.VERBOSE).sub('ü', author[authorcount]);
        authorcount = authorcount + 1;
 
    if len(re.compile('\\\\begin{abstract}').findall(line)) > 0:
        for line in paper:
            if len(re.compile('\\\\end{abstract}').findall(line)) > 0:
                break;
            abstract = abstract + line;
 
 
paper.close();

\documentclass[a4paper, 12pt]{article}
 
\usepackage[T1]{fontenc}
\usepackage[latin1]{inputenc}
\usepackage{ngerman}
 
\setlength{\parindent}{0em}
 
\begin{document}
 
Die Simpsonregel ist auch unter dem Namen Keplersche Fassregel bekannt.
Johannes Kepler konnte damit eine sehr gute Näherung zur Berechnung des Volumens von Fässern angeben.
Dazu betrachtete er ein Fass als ein Rotationsparaboloid. 
Dann ergibt sich dass Fassvolumen als
$$V = \pi \int_0^H \varphi(x) \, \textnormal{d}x$$
wobei $\varphi$ eine Parabel beschreibt, die die Fassdauben möglichst gut approximiert.
$H$ ist hier die Höhe des Fasses. Da die Keplersche Fassregel für Polynome 2. Grades exakt ist, gilt also
$$V = H \pi \left(\frac{1}{6}\varphi(0) + \frac{4}{6}\varphi(\frac{H}{2}) + \frac{1}{6}\varphi(H)\right)$$
 
\end{document}

actionscript
ada
apache
applescript
asm
asp
autoit
bash           Synonyme: sh shell ksh
blitzbasic
bnf
c
c_mac
caddcl
cadlisp
cfdg
cfm
cpp-qt
cpp            Synonyme: c++
csharp         Synonyme: c#
css
d
delphi
diff
div
dos
eiffel
fortran
freebasic
gml
groovy
haskell
html4strict  Synonyme: html
idl
ini
inno
io
java5        Synonyme: java
javascript
latex
lisp
lua
matlab
mirc
mpasm
mysql
nsis
objc
ocaml-brief
ocaml
oobas
oracle8
pascal
perl
php-brief
php
plsql
python
qbasic      Synonyme: basic
rails
reg
robots
ruby
sas
scheme
sdlbasic
smalltalk
smarty
sql
tcl
text
thinbasic
tsql
vb
vbnet
vhdl
visualfoxpro
winbatch
xml
xpp
z80

  if($codestack[0]) 
      $codestack .= "\n";

  if($codestack[0]||$codestack[0]=="0") 
      $codestack .= "\n";

<a href='http://matheplanet.com' target='_blank'><u>www.matheplanet.com</u></a>