(*Abfrage, ob DOS-Version*) DOSFrage=MemberQ[{"MS-DOS 386","387","DOS 387"},$System]; Unprotect[SUM,Product,Pi,Binomial,Floor,Ceiling,Abs,DirectedInfinity,Times, Integrate]; Format[SUM[Expr_,{i_,m_,n_}]]:=If[DOSFrage, PrecedenceForm[SequenceForm[ColumnForm[{n,"ÚÄÄÄ¿"," \\ "," > "," / ", "ÀÄÄÄÙ",SequenceForm[i,"=",m]},Center,Center],Expr],150], PrecedenceForm[SequenceForm[ColumnForm[{n,"-----"," \\ "," > "," / ", "-----",SequenceForm[i,"=",m]},Center,Center],Expr],150]]; Format[Product[Expr_,{i_,m_,n_}]]:=If[DOSFrage, PrecedenceForm[SequenceForm[ColumnForm[{n,"ÄÂÄÂÄ"," ³ ³ "," ³ ³ ", SequenceForm[i,"=",m]},Center,Center],Expr],150], PrecedenceForm[SequenceForm[ColumnForm[{n,"-----"," | | "," | | ", SequenceForm[i,"=",m]},Center,Center],Expr],150]]; (*Format[Integrate[Expr_,{x_,m_,n_}]]:= PrecedenceForm[SequenceForm[ColumnForm[{StringForm[" ``",n]," ô "," ³ "," ³ "," ³ ", " õ ",StringForm["`` ",m]},Center,Center], Expr,StringForm[" d``",x]],150];*) If[DOSFrage,Format[Pi]:="ã"]; Format[Binomial[n_,k_]]:= SequenceForm[ColumnForm[{"( ","( ","( ","( ","( "},Center,Center], ColumnForm[{n," ",k},Center,Center], ColumnForm[{" )"," )"," )"," )"," )"},Center,Center]]; Format[Floor[Expr_]]:=If[DOSFrage, SequenceForm[ColumnForm[{"³ ","À "},Center,Center], Expr, ColumnForm[{" ³"," Ù"},Center,Center]], SequenceForm[ColumnForm[{"| ","[ "},Center,Center], Expr, ColumnForm[{" |"," ]"},Center,Center]] ]; Format[Floor[Expr_],TeXForm]:= StringJoin["\\left \\lfloor ",ToString[TeXForm[Expr]]," \\right \\rfloor"]; Format[Ceiling[Expr_]]:=If[DOSFrage, SequenceForm[ColumnForm[{"Ú ","³ "," "},Center,Center], Expr, ColumnForm[{" ¿"," ³"," "},Center,Center]], SequenceForm[ColumnForm[{"[ ","| "," "},Center,Center], Expr, ColumnForm[{" ]"," |"," "},Center,Center]] ]; Format[Ceiling[Expr_],TeXForm]:= StringJoin["\\left \\lceil ",ToString[TeXForm[Expr]]," \\right \\rceil"]; Format[Abs[Expr_]]:=If[DOSFrage, SequenceForm[ColumnForm[{"³"},Center,Center], Expr, ColumnForm[{"³"},Center,Center]], SequenceForm[ColumnForm[{"|"},Center,Center], Expr, ColumnForm[{"|"},Center,Center]]]; Format[Abs[Expr_],TeXForm]:= StringJoin["\\left \\vert ",ToString[TeXForm[Expr]]," \\right \\vert"]; (*ì::usage = "Unendlich-Symbol"*) Begin["System`Private`"] Format[DirectedInfinity[x_]]:=If[DOSFrage, PrecedenceForm[x*"ì",150], PrecedenceForm[x*"Inf",150] ]; End[] Protect[Sum,Product,Pi,Binomial,Floor,Ceiling,Abs,DirectedInfinity,Times, Integrate];