Flatterband.nb

$RowBox[{Do, [, RowBox[{RowBox[{RowBox[{bänder, =, RowBox[{Table, [, RowBox[{Line[{{t, -t^2}, { ... ic}], ]}]}], ,, <br />, , {L, .5, 5, .25}}], ]}]$

[Graphics:../HTMLFiles/index_9.gif]

[Graphics:../HTMLFiles/index_10.gif]

[Graphics:../HTMLFiles/index_11.gif]

[Graphics:../HTMLFiles/index_12.gif]

[Graphics:../HTMLFiles/index_13.gif]

[Graphics:../HTMLFiles/index_14.gif]

[Graphics:../HTMLFiles/index_15.gif]

[Graphics:../HTMLFiles/index_16.gif]

[Graphics:../HTMLFiles/index_17.gif]

[Graphics:../HTMLFiles/index_18.gif]

[Graphics:../HTMLFiles/index_19.gif]

[Graphics:../HTMLFiles/index_20.gif]

[Graphics:../HTMLFiles/index_21.gif]

[Graphics:../HTMLFiles/index_22.gif]

[Graphics:../HTMLFiles/index_23.gif]

[Graphics:../HTMLFiles/index_24.gif]

[Graphics:../HTMLFiles/index_25.gif]

[Graphics:../HTMLFiles/index_26.gif]

[Graphics:../HTMLFiles/index_27.gif]

Created by Mathematica (September 6, 2005)