Hrátky s čísly IV.

Následující aplet umožňuje prozkoumat jednu ze zajímavých vlastností čísel.

Tlačítkem Ulož obrázek se uloží právě zobrazené "bílé" okno do aktuální složky (složka, v níž je uložen tento notebook) pod jménem, které je uloženo v proměnné jmenosouboru. K tomuto jménu souboru je při opakovaném ukládání grafu přidáváno pořadové číslo.
Pozor! Při každém spuštění tohoto apletu se začínají soubory číslovat opět od jedné! Tak může dojít k přepsání minule uložených obrázků.

© Jaroslav Reichl, 2009

Příprava pro vykreslení grafu

ClearAll["Global`*"];
jmenosouboru="cisla_4_.jpg";
cesta=NotebookDirectory[];
pocetulozeni=0;


x1=-10;x2=-x1;
y1=-10;y2=-y1;
deltay=0.09(y2-y1);

n0=1;nmin=1;nmax=10;deltan=1;

barva=Black;

znamenko={" + "," + "," + "," + "," + "," + "," + "," + "," - "," - "};

Cisla4=Manipulate[Deploy[
seznamcisel=Table[{
cislo=0;
For[j=1,j≤i,j=j+1,cislo=(10-j) (10^(i-j))+cislo];
cislo},{i,1,n,1}];

grafik=Show[
Graphics[{
Table[Text[Style[StringJoin[ToString[seznamcisel[[i,1]],StandardForm]," * 9",znamenko[[i]],ToString[Abs[8-i],StandardForm]," = ",ToString[9seznamcisel[[i,1]]+8-i,StandardForm]],23,barva,FontFamily->Times,Bold],{0.5(x1+x2),y2-i deltay},{Center,Center}],{i,1,n,1}]
}],
FormatType->StandardForm,AspectRatio->Automatic,PlotRange->{{x1,x2},{y1,y2}},ImageSize->450
]],

{{n,n0,Style["n",15,barva,Italic]},nmin,nmax,deltan},
Delimiter,
Button[" Ulož obrázek ",{pocetulozeni=pocetulozeni+1,Export[StringInsert[StringJoin[cesta,jmenosouboru],ToString[pocetulozeni],-5],grafik]},ImageSize->{100,Automatic}],
ControlPlacement->Top,
FrameLabel->{Style["© Jaroslav Reichl, 2010",10,Black,FontFamily->Times],"",Style["Hrátky s čísly IV.",25,Black,FontFamily->Times],""}];

Spuštění animace
Zpracujte běžným způsobem následující buňku a na dotaz, který se objeví, odpovězte ANO.

Cisla4