home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / ctenari / Kratochv / Deklarace.txt < prev    next >
INI File  |  2000-02-11  |  17KB  |  529 lines
  1. [Zßkladnφ matematickΘ funkce]
  2. Sin(x: Real): Real;
  3. //Funkce sinus
  4.   ╚φslo: Edit = 0;
  5. Cos(x: Real): Real;
  6. //Funkce kosinus
  7.   ╚φslo: Edit = 0;
  8. Tan(x: Real): Real;
  9. //Funkce tangens
  10.   ╚φslo: Edit = 0;
  11. Cotg(x: Real): Real;
  12. //Funkce kotangens
  13.   ╚φslo: Edit = 0;
  14. Sec(x: Real): Real;
  15. //Funkce sekans
  16.   ╚φslo: Edit = 0;
  17. Cosec(x: Real): Real;
  18. //Funkce kosekans
  19.   ╚φslo: Edit = 0;
  20.  
  21. ArcSin(x: Real): Real;
  22. //Funkce arkussinus
  23.   ╚φslo: Edit = 0;
  24. ArcCos(x: Real): Real;
  25. //Funkce arkuskosinus
  26.   ╚φslo: Edit = 0;
  27. ArcTan(x: Real): Real;
  28. //Funkce arkustangens
  29.   ╚φslo: Edit = 0;
  30. ArcCotg(x: Real): Real;
  31. //Funkce arkuskotangens
  32.   ╚φslo: Edit = 0;
  33. ArcSec(x: Real): Real;
  34. //Funkce arkussekans
  35.   ╚φslo: Edit = 0;
  36. ArcCosec(x: Real): Real;
  37. //Funkce arkuskosekans
  38.   ╚φslo: Edit = 0;
  39.  
  40. Sinh(x: Real): Real;
  41. //Hyperbolick² sinus
  42.   ╚φslo: Edit = 0;  
  43. Cosh(x: Real): Real;
  44. //Hyperbolick² kosinus
  45.   ╚φslo: Edit = 0;  
  46. Tanh(x: Real): Real;
  47. //Hyperbolick² tangens
  48.   ╚φslo: Edit = 0;  
  49. Cotgh(x: Real): Real;
  50. //Hyperbolick² kotangens
  51.   ╚φslo: Edit = 0;  
  52. Sech(x: Real): Real;
  53. //Hyperbolick² sekans
  54.   ╚φslo: Edit = 0;  
  55. Cosech(x: Real): Real;
  56. //Hyperbolick² kosekans
  57.   ╚φslo: Edit = 0;  
  58.  
  59. ArcSinh(x: Real): Real;
  60. //Hyperbolick² arkussinus
  61.   ╚φslo: Edit = 0;  
  62. ArcCosh(x: Real): Real;
  63. //Hyperbolick² arkuskosinus
  64.   ╚φslo: Edit = 0;  
  65. ArcTanh(x: Real): Real;
  66. //Hyperbolick² arkustangens
  67.   ╚φslo: Edit = 0;
  68. ArcCotgh(x: Real): Real;
  69. //Hyperbolick² arkuskotangens
  70.   ╚φslo: Edit = 0;  
  71. ArcSech(x: Real): Real;
  72. //Hyperbolick² arkussekans
  73.   ╚φslo: Edit = 0;  
  74. ArcCosech(x: Real): Real;
  75. //Hyperbolick² arkuskosekans
  76.   ╚φslo: Edit = 0;  
  77.  
  78. Power(Zßklad, Exponent: Real): Real;
  79. //Mocnina reßlnΘho Φφsla
  80.   Zßklad: Edit = 1;
  81.   Exponent: Edit = 1;
  82. Sqrt(x: Real): Real;
  83. //Druhß odmocnina
  84.   NezßpornΘ Φφslo: Edit=0;
  85. Sqr(x: Real): Real;
  86. //Druhß mocnina
  87.   ╚φslo: Edit=0;
  88. Exp(x: Real): Real;
  89. //Exponencißla
  90.   ╚φslo: Edit=0;
  91. Ln(x: Real): Real;
  92. //P°irozen² logaritmus
  93.   ╚φslo: Edit=1;
  94. Log10(x: Real): Real;
  95. //Dekadick² logaritmus
  96.   ╚φslo: Edit=1;
  97. LogN(n: Integer; x: Real): Real;
  98. //Logaritmus x o zßkladu n
  99.   Zßklad logaritmu: Edit=2;
  100.   ╚φslo: Edit = 1;
  101. Abs(x: Real): Real;
  102. //Absolutnφ hodnota
  103.   ╚φslo: Edit=0;
  104.  
  105. [Celß Φφsla]
  106. FactorialR(x: Integer): Real;
  107. //Zaokrouhlen² faktorißl
  108.   CelΘ Φφslo: Edit=0;
  109. FactorialI(x: Integer): Integer;
  110. //Nezaokrouhlen² faktorißl
  111.   CelΘ Φφslo: Edit=0;
  112. InitPrvoΦφsla(Pocet: Integer);
  113. //vytvo°φ Eratosthenovo sφto->zrychlenφ prßce s prvoΦφsly
  114.   PoΦet Φφsel v sφtu: Edit=1000;
  115. JePrvoΦφslo(i: Integer): Boolean;
  116. //Vracφ True, pokud je danΘ Φφslo prvoΦφslem
  117.   CelΘ Φφslo: Edit=0;
  118. ItΘPrvoΦφslo(Poradi: Integer): Integer;
  119. //i-tΘ prvoΦφslo
  120.   Po°adφ: Edit=0;
  121. PoΦetPrvoΦφsel(Od, Do: Integer): Integer;
  122. //PoΦet prvoΦφsel na danΘm intervalu
  123.   Od: Edit=0;
  124.   Do: Edit=0;
  125. ╚φsloNaZlomek(x: Integer): string;
  126. //ZapφÜe racionßlnφ Φφslo jako zlomek
  127.   ╚φslo: Edit=0;
  128. RozkladVSouΦin(╚φslo: Integer; Mocniny: Boolean): string;
  129. //Rozklad Φφsla na souΦin prvoΦφsel
  130.   ╚φslo: Edit=1;
  131.   Zapisovat pomocφ mocnin: List(True, False)=False;
  132. MinNßsobek([c1, c2, c3, ...: Integer]): Integer;
  133. //NejmenÜφ spoleΦn² nßsobek
  134.   Mno₧ina cel²ch Φφsel: Mnozina = [1];
  135. MaxD∞litel([c1, c2, c3, ...: Integer]): Integer;
  136. //Nejv∞tÜφ spoleΦn² d∞litel
  137.   Mno₧ina cel²ch Φφsel: Mnozina = [1];
  138. D∞litelΘ(x: Integer): Mno₧ina;
  139. //CeloΦφselnφ d∞litelΘ celΘho Φφsla
  140.   ╚φslo: Edit=1;
  141. Int(x: Real): Integer;
  142. //Zaokrouhlenφ k nule
  143.   ╚φslo: Edit=0;
  144. Ceil(x: Real): Integer;
  145. //Zaokrouhlenφ k plus nekoneΦnu
  146.   ╚φslo: Edit=0;
  147. Floor(x: Real): Integer;
  148. //Zaokrouhlenφ k mφnus nekoneΦnu
  149.   ╚φslo: Edit=0;
  150. Modulus(a, b: Integer): Integer;
  151. //Zbytek po d∞lenφ µφsla a Φφslem b
  152.   CelΘ Φφslo a: Edit=0;
  153.   CelΘ Φφslo b: Edit=0;
  154. Frac(x: Real): Real;
  155. //Desetinn² zbytek
  156.   ╚φslo: Edit=0;
  157.  
  158. [Numerickß metematika]
  159. Rovnice(f(x); x=MinX..MaxX step k): Mno₧ina;
  160. //NumerickΘ °eÜenφ rovnice f(x)=0
  161.   f(x): Edit=x;
  162.   Interval, na kterΘm se rovnice °eÜφ: Interval(1, Pokud nezadßte krok, urΦφ se automaticky)=x=-10..10;
  163. Derivace(f(x); x=a; |╪ßd: Integer; Sm∞r:Levß/Pravß/Oboustrannß|);
  164. //Numerickß derivace funkce v danΘm bod∞
  165.   f(x): Edit=x;
  166.   Bod funkce: Edit=x=0;
  167.   %╪ßd derivace: Edit=1;
  168.   %Sm∞r derivace: Edit=Oboustrannß;
  169. Integrßl(f(x); x=MinX..MaxX step k);
  170. //UrΦit² integrßl
  171.   f(x): Edit=x;
  172.   Interval integrovßnφ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=x=-10..10;
  173. LinSoustava([L1=P1, L2=P2, ...], [x1, x2, ...]): Vektor;
  174. //╪eÜenφ soustavy lineßrnφch rovnic
  175.   Rovnice soustavy: Mno₧ina=[x=0];
  176.   Nßzvy ko°en∙: Mno₧ina=[x];
  177. StacBody(f(x); x=MinX..MaxX step k): Vektor;
  178. //Stacionßrnφ body funkce
  179.   f(x): Edit=x;
  180.   Interval hledßnφ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=x=-10..10;
  181. InflexBody(f(x); x=MinX..MaxX step k): Vektor;
  182. //Inflexnφ body funkce
  183.   f(x): Edit=x;
  184.   Interval hledßnφ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=x=-10..10;
  185. LMaxima(f(x); x=MinX..MaxX step k): Vektor;
  186. //Lokßlnφ maxima
  187.   f(x): Edit=x;
  188.   Interval hledßnφ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=x=-10..10;
  189. LMinima(f(x); x=MinX..MaxX step k): Vektor;
  190. //Lokßlnφ minima
  191.   f(x): Edit=x;
  192.   Interval hledßnφ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=x=-10..10;
  193. GMaximum(f(x); x=MinX..MaxX step k): Vektor;
  194. //Globßlnφ maximum
  195.   f(x): Edit=x;
  196.   Interval hledßnφ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=x=-10..10;
  197. GMinimum(f(x); x=MinX..MaxX step k): Vektor;
  198. //Globßlnφ minimum
  199.   f(x): Edit=x;
  200.   Interval hledßnφ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=x=-10..10;
  201.  
  202. [Ostatnφ matematickΘ funkce]
  203. Random: Real;
  204. //NßhodnΘ Φφslo s rovnom∞rn²m rozlo₧enφm z intervalu (0; 1)
  205. GRandom(Prumer, SmdOdchylka: Real): Real;
  206. //NßhodnΘ Φφslo s Gaussov²m rozlo₧enφm
  207.   Pr∙m∞r: Edit=0;
  208.   Sm∞rodatnß odchylka: Edit=1;
  209. IRandom(Max: Integer): Integer; //nßhodnΘ celΘ Φφslo od 0 do Max
  210. //NßhodnΘ celΘ Φφslo od 0 do Max
  211.   NejvyÜÜφ hodnota: Edit=1;
  212. NRandom(n: Integer): Integer;
  213. //pr∙m∞r N nßhodn²ch Φφsel 0..1 s rovnom∞rn²m rozd∞lenφm
  214.   PoΦet Φφsel do pr∙m∞ru: Edit=0;
  215. StrToAngle(s: Text): Real;
  216. //P°evod formßtovanΘho textu na ·hel v radißnech
  217.   Text: Edit=0░ 0' 0'';
  218. AngleToStr(Uhel: Real; Maska: Text): Text;
  219. //P°evod ·hlu v radißnech na formßtovan² text
  220.   ┌hel v radißnech: Edit=0;
  221.   Maska °et∞zce: Edit=dms;
  222. Polynom(x: Real; [k0, k1, k2, ...]): Real;
  223. //Hodnota polynomu v danΘm bod∞
  224.   ╚φslo: Edit=0;
  225.   Koeficienty polynomu: Mno₧ina=[0];
  226. DiffPolynom([k0, k1, k2, ...]): Vektor;
  227. //Derivace polynomu
  228.   Koeficienty polynomu: Mno₧ina=[0];
  229. IntPolynom([k0, k1, k2, ...]): Vektor;
  230. //Integrßl polynomu
  231.   Koeficienty polynomu: Mno₧ina=[0];
  232. MinFce([f1(x), f2(x), ...], x=a): Real;
  233. //NejmenÜφ z hodnot dan²ch funkcφ v danΘm bod∞
  234.   Funkce: Mno₧ina = [x];
  235.   Bod: Edit = x=0;
  236. MaxFce([f1(x), f2(x), ...], x=a): Real;
  237. //Nejv∞tÜφ z hodnot dan²ch funkcφ v danΘm bod∞
  238.   Funkce: Mno₧ina=[x];
  239.   Bod: Edit = x=0;
  240. VzoreΦek(Vzorec, [Velicina1=Hodnota1, Velicina2=Hodnota2, ...]);
  241. //Dosadφ do vzorce danΘ hodnoty
  242.   Vzorec: Edit=;
  243.   Hodnoty veliΦin ve vzorci: Mno₧ina=[];
  244. Suma(x(i); i=MinI..MaxI): Real;
  245. //Suma hodnot v²razu pro r∙znß i
  246.   x(i): Edit=i;
  247.   Rozsah prom∞nnΘ, p°es kterou se sΦφtß: Interval(0, Krok je v₧dy 1)=i=0..10;
  248. SouΦin(x(i); i=MinI..MaxI): Real;
  249. //SouΦin hodnot v²razu pro r∙znß i
  250.   x(i): Edit=i;
  251.   Rozsah prom∞nnΘ, p°es kterou se nßsobφ: Interval(0, Krok je v₧dy 1)=i=0..10;
  252. SumIS(s: Integer): string;
  253. //Vzorec pro Suma(i^s, i=1..n);
  254.   Mocnina: Edit=0;
  255.  
  256. [StatistickΘ funkce]
  257. PoΦetDat(Data: TData): Integer;
  258. //PoΦet dat
  259.   Data: Data=;
  260. PoΦetBod∙(Body: TBody): Integer;
  261. //PoΦet bod∙
  262.   Data: Data=;
  263. MinHodnota(Data: TData): Real;
  264. //NejmenÜφ hodnota ze souboru
  265.   Data: Data=;
  266. MaxHodnota(Data: TData): Real;
  267. //Nejv∞tÜφ hodnota ze souboru
  268.   Data: Data=;
  269. SouΦet(Data: TData): Real;
  270. //SouΦet hodnot
  271.   Data: Data=;
  272. SouΦet╚tverc∙(Data: TData): Real;
  273. //SouΦet druh²ch mocnin
  274.   Data: Data=;
  275.  
  276. Modus(Data: TData): Real;
  277. //Modus
  278.   Data: Data=;
  279. Median(Data: TData): Real;
  280. //Medißn
  281.   Data: Data=;
  282. Pr∙m∞r(Data: TData): Real;
  283. //Aritmetick² pr∙m∞r
  284.   Data: Data=;
  285. GeomPr∙m∞r(Data: TData): Real;
  286. //Geometrick² pr∙m∞r
  287.   Data: Data=;
  288. HarmonPr∙m∞r(Data: TData): Real;
  289. //Harmonick² pr∙m∞r
  290.   Data: Data=;
  291. Pr∙mOdchylka(Data: TData): Real;
  292. //Pr∙m∞rnß absolutnφ odchylka
  293.   Data: Data=;
  294. SmdOdchylka(Data: TData): Real;
  295. //Sm∞rodatnß odchylka
  296.   Data: Data=;
  297. StdOdchylka(Data: TData): Real;
  298. //Standardnφ odchylka
  299.   Data: Data=;
  300.  
  301. [Datum a Φas]
  302. JD(JD: TJD): Real;
  303. //p°evßdφ datum a Φas z libovolnΘho formßtu na JD
  304.   JulißnskΘ datum: Edit=0;
  305. Datum(Datum: TDatum): Integer;
  306. //p°evßdφ datum z libovolnΘho formßtu na celΘ Φφslo
  307.   Datum: Edit=0;
  308. DZD(╚as: T╚as): Real;
  309. //p°evßdφ Φas z libovolnΘho formßtu na desetinnΘ Φφslo
  310.   ╚as: Edit=0;
  311. JDToDmyHms(JD: TJD): string;
  312. //z julißnskΘho data poΦφtß sv∞tov² datum a Φas v obΦ. formßtu
  313.   JD: Edit=0;
  314. DatumToDmy(Datum: TDatum): string;
  315. //p°evßdφ datum z vnit°nφho formßtu na obΦansk²
  316.   Datum: Edit=0;
  317. DzdToHms(╚as: T╚as): string;
  318. //p°evßdφ Φas z vnit°nφho formßtu na obΦansk²
  319.   ╚as: Edit=0;
  320.  
  321. Prßv∞Te∩JD: Real;
  322. //souΦasnΘ JulißnskΘ datum - sv∞tov² Φas
  323. DnesDatum: Integer;
  324. //dneÜnφ zkrßcenΘ JulißnskΘ datum
  325. Nynφ╚as: Real;
  326. //souΦasn² Φas
  327.  
  328. SlKruh(Rok: Integer): Integer;
  329. //sluneΦnφ kruh
  330.   Rok: Edit=2000;
  331. Zl╚φslo(Rok: Integer): Integer;
  332. //zlatΘ Φφslo
  333.   Rok: Edit=2000;
  334. ╪φmsk²PoΦet(Rok: Integer): Integer;
  335. //°φmsk² poΦet
  336.   Rok: Edit=2000;
  337. P°estupn²(Rok: Integer): Boolean;
  338. //True, pokud je dan² rok p°estupn²
  339.   Rok: Edit=2000;
  340. Epakta(Rok: Integer): Integer;
  341. //novoroΦnφ epakta
  342.   Rok: Edit=2000;
  343. Velikonoce(Rok: Integer): TZJD;
  344. //datum VelikonoΦnφ ned∞le
  345.   Rok: Edit=2000;
  346.  
  347. DenVT²dnu(Datum: TDatum): Integer;
  348. //╚φslo dne v t²dnu (1=Pond∞lφ...)
  349.   Datum: Edit=0;
  350. StM∞sφce(JD: TJD): Real;
  351. //St°ednφ stß°φ m∞sφce - doba uplynulß od poslednφho novu
  352.   JD: Edit=0;
  353. Po°adφDne(Den, Mesic: Integer): Integer;
  354. //Po°adφ dne v roce (poΦφtß se od 1.III.);
  355.   Den: Edit=0;
  356.   Mesic: Edit=0;
  357.  
  358. Hv∞zdn²╚as(JD: TJD): Real;
  359. //Hv∞zdn² Φas
  360.   JD: Edit=0;
  361. Terestrick²╚as(JD: TJD): Real;
  362. //Terestrick² Φas
  363.   JD: Edit=0;
  364. Atomov² Φas(JD: TJD): Real;
  365. //Atomov² Φas
  366.   JD: Edit=0;
  367. Mφstnφ╚as(Sv∞tov²: TDZD; Polednφk: Real): Real;
  368. //Mφstnφ Φas
  369.   Sv∞tov²: Edit=0;
  370.   Polednφk: Edit=0;
  371. Pßsmov²╚as(Sv∞tov²: TDZD; Pßsmo: Integer);
  372. //Pßsmov² Φas
  373.   Sv∞toc²: Edit=0;
  374.   Pßsmo: Edit=1;
  375. UTDleH╚(ZJD: TZJD; Polednφk: Real; MφstnφH╚: TDZD): Real;
  376. //Sv∞tov² Φas podle hv∞zdnΘho Φasu
  377.   ZJD: Edit=0;
  378.   Polednφk: Edit=0;
  379.   Mφstnφ hv∞zdn² Φas: Edit=0;
  380. DeltaT(JD: Real): Real;
  381. //DletaT
  382.   JD: Edit=0;
  383.  
  384. [Konstanty]
  385. Pi=3.14159265358979;
  386. //Ludolfovo Φφslo
  387. e=2.71828182845905;
  388. //Eulerovo Φφslo
  389. AU=1.4959787E+11;
  390. //Astronomickß jednotka v metrech
  391. Ly=9.4605300E+15;
  392. //Sv∞teln² rok v metrech
  393. Pc=3.0856775E+16;
  394. //Parsec v metrech
  395. SynMesic=29.53059;
  396. //Synodick² m∞sφc ve dnech
  397. SolKonst=1360;
  398. //Solßrnφ konstanta ve W/m2
  399. MSl=1.99E30;
  400. //Hmotnost Slunce v kg
  401. RSl=6.95997E+8;
  402. //Polom∞r Slunce v metrech
  403. LSl=3.8268E+26;
  404. //Zß°iv² v²kon SLunce ve wattech
  405.  
  406. [Kreslenφ]
  407. KresliBody(Body: TBody; |Barva: TBarva; èφ°ka: Integer; Styl: ┌seΦky/TeΦky/K°φ₧ky/KoleΦka)|);
  408. //Vykreslφ do grafu zadanΘ body
  409.   Body, kterΘ se majφ kresli: Body=Body;
  410.   %Barva@Barva bod∙: Barva = ╚ervenß;
  411.   %Styl@Styl znaΦky: List(┌seΦky, TeΦky, K°φ₧ky, KoleΦka) = ┌seΦky;
  412.   %èφ°ka@èφ°ka a velikost znaΦky: Edit = 1;
  413. KresliFci(y(x); x=Min..Max step k; |Nespojita: Boolean; Barva; Styl; èφ°ka|);
  414. //Nakreslφ graf funkce
  415.   Kreslenß funkce: Edit = x;
  416.   Rozsah prom∞nnΘ: Interval(1, Pokud nezadßte krok, nastavφ se automaticky) = x;
  417.   %Nespojitß@Obsahuje funkce nespojitosti: List(True, False) = False;
  418.   %Barva@Barva grafu: Barva = ╚ervenß;
  419.   %Styl@Styl: List(┌seΦky, TeΦky, K°φ₧ky, KoleΦka) = ┌seΦky;
  420.   %èφ°ka@èφ°ka: Edit = 1;
  421. KresliKrivku(x(t); y(t); t=MinT..MaxT step k; |Barva; Styl; èφ°ka|);
  422. //Nakreslφ 2D parametrickou k°ivku
  423.   x(t): Edit=t;
  424.   y(t): Edit=t;
  425.   Rozsah parametru t: Interval(1, Pokud nezadßte krok, nastavφ se automaticky)=t=-1..1;
  426.   %Barva@Barva k°ivky: Barva = ╚ervenß;
  427.   %Styl@Styl: List(┌seΦky, TeΦky, K°φ₧ky, KoleΦka) = ┌seΦky;
  428.   %èφ°ka@èφ°ka: Edit = 1;
  429. KresliRovnici(LHS(x, y); x=MinX..MaxX; y=MinY..MaxY; |Kroky, Vnoreni: Integer; Barva; Styl; èφ°ka|);
  430. //Nakreslφ body, kterΘ vyvhovujφ danΘ algebraickΘ rovnici (body nelze spojit)
  431.   LHS(x, y): Edit=x^2+y^2-1;
  432.   Rozsah sou°adnice X: Interval(0, Krok se volφ vlastnostφ Kroky)=x=-1..1;
  433.   Rozsah sou°adnice Y: Interval(0, Krok se volφ vlastnostφ Kroky)=y=-1..1;
  434.   %Kroky@PoΦet krok∙ p°i v²poΦtu bodu: Edit=50;
  435.   %Vno°enφ@PoΦet vno°enφ p°i v²poΦtu bodu: Edit=2;
  436. Popisek(Text: MatText; X, Y: Real; |Font: TFont; ZarovnaniX: Vlevo/Vpravo/St°ed; ZarovnaniY: Nahoru/Dol∙/St°ed|);
  437. //Do grafu umφstφ popisek
  438.   Text popisku: RichText=Nadpis;
  439.   X sou°adnice popisku: Edit=0;
  440.   Y sou°adnice popisku: Edit=0;
  441.   %Font@Font popisku: Font=[Arial, 8, 0, ╚ernß];
  442.   %ZarovnßnφX@VodorovnΘ zarovnßnφ: List(Vlevo, Vpravo, St°ed)=Vlevo;
  443.   %ZarovnßnφY@SvislΘ zarovnßnφ: List(Nahoru, Dolu, St°ed)=St°ed;
  444. Histogram(Data: TData; Krok: Real; |Start: Real; ObdΘlnφky: Boolean; Hodnoty: Normal/Podil/PoΦet); Barva; Styl; èφ°ka|);
  445. //Nakreslφ histogram dat
  446.   Data: Data=Data;
  447.   èφ°ka kanßlu: Edit=1;
  448.   %Start@ZaΦßtek jednoho z kanßl∙: Edit=0;
  449.   %ObdΘlnφky@Vzhled jako schody: List(True, False)=True;
  450.   %V²Üky@UrΦovßnφ v²Üky sloupce: List(Normal, Podφl, PoΦet)=Normal;
  451.   %Barva: Barva = ╚ervenß;
  452.   %Styl: List(┌seΦky, TeΦky, K°φ₧ky, KoleΦka) = ┌seΦky;
  453.   %èφ°ka: Edit = 1;
  454. ┌seΦka(X1, Y1, X2, Y2: Real; |Barva;Styl;èφ°ka|);
  455. //Nakreslφ ·seΦku
  456.   X sou°adnice 1. krajnφho bodu: Edit=0;
  457.   X sou°adnice 1. krajnφho bodu: Edit=0;
  458.   Y sou°adnice 2. krajnφho bodu: Edit=1;
  459.   Y sou°adnice 2. krajnφho bodu: Edit=1;
  460.   %Barva: Barva = ╚ervenß;
  461.   %Styl: List(┌seΦky, TeΦky, K°φ₧ky, KoleΦka) = ┌seΦky;
  462.   %èφ°ka: Edit = 1;
  463. Skupina┌seΦek(X1(i), Y1(i), X2(i), Y2(i): Real; i=MinI..MaxI step k; |Barva;Styl;èφ°ka|);
  464. //Nakreslφ skupinu ·seΦek
  465.   X sou°adnice 1. krajnφho bodu: Edit=0;
  466.   X sou°adnice 1. krajnφho bodu: Edit=0;
  467.   Y sou°adnice 2. krajnφho bodu: Edit=1;
  468.   Y sou°adnice 2. krajnφho bodu: Edit=i;
  469.   Rozsah prom∞nnΘ i: Interval(1,) = i=0..10;
  470.   %Barva: Barva = ╚ervenß;
  471.   %Styl: List(┌seΦky, TeΦky, K°φ₧ky, KoleΦka) = ┌seΦky;
  472.   %èφ°ka: Edit = 1;
  473. Sma₧Garf;
  474. //Sma₧e vÜechny ·tvary a popisky z grafu
  475.  
  476. [Prßce s body a daty]
  477. Vytvo°Body(Body: TBody; y(x); x=MinX..MaxX step k; |P°idat: Boolean|);
  478. //Vytvo°φ body podΘl zadanΘ funkce
  479.   Nßzev bod∙: Edit=Body;
  480.   Vzorec y(x): Edit=x;
  481.   Rozsah prom∞nnΘ x: Interval(1, ) = x=1..10;
  482.   %P°idat@P°idat vytvo°enΘ ke stßvajφcφm: List(True, False)=False;
  483. Vytvo°BodyParam(Body: TBody; x(t); y(t); t=MinT..MaxT step k; |P°idat: Boolean|);
  484. //Vytvo°φ body podΘl parametricky zadanΘ k°ivky
  485.   Nßzev bod∙: Edit=Body;
  486.   x(t): Edit=t;
  487.   y(t): Edit=t;
  488.   Rozsah parametru t: Interval(1, ) = t=0..1 step 0.1;
  489.   %P°idat@Vytvo°enΘke stßvajφcφm: List(True, False)=False;
  490. Pyth╚φsla(Body: TBody; Max: Integer; Nasobky: Boolean);
  491. //VypoΦφtß Pyth. Φφsla a ulo₧φ je jako body
  492.   Nßzev bod∙: Body=;
  493.   NejvyÜÜφ Φφslo: Edit=100;
  494.   P°idßvat nßsobky jin²ch Φφsel: List(True, False)=False;
  495. Vytvo°Data(Data: TData; x(i); i=MinI..MaxI step k; |P°idat: Boolean|);
  496. //Vytvo°φ data podle zadanΘho vzorce
  497.   Nßzev dat: Data=Data;
  498.   Vzorec: Edit = i;
  499.   Rozsah prom∞nnΘ: Interval(1, ) = i=0..10;
  500.   %P°idat@P°idat vytvo°enΘ ke stßvajφcφm: List(True, False)=False;
  501. VypoctiRegFci(RegFce: TRegFce; Body: TBody; Typ: PrimaU/NeprimaU/Polynom/Rac/Irac/Exp/Log/Power/Fourier; |Stupe≥: Integer; Perioda: Real; P°esn∞: Boolean|);
  502. //VypoΦte koeficienty regresnφ funkce
  503.   Nßzev regresnφ funkce: RegFce=RegFce;
  504.   Body, kter²mi se funkce proklßdß: Body=Body;
  505.   Typ regrese: List(Polynom, Rac, Irac, Exp, Log, Power, Fourier)=Polynom;
  506.   %Stupe≥: Edit=2;
  507.   %Peroda@Perioda (jen pro Fourierovu °adu): Edit=1;
  508.   %P°esn∞@: List(True, False)=False;
  509. Regrese(RegFce: TrgeFce; Body: TBody; Typ: PrimaU/NeprimaU/Polynom/Rac/Irac/Exp/Log/Power/Fourier; |Stupe≥: Integer; Perioda: Real; P°esn∞: Boolean|);
  510. //VypoΦte regrenφ funkci, nakreslφ ji a nakrelφ body
  511.   Nßzev regresnφ funkce: RegFce=RegFce;
  512.   Body, kter²mi se funkce proklßdß: Body=Body;
  513.   Typ regrese: List(Polynom, Rac, Irac, Exp, Log, Power, Fourier)=Polynom;
  514.   %Stupe≥: Edit=2;
  515.   %Perioda (jen pro Fourierovu °adu): Edit=1;
  516.   %P°esn∞: List(True, False)=False;
  517.  
  518. [Ostatnφ]
  519. Clen(Index: Integer, Mno₧ina);
  520. //Vracφ i-t² prvek mno₧iny
  521.   Index prvku: Edit=1;
  522.   Mno₧ina: Mnozina=[0];
  523. V²stup(DesMφsta: Integer; Formßt: Normal/Fixed/Sci);
  524. //Formßt v²stupu Φφsel v kalkulaΦce
  525.   PoΦet desetinn²ch mφst: Edit=0;
  526.   Formßt zobrazenφ: List(Normal, Fixed, Sci)=Normal;
  527. Exit;
  528. //UkonΦφ aplikaci
  529.