рдЬрд┐рди рд▓реЛрдЧреЛрдВ рдХреЛ рд╕реЗрд╡рд╛рдУрдВ рдХреА рддреБрд▓рдирд╛ рдореЗрдВ рдЕрдзрд┐рдХ рдЬрдЯрд┐рд▓ рдЧреНрд░рдВрдереЛрдВ рдХреА рд░рдЪрдирд╛ рдХрд░рдиреА рд╣реИ, рд╡реЗ рдЬрд╛рдирддреЗ рд╣реИрдВ рдХрд┐ рд▓реЗрдЯ рдЯреЗрдХ рдкрд░ рдПрдХ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдРрдб-рдСрди рд╣реИ - рдлрд┐рд▓рд╣рд╛рд▓ рдпрд╣ рдХрд┐рд╕реА рднреА рдЬрдЯрд┐рд▓рддрд╛ рдХреЗ рдЧреБрдгрд╡рддреНрддрд╛ рд╡рд╛рд▓реЗ рдЧреНрд░рдВрдереЛрдВ рдХреЛ рдЬрд▓реНрджреА рд╕реЗ рдмрдирд╛рдиреЗ рдХрд╛ рд▓рдЧрднрдЧ рдПрдХрдорд╛рддреНрд░ рддрд░реАрдХрд╛ рд╣реИред рд▓реЗрдХрд┐рди рдПрдХ рднреА рдкрд╛рда рдореЗрдВ рдирд╣реАрдВ ... рд▓реЗрдЯрдЪ рдХрд╛ рдЙрдкрдпреЛрдЧ рдЕрдиреНрдп рдЙрджреНрджреЗрд╢реНрдпреЛрдВ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ, рдЬреЛ рдЯреЗрдХ рдХреЗ рдирд┐рд░реНрдорд╛рддрд╛, рдбреЛрдирд╛рд▓реНрдб рдиреБрде рдиреЗ рд╢рд╛рдпрдж рд╕реЛрдЪрд╛ рдирд╣реАрдВ рдерд╛ред
рдореИрдВрдиреЗ рдкрд╣рд▓реЗ рд╣реА рд▓рд┐рдЦрд╛ рдерд╛ рдХрд┐ рдкреНрд░рд╕реНрддреБрддрд┐ рдХреЛ рд▓реЗрдЯреЗрдХреНрд╕ рдХреИрд╕реЗ рдмрдирд╛рдпрд╛ рдЬрд╛рдПред рдЕрдм рдореИрдВ рдЗрд╕ рдмрд╛рд░реЗ рдореЗрдВ рдмрд╛рдд рдХрд░рдирд╛ рдЪрд╛рд╣рддрд╛ рд╣реВрдВ рдХрд┐ рдЖрдк рд▓реЗрдЯреЗрдХреНрд╕ рдХреА рддрд╛рдХрддреЛрдВ рджреНрд╡рд╛рд░рд╛ рд╕реАрдзреЗ рд╕рд░рд▓ рдЧрдгрдирд╛ рдХреИрд╕реЗ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
рд╡рд┐рднрд┐рдиреНрди рд▓реЛрдЧреЛрдВ рджреНрд╡рд╛рд░рд╛ рд▓реЗрдЯреЗрдХреНрд╕ рдХреЗ рд▓рд┐рдП рдмрд╣реБрдд рд╕рд╛рд░реЗ рдЕрд▓рдЧ-рдЕрд▓рдЧ рдкреИрдХреЗрдЬ рд▓рд┐рдЦреЗ рдЧрдП рд╣реИрдВ, рдЗрд╕рдХреА рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛ рдХрд╛ рд╡рд┐рд╕реНрддрд╛рд░ рдФрд░ рд▓реЗрдЖрдЙрдЯ рдбрд┐рдЬрд╛рдЗрдирд░ рдХреЗ рдХрд╛рдо рдХреЛ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдПред рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдбреЗрдЯрд╛ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдореЗрдВ рдорджрдж рдХрд░рдиреЗ рд╡рд╛рд▓реЗ рдЙрдкрдХрд░рдг рднреБрд▓рд╛рдП рдирд╣реАрдВ рдЬрд╛рддреЗ рд╣реИрдВред рдлреНрд▓реЛрдЯрд┐рдВрдЧ рдкреЙрдЗрдВрдЯ рдирдВрдмрд░реЛрдВ (рдПрдХрд▓ рдкрд░рд┐рд╢реБрджреНрдзрддрд╛) рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╕рд░рд▓ рдЧрдгрдирд╛ рд╕реАрдзреЗ рддрдХрдиреАрдХ рджреНрд╡рд╛рд░рд╛ рдХреА рдЬрд╛ рд╕рдХрддреА рд╣реИред рдпрд╣ рд╡рд╣реА рд╣реИ рдЬреЛ
fp рдкреИрдХреЗрдЬ рдХреЗ рд▓рд┐рдП рд╣реИред рдореИрдВ рддреБрд░рдВрдд рдзреНрдпрд╛рди рджреЗрдирд╛ рдЪрд╛рд╣рддрд╛ рд╣реВрдВ рдХрд┐ рдмрд╛рд╣рд░реА рдЖрджреЗрд╢реЛрдВ рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рдиреЗ рдХреА рд▓реЗрдЯрдЪ рдХреА рдХреНрд╖рдорддрд╛ рдХреЗ рдХрд╛рд░рдг, рдЖрдк рд╕рдВрдХрд▓рди рдЪрд░рдг рдкрд░ рдФрд░ рднреА рдЬрдЯрд┐рд▓ рдХрд╛рд░реНрдп рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ (рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдСрдХреНрдЯреЗрд╡ рдореЗрдВ рдХреБрдЫ рдЧрдгрдирд╛ рдХрд░реЗрдВ, рдлрд┐рд░ рдореИрдердЬреАрдПрд▓ рдореЗрдВ рдЧреНрд░рд╛рдл рдмрдирд╛рдПрдВ рдФрд░ рдЙрдиреНрд╣реЗрдВ рдкрд╛рда рдореЗрдВ рдбрд╛рд▓реЗрдВ), рд▓реЗрдХрд┐рди рдореИрдВ рд╢рд╛рдпрдж рдЗрд╕ рдмрд╛рд░реЗ рдореЗрдВ рдмрд╛рдд рдХрд░ рд░рд╣рд╛ рд╣реВрдВ рдореИрдВ рдЖрдкрдХреЛ рджреВрд╕рд░реА рдмрд╛рд░ рдмрддрд╛рдКрдВрдЧрд╛ред
рдореИрдВ fp рдкреИрдХреЗрдЬ рдХреЗ рд▓рд┐рдП рдореИрдиреБрдЕрд▓ рдХреЛ рдХреЙрдкреА-рдкреЗрд╕реНрдЯ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╕реЗрдЯ рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реВрдВ (рд╡рд┐рд╢реЗрд╖рдХрд░ рдЪреВрдВрдХрд┐ рдпрд╣ рдХрд╛рдлреА рдЫреЛрдЯрд╛ рд╣реИ), рд▓реЗрдХрд┐рди рдореИрдВ рдпрд╣ рдмрддрд╛рдирд╛ рдЪрд╛рд╣рддрд╛ рд╣реВрдВ рдХрд┐ рдореИрдВ рдЗрд╕ рдкреИрдХреЗрдЬ рдХрд╛ рдЙрдкрдпреЛрдЧ рд╕рднреА рдкреНрд░рдХрд╛рд░ рдХреЗ рддрдХрдиреАрдХреА рдХрд╛рд░реНрдпреЛрдВ, рд░рд┐рдкреЛрд░реНрдЯреЛрдВ рдЖрджрд┐ рдХреА рддреИрдпрд╛рд░реА рдореЗрдВ рд╕рд░рд▓ рдЧрдгрдирд╛ рдХреЗ рд▓рд┐рдП рдХреИрд╕реЗ рдХрд░рддрд╛ рд╣реВрдВред рдореИрдВ рдпрд╣ рднреА рджрд┐рдЦрд╛рддрд╛ рд╣реВрдВ рдХрд┐ "рд╕реНрдкреНрд░реЗрдбрд╢реАрдЯ" рдХреА рдкреНрд░рд╛рдердорд┐рдХ рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рдХреИрд╕реЗ рдХрд░реЗрдВред
рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рдПрдХ рдХрдорд╛рдВрдб рдмрдирд╛рдПрдВ рдЬреЛ рдЖрдкрдХреЛ рд╡рд┐рднрд┐рдиреНрди рдмрджрд▓рддреА рдЬрд╛рдирдХрд╛рд░реА (рдпрд╛рдиреА, рдХреБрдЫ рдкреИрд░рд╛рдореАрдЯрд░ рдЬреЛ рдЖрдк рдмрд╛рдж рдореЗрдВ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВ) рдХреЛ рд╕рдореНрдорд┐рд▓рд┐рдд рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ, рдЗрди рдЖрд╡реЗрд╖рдгреЛрдВ рдХреЛ рд▓рд╛рд▓ рдкреНрд░рд┐рдВрдЯ рдореЛрдб рдореЗрдВ рдПрдХ рд▓рд╛рд▓ рд╕реБрдкрд░рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдФрд░ рд╕реАрдорд╛рдВрдд рдиреЛрдЯ рдХреЗ рд╕рд╛рде рдЪрд┐рд╣реНрдирд┐рдд рдХрд░реЗрдВред рджрд╕реНрддрд╛рд╡реЗрдЬрд╝ рдореЗрдВ рд░рдВрдЧ рдХреЛ
colorx рдкреИрдХреЗрдЬ рджреНрд╡рд╛рд░рд╛ рдкреНрд░рджрд╛рди рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛ред
рдпрд╣ рдЯреАрдо рддреАрди рддрд░реАрдХреЛрдВ рд╕реЗ рдХрд╛рдо рдХрд░реЗрдЧреА:
- рдорд╛рдкрджрдВрдбреЛрдВ рдХреЗ рдмрд┐рдирд╛ (рдпрд╛рдиреА рдЕрдЧрд░ рд╣рдореЗрдВ рдкрд╛рда рдореЗрдВ рдПрдХ рдЬрдЧрд╣ рдЪрд┐рд╣реНрдирд┐рдд рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ рдЬрд╣рд╛рдВ рдХреБрдЫ рдЧрд╛рдпрдм рд╣реИ рдЬрд┐рд╕реЗ рднрд╡рд┐рд╖реНрдп рдореЗрдВ рд╕рдореНрдорд┐рд▓рд┐рдд рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ), рдЗрд╕ рдорд╛рдорд▓реЗ рдореЗрдВ рд╣рдо рдкрд╛рда рдореЗрдВ рдЦрд╛рд▓реА рд╕реНрдерд╛рди рдХреЛ рдПрдХ рд╕реБрдкрд░рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдХреЗ рд╕рд╛рде рд▓рд╛рд▓ рд╡рд░реНрдЧ рдХреЗ рд╕рд╛рде рдЪрд┐рд╣реНрдирд┐рдд рдХрд░рддреЗ рд╣реИрдВ рдФрд░ рдЦреЗрддреЛрдВ рдкрд░ рдПрдХ рд▓реЗрдмрд▓ рд▓рдЧрд╛рддреЗ рд╣реИрдВред рдкреНрд░рд╢реНрди рдЪрд┐рд╣реНрди рдХреЗ рд╕рд╛рде;
- рдПрдХ рдкреИрд░рд╛рдореАрдЯрд░ рдХреЗ рд╕рд╛рде (рдпрд╛рдиреА рд╣рдордиреЗ рдХреБрдЫ рдбреЗрдЯрд╛ рдбрд╛рд▓рд╛ рдЬреЛ рднрд╡рд┐рд╖реНрдп рдореЗрдВ рдЙрдкрдпреЛрдЧ рдирд╣реАрдВ рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛), рдЗрд╕ рдорд╛рдорд▓реЗ рдореЗрдВ рд╕рдореНрдорд┐рд▓рд┐рдд рдкрд╛рда рдХреЛ рдПрдХ рд╕реБрдкрд░рд╕реНрдХреНрд░рд┐рдкреНрдЯ рдФрд░ рдорд╛рд░реНрдЬрд┐рди рдореЗрдВ рд╕рдВрдмрдВрдзрд┐рдд рдЦрд╛рд▓реА рд▓реЗрдмрд▓ рдХреЗ рд╕рд╛рде рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ;
- рджреЛ рдорд╛рдкрджрдВрдбреЛрдВ рдХреЗ рд╕рд╛рде (рдЕрд░реНрдерд╛рдд рдмрд╛рдж рдореЗрдВ рд╣рдорд╛рд░реЗ рдбреЗрдЯрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛ рдФрд░ рд╣рдо рдХрд┐рд╕реА рдкреНрд░рдХрд╛рд░ рдХреЗ рд╡реИрд░рд┐рдПрдмрд▓ рдХреЛ рдЗрдирд┐рд╢рд┐рдпрд▓рд╛рдЗрдЬрд╝ рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ), рдЗрдВрдбреЗрдХреНрд╕ рдХреЗ рд╕рд╛рде рдЗрдирд┐рд╢рд┐рдпрд▓рд╛рдЗрдЬрд╝рд┐рдВрдЧ рдкрд╛рда рдХреЛ рднреА рдпрд╣рд╛рдБ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рд▓реЗрдХрд┐рди рдЬрд┐рд╕ рд╡реЗрд░рд┐рдПрдмрд▓ рдореЗрдВ рдпрд╣ рд╕рдВрдЦреНрдпрд╛ рджрд░реНрдЬ рдХреА рдЧрдИ рд╣реИ рдЙрд╕рдХрд╛ рдирд╛рдо рдЗрд╕ рдЗрдВрдбреЗрдХреНрд╕ рдХреЗ рд╡рд┐рдкрд░реАрдд рдлрд╝реАрд▓реНрдбреНрд╕ рдореЗрдВ рд░рдЦрд╛ рдЧрдпрд╛ рд╣реИ, рд╕рд╛рде рд╣реА рдпрд╣ рднреА рд╣реЛрддрд╛ рд╣реИред рдЗрд╕ рдЪрд░ рдХрд╛ рдкреНрд░рд╛рд░рдВрднред
рддреЛ рдпрд╣рд╛рдБ рдХреЛрдб рд╣реА рд╣реИ:
\newcounter{InsC@unt@r} \def\Ind@x{\stepcounter{InsC@unt@r}
рдореИрдВ рдЗрд╕реЗ рд╕рдордЭрд╛рдКрдВрдЧрд╛ред рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ, рд╣рдо рдПрдХ рдирдП рдХрд╛рдЙрдВрдЯрд░ рдХреА рдШреЛрд╖рдгрд╛ рдХрд░рддреЗ рд╣реИрдВ рдЬрд┐рд╕реЗ рд╣рдо рдЗрдиреНрд╕рд░реНрдЯ рдЗрдВрдбреЗрдХреНрд╕ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВрдЧреЗред рдЕрдЧрд▓рд╛, рд╡рд┐рднрд┐рдиреНрди рд╕рд╣рд╛рдпрдХ рдХрдорд╛рдВрдб рдХреЛ рдореБрдЦреНрдп
\Ins
рдХрдорд╛рдВрдб рдХреЗ рд▓рд┐рдП рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рдЬрд┐рд╕рдХреЗ рджреНрд╡рд╛рд░рд╛ рд╣рдо рдЕрдкрдиреЗ рдбреЗрдЯрд╛ рдХреЛ рдЯреЗрдХреНрд╕реНрдЯ рдореЗрдВ рд╕рдореНрдорд┐рд▓рд┐рдд рдХрд░реЗрдВрдЧреЗред
рдбреНрд░рд╛рдлреНрдЯ рдореЛрдб рдореЗрдВ рд╣рдорд╛рд░реЗ рдЖрд╡реЗрд╖рдг рдХреЛ рдЪрд┐рд╣реНрдирд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрдорд╛рдВрдб
\Ind@x
рдФрд░
\Insm@rgimp@r
рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрддреА рд╣реИред рдкрд╣рд▓рд╛ рдХрдорд╛рдВрдб рд╕рдореНрдорд┐рд▓рди рдХрд╛рдЙрдВрдЯрд░ рдХреЛ рдмрдврд╝рд╛рддрд╛ рд╣реИ, рдПрдХ рдмреЙрдХреНрд╕ рдмрдирд╛рддрд╛ рд╣реИ рдЬреЛ рд╕реНрдерд╛рди рдирд╣реАрдВ рд▓реЗрддрд╛ рд╣реИ рдФрд░ рдЗрд╕рдореЗрдВ рд╕рдореНрдорд┐рд▓рди рд╕рдВрдЦреНрдпрд╛ рдХреЗ рд╕рд╛рде рдПрдХ рд▓рд╛рд▓ рд╕реБрдкрд░рд╕реНрдХреНрд░рд┐рдкреНрдЯ рджрд░реНрдЬ рдХрд░рддрд╛ рд╣реИред рджреВрд╕рд░реА рдХрдорд╛рдВрдб рдЦреЗрддреЛрдВ рдкрд░ рдПрдХ рдирд┐рд╢рд╛рди рд▓рдЧрд╛рддреА рд╣реИред рдбреНрд░рд╛рдлреНрдЯ рдореЛрдб рд╕реНрд╡рдпрдВ рд╣реА
\TextOut
рджреНрд╡рд╛рд░рд╛ рдирд┐рдпрдВрддреНрд░рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ: рдЕрдЧрд░ рд╣рдо рдЗрд╕реЗ (
\def\TextOut{}
) рдХреЛрдб рдХреЗ рдЗрд╕ рдЯреБрдХрдбрд╝реЗ рд╕реЗ рдкрд╣рд▓реЗ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рд╡рд╣рд╛рдБ
\def\InsTxt
("рд╡реНрд╣рд╛рдЗрдЯ" рд▓реЗрдЖрдЙрдЯ рдореЛрдб) рдкрд░ рдХреЛрдИ рдирд┐рд╢рд╛рди рдирд╣реАрдВ рд╣реЛрдЧрд╛, рдЕрдиреНрдпрдерд╛ рдЙрдиреНрд╣реЗрдВ рдиреАрдЪреЗ рд░рдЦрд╛ рдЬрд╛рдПрдЧрд╛ред
рдЕрдЧрд▓рд╛, рд╣рдо рдЕрдкрдиреЗ
\Ins
рдХрдорд╛рдВрдб рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ, рдЬреЛ рдПрдХ рдЪрд░ рд╕рдВрдЦреНрдпрд╛ рдореЗрдВ рддрд░реНрдХ рд▓реЗрддрд╛ рд╣реИред рдпрд╣ рдХреЗрд╡рд▓ рдПрдХ рд╣реА рдЪреАрдЬрд╝ рдХрд░рддрд╛ рд╣реИ: рдпрд╣ рдЕрдЧрд▓реЗ рдЯреЛрдХрди (
\futurelet
) рдХреЛ
\next
рдореИрдХреНрд░реЛ рдореЗрдВ рдкрдврд╝рддрд╛ рд╣реИ, рдЗрд╕реЗ рд╡рд╛рдкрд╕ рдЫреЛрдбрд╝ рджреЗрддрд╛ рд╣реИ рдФрд░
\Ins@i
рдХрдорд╛рдВрдб рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рддрд╛ рд╣реИред рдмрджрд▓реЗ рдореЗрдВ, рдпрд╣ рдЬрд╛рдВрдЪрддрд╛ рд╣реИ рдХрд┐ рдХрд┐рд╕ рдкреНрд░рдХрд╛рд░ рдХреЗ рдЯреЛрдХрди рдиреЗ рд╣рдорд╛рд░реЗ
\Ins
рдЕрдиреБрд╕рд░рдг рдХрд┐рдпрд╛ рд╣реИ: рдпрджрд┐ рдпрд╣ рдПрдХ рдУрдкрдирд┐рдВрдЧ рдХрд░реНрд▓реА рдмреНрд░реИрдХреЗрдЯ (
\bgroup
) рд╣реИ, рддреЛ рдЕрдЧрд▓реЗ рдкреИрд░рд╛рдореАрдЯрд░ рдХреЗ рдкреНрд░рд╛рд░рдВрднрд┐рдХ рд░реАрдбрд┐рдВрдЧ рдХреЗ рд╕рд╛рде
\Ins@ii
рдХрдорд╛рдВрдб рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ (рдЕрдиреНрдпрдерд╛ рдпрд╣ рдХрдорд╛рдВрдб рдирд╣реАрдВ рд╣реИ) рджреЗрдЦреЗрдВрдЧреЗ тАЭ)ред рдпрджрд┐ рдЯреЛрдХрди рдПрдХ рдмреНрд░реИрдХреЗрдЯ рдирд╣реАрдВ рд╣реИ, рддреЛ
\Ins
рдХрдорд╛рдВрдб рдореЗрдВ рдХреЛрдИ рддрд░реНрдХ рдирд╣реАрдВ рдерд╛ рдФрд░ рдЯреЗрдХреНрд╕реНрдЯ рдФрд░ рд╕реАрдорд╛рдВрдд рдиреЛрдЯ рдореЗрдВ рдПрдХ рдЦрд╛рд▓реА рдмреЙрдХреНрд╕ рд░рдЦрдХрд░
\Ins@end
рдХреЛ рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред
\Ins@ii
рдХрдорд╛рдВрдб
\Ins@ii
рдХрдорд╛рдВрдб рдХреЗ рдкрд╣рд▓реЗ рддрд░реНрдХ рдХреЛ
\temp@rg
рдореИрдХреНрд░реЛ рдореЗрдВ рдбрд╛рд▓рддреА рд╣реИ рдФрд░ рдлрд┐рд░ рдирд┐рдореНрди рддрд░реНрдХ рдХреЗ рд▓рд┐рдП рдЬрд╛рдВрдЪ рдХрд░рддреА рд╣реИ (
\Ins@iii
): рдпрджрд┐ рдпрд╣ рдореМрдЬреВрдж рд╣реИ, рддреЛ рдЪрд░ рдХреЛ рдЖрд░рдВрдн рдХрд░рдиреЗ рдФрд░ рдЗрд╕рдХреЗ рдорд╛рди рдХреЛ рдбрд╛рд▓рдиреЗ рдХреЗ рд▓рд┐рдП
\Ins@two@rgs
рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдФрд░ рдкрд╛рда рдореЗрдВ рдЯреИрдЧ; рдпрджрд┐ рдпрд╣ рдирд╣реАрдВ рд╣реИ, рддреЛ
\Ins@one@rg
рдХрдорд╛рдВрдб рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЬреЛ рдХреЗрд╡рд▓ рдкрд╛рда рдореЗрдВ рдбреЗрдЯрд╛ рд╕рдореНрдорд┐рд▓рд┐рдд рдХрд░рддрд╛ рд╣реИ рдФрд░ рдПрдХ рдЪрд┐рд╣реНрди рдмрдирд╛рддрд╛ рд╣реИред
рдЧрдгрдирд╛ рдкрд░рд┐рдгрд╛рдореЛрдВ рдХреЗ рдЖрдЙрдЯрдкреБрдЯ рдХреЛ рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо
\FPrint
\FPprint
, рдЬреЛ fp рдкреИрдХреЗрдЬ рд╕реЗ
\FPprint
рд▓рд┐рдЦрдиреЗ рдХреЗ рд╕рдорд╛рди рд╣реИ, рд▓реЗрдХрд┐рди рдХреБрдЫ рдФрд░ рдХрд░рдирд╛: рдЗрд╕рдХрд╛ рддрд░реНрдХ
:
, рдЬрд╣рд╛рдВ
рдЧрдгрдирд╛ рдпрд╛ рдХрдорд╛рдВрдб рд╣реИ, рдФрд░
рджрд╢рдорд▓рд╡ рдмрд┐рдВрджреБ рдХреЗ рдмрд╛рдж рдЕрдВрдХреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рд╣реИ, рдЗрд╕рд╕реЗ рдкрд╣рд▓реЗ рдЬрд┐рд╕рдХреЗ рдкрд░рд┐рдгрд╛рдо рдХреЛ рдЧреЛрд▓ рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред рдПрдХ рдЧреЛрд▓ рд╕рдВрдЦреНрдпрд╛ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХреА рдЬрд╛рддреА рд╣реИред рдпрд╣рд╛рдВ рд╕рдм рдХреБрдЫ рдХрд╛рдлреА рд╕рд░рд▓ рд╣реИ, рдЗрд╕рд▓рд┐рдП рдореИрдВрдиреЗ рдмрд╣реБрдд рдЬреНрдпрд╛рджрд╛ рдЯрд┐рдкреНрдкрдгреА рдирд╣реАрдВ рдХреАред
\def\FPrint#1{\@@print@@#1} \def\@@print@@#1:#2{\FPeval{\res@lt}{round(#1:#2)}\res@lt}
рд╕рдВрдкреВрд░реНрдг рдкрд╛рда рдХреЗ рд▓рд┐рдП рдХреБрдЫ рдбреЗрдЯрд╛ рдХреЛ рд╕рдВрдЧреНрд░рд╣реАрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП (рдХрд╣рддреЗ рд╣реИрдВ, рд╡рд╣ рдорд╛рди рдЬреЛ рджрд╕реНрддрд╛рд╡реЗрдЬрд╝ рдХреЗ рдХрдИ рдЦрдВрдбреЛрдВ рдореЗрдВ рдкрд░рд┐рдХрд▓рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдФрд░ рдХреБрдЫ рднрд╛рдЧ рдкреНрд░рддреНрдпреЗрдХ рдЕрдиреБрднрд╛рдЧ рдореЗрдВ рдкрд░рд┐рдХрд▓рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдФрд░ рд╣рдореЗрдВ рдкрд╛рда рдХреЗ рдЕрдВрдд рдореЗрдВ рд░рд╛рд╢рд┐ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реЛрддреА рд╣реИ), рд╣рдо
\Ini
рдХрдорд╛рдВрдб рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддреЗ рд╣реИрдВ (рдкреНрд░рд╛рд░рдВрднрд┐рдХ рдПрдХ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдЪрд░, рдПрдХ рдЖрд╡рд╢реНрдпрдХ рддрд░реНрдХ рд╣реИ - рдЪрд░ рдХрд╛ рдирд╛рдо, рдФрд░ рдПрдХ рд╡реИрдХрд▓реНрдкрд┐рдХ - рд╡рд╣ рдорд╛рди рдЬрд┐рд╕рдХреЗ рджреНрд╡рд╛рд░рд╛ рдЪрд░ рдХреЛ рдкреНрд░рд╛рд░рдВрдн рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ),
\Add
(рдкрд╣рд▓реЗ рдкреИрд░рд╛рдореАрдЯрд░ рд╕реЗ рджреВрд╕рд░реЗ рдкреИрд░рд╛рдореАрдЯрд░ рд╕реЗ рдЪрд░ рдореЗрдВ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬреЛрдбрд╝рддрд╛ рд╣реИ),
\Sub
(рдЪрд░ рд╕реЗ рд╕рдВрдЦреНрдпрд╛ рдШрдЯрд╛рддрд╛ рд╣реИ) рдФрд░
\Show
() рдкрд╛рда рдореЗрдВ рдЪрд░ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рддрд╛ рд╣реИ, рджрд╢рдорд▓рд╡ рдмрд┐рдВрджреБ рдХреЗ рдмрд╛рдж рджреЛ рдЕрдВрдХреЛрдВ рддрдХ рдпрд╛ рд╡реИрдХрд▓реНрдкрд┐рдХ рдкреИрд░рд╛рдореАрдЯрд░ рдореЗрдВ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЕрдВрдХреЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рддрдХ)ред
\newcommand{\Ini}[2][0]{\expandafter\gdef\csname cntr#2\endcsname{#1}} \def\Add#1#2{\expandafter\FPeval\csname cntr#1\endcsname{cntr#1+(#2)}} \def\Sub#1#2{\expandafter\FPeval\csname cntr#1\endcsname{cntr#1-(#2)}} \newcommand{\Show}[2][2]{\FPrint{cntr#2:#1}}
рдЗрд╕ рддрдереНрдп рдХреЗ рдХрд╛рд░рдг рдХрд┐ рдЙрдкрд╕рд░реНрдЧ cntr рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛-рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЪрд░ рдирд╛рдо рдореЗрдВ рдЬреЛрдбрд╝рд╛ рдЬрд╛рддрд╛ рд╣реИ, рдЧрд▓рддреА рд╕реЗ рдХрд┐рд╕реА рд▓реЗрдЯреЗрдХреНрд╕ рдореИрдХреНрд░реЛрдЬрд╝ рдХреЛ рдУрд╡рд░рд░рд╛рдЗрдб рдХрд░рдиреЗ рдХреА рд╕рдВрднрд╛рд╡рдирд╛ рд▓рдЧрднрдЧ рдЧрд╛рдпрдм рд╣реЛ рдЬрд╛рддреА рд╣реИред
рдЕрдЧрд▓рд╛, "рд╕реНрдкреНрд░реЗрдбрд╢реАрдЯ" рдкрд░ рдЪрд▓рддреЗ рд╣реИрдВред рд╢реБрд░реВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рд╕реНрд╡рдЪрд╛рд▓рд┐рдд рдирдВрдмрд░рд┐рдВрдЧ рд╢реБрд░реВ рдХрд░реЗрдВрдЧреЗ:
\newcount\@row@num\@row@num=15 \def\@@nonum{} \def\@shownum{\ifx\@@nonum\empty\global\advance\@row@num1 \the\@row@num\else \gdef\@@nonum{}\fi} \def\NumIni{\global\@row@num=0\gdef\@@nonum{1}} \def\NoNum{\gdef\@@nonum{1}} \newcolumntype{N}[1]{>{\strut}#1<{\@shownum}}
рдХрд╛рдЙрдВрдЯрд░ рдХреА рд╢реБрд░реБрдЖрдд рдореИрдиреНрдпреБрдЕрд▓ рд░реВрдк рд╕реЗ рдХреА рдЬрд╛рдиреА рдЪрд╛рд╣рд┐рдП, рддрд╛рд▓рд┐рдХрд╛ рдХреА рд╢реБрд░реБрдЖрдд рдореЗрдВ
\NumIni
рдХрдорд╛рдВрдб
\NumIni
рдЪрд╛рд╣рд┐рдП (рдпрд╛ рдХреБрдЫ рдФрд░ рдЬреИрд╕реЗ рдХрд┐ рд╣рд░ рдкреЗрдЬ рдХреЗ рд╕рд╛рде рдЖрддреЗ рд╣реИрдВ, рд▓реЗрдХрд┐рди рдЯреЗрдмрд▓ рдХреЗ рд▓рд┐рдП)ред
рд╕рд░рдгреА рдкреИрдХреЗрдЬ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ, рд╣рдо рд╡рд╛рдВрдЫрд┐рдд рдХреЙрд▓рдо рдХреЗ рдкреНрд░рддреНрдпреЗрдХ рд╕реЗрд▓ рдХреЗ рд▓рд┐рдП рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрдорд╛рдВрдб рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░реЗрдВрдЧреЗред рдПрдХ рд╣реА рдкреИрдХреЗрдЬ рдЖрдкрдХреЛ рдирдП рдкреНрд░рдХрд╛рд░ рдХреЗ рд╕реНрддрдВрднреЛрдВ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ: рддрд╛рд▓рд┐рдХрд╛ рдХрд╛ рд╡рд╣ рдХреЙрд▓рдо рдЬрд┐рд╕рдореЗрдВ рд╣рдо рдСрдЯреЛ-рдирдВрдмрд░ рдбрд╛рд▓рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рдХреЛ рдЯрд╛рдЗрдк
рдПрди рдХреЗ рд╕рд╛рде рдЪрд┐рд╣реНрдирд┐рдд рдХрд░рдирд╛ рд╣реЛрдЧрд╛
ред рдЕрдЧрд░ рд╣рдореЗрдВ рдХрд┐рд╕реА рд╕реЗрд▓ рдореЗрдВ рдирдВрдмрд░ рдбрд╛рд▓рдиреЗ рдХреА рдЬрд░реВрд░рдд рдирд╣реАрдВ рд╣реИ, рддреЛ рд╣рдо рдЗрд╕реЗ
\NoNum
рдореИрдХреНрд░реЛ рдХреЗ рд╕рд╛рде рдЪрд┐рд╣реНрдирд┐рдд рдХрд░реЗрдВрдЧреЗред
рдЕрдм рдЖрдЗрдП рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдкреНрд░рдХрд╛рд░реЛрдВ рдХреЗ рд╕рд╛рде рдЬреЛрдбрд╝, рдШрдЯрд╛рд╡, рдЧреБрдгрд╛, рдФрд░ рд╡рд┐рднрд╛рдЬрди рдХреА рдЕрдиреБрдорддрд┐ рджреЗрдиреЗ рд╡рд╛рд▓реЗ рд╕реНрддрдВрднреЛрдВ рдХреЗ рдкреНрд░рдХрд╛рд░реЛрдВ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВред рдЪреВрдБрдХрд┐ рдЗрди рд╕рднреА рдХрдорд╛рдВрдбреЛрдВ рдХрд╛ рдХреЛрдб рд▓рдЧрднрдЧ рдПрдХ рдЬреИрд╕рд╛ рд╣реИ (рд╕рд┐рд░реНрдлрд╝
\FPeval
рдореЗрдВ рдХрд┐рдП рдЧрдП рдЕрдВрдХрдЧрдгрд┐рддреАрдп рдСрдкрд░реЗрд╢рди рдХреЛ рдЫреЛрдбрд╝рдХрд░), рд╣рдо рдкрд╣рд▓реЗ рдПрдХ рдореИрдХреНрд░реЛ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░реЗрдВрдЧреЗ рдЬреЛ рдирдП рдХрдорд╛рдВрдб рдХреА рдкрд░рд┐рднрд╛рд╖рд╛ рдХреЛ рдЖрд╕рд╛рди рдмрдирд╛рддрд╛ рд╣реИред
рдореИрдВ рдкрд╣рд▓реЗ рд╣реА рдЪреЗрддрд╛рд╡рдиреА рджреВрдВрдЧрд╛: рддрд╛рд▓рд┐рдХрд╛ рд╕реЗрд▓ рдореЗрдВ рд╕рдВрдЦреНрдпрд╛ рдХреЗ рдЕрдВрдд рдХреЛ рд╕реНрдкрд╖реНрдЯ рд░реВрдк рд╕реЗ рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдореБрдЭреЗ рдЗрд╕реЗ рдЪрд░рд┐рддреНрд░ рджреНрд╡рд╛рд░рд╛ рд╕реНрдХреИрди рдХрд░рдирд╛ рд╣реЛрдЧрд╛ (рдЬреЛ рдкрд╛рда рдХреЗ рд╕рдВрдХрд▓рди рд╕рдордп рдХреЛ рдмрд╣реБрдд рдмрдврд╝рд╛ рджреЗрдЧрд╛), рдореИрдВ рджреВрд╕рд░реЗ рд░рд╛рд╕реНрддреЗ рдкрд░ рдЪрд▓рд╛ рдЧрдпрд╛ред рдкреНрд░рддреНрдпреЗрдХ рд╕реЗрд▓ рдХреЗ рдЕрдВрдд рдореЗрдВ, рдПрдореНрдкрд░рд╕реЗрдВрдб рд╕рд╛рдЗрди рд╕реЗ рдкрд╣рд▓реЗ рдПрдХ рд╕реНрдерд╛рди рдбрд╛рд▓рд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдП, рдЬреЛ рд╕реНрдкрд╖реНрдЯ рд░реВрдк рд╕реЗ рд╕реЗрд▓ рдХреЗ рдЕрдВрджрд░ рдбреЗрдЯрд╛ рдХреЗ рдЕрдВрдд рдХрд╛ рдкреНрд░рддреАрдХ рд╣реИред рдпрджрд┐ рдЖрдк рдЗрд╕ рдЕрдВрддрд░ рдХреЛ рднреВрд▓ рдЬрд╛рддреЗ рд╣реИрдВ, рддреЛ "рдЕрдЬреАрдм рддреНрд░реБрдЯрд┐рдпрд╛рдВ" рджрд┐рдЦрд╛рдИ рджреЗ рд╕рдХрддреА рд╣реИрдВред
рдореИрдВ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдореИрдХреНрд░реЛ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рд╡рд┐рд╕реНрддрд╛рд░ рд╕реЗ рдирд╣реАрдВ рдмрддрд╛рдКрдВрдЧрд╛, рдореИрдВ рдЦреБрдж рдХреЛ рдПрдХ рд╕рддрд╣реА рд╡рд┐рд╡рд░рдг рддрдХ рд╕реАрдорд┐рдд рдХрд░реВрдВрдЧрд╛ред рдХрдорд╛рдВрдб
\@@def@cmd
рдЖрдкрдХреЛ рдПрдХ рдирдП рдореИрдХреНрд░реЛ (рдЬрд┐рд╕рдХрд╛ рдирд╛рдо рдкрд╣рд▓реЗ рдкреИрд░рд╛рдореАрдЯрд░ рдореЗрдВ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ) рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ рдЬреЛ рджреВрд╕рд░реЗ рдкреИрд░рд╛рдореАрдЯрд░ рд╕реЗ рдЕрдВрдХрдЧрдгрд┐рдд рдХрд░рддрд╛ рд╣реИ, рдФрд░ рдПрдХ рдирдП рдкреНрд░рдХрд╛рд░ рдХрд╛ рдЯреЗрдмрд▓ рдХреЙрд▓рдо (рддреАрд╕рд░рд╛ рдкреИрд░рд╛рдореАрдЯрд░) рднреА рдмрдирд╛рддрд╛ рд╣реИред рдЪреВрдБрдХрд┐ рдЗрд╕ рдХрдорд╛рдВрдб рдХрд╛ рдЙрдкрдпреЛрдЧ рдЕрдиреНрдп рдХрдорд╛рдВрдбреНрд╕ рдХреЛ рдЗрдирд┐рд╢рд┐рдпрд▓рд╛рдЗрдЬрд╝ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ, рдФрд░ рдпрд╣рд╛рдВ рддрдХ тАЛтАЛрдХрд┐ рдкреИрд░рд╛рдореАрдЯрд░ рд╕реЗ рдирд╛рдо рд╕реЗ рдПрдХ рдирдИ рдХрдорд╛рдВрдб рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддрд╛ рд╣реИ, рдЬреИрд╕реЗ рдХрд┐
\expandafter
(рдЕрдЧрд▓реЗ рдЯреЛрдХрди рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ
\xdef
рддрдХ рдЕрдЧрд▓реЗ рдЯреЛрдХрди рдХреЗ рд╡рд┐рд╕реНрддрд╛рд░ рдХреЛ рджрдмрд╛рдиреЗ) рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ,
\xdef
(рдпрд╣
\xdef
рд╕рдорд╛рди рд╣реИ)
\global\edef
рдФрд░ рдПрдХ рдирдП рдореИрдХреНрд░реЛ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░рддрд╛ рд╣реИ, рдкрд╣рд▓реЗ рдЙрд╕рдХреЗ рд╢рд░реАрд░ рд╕реЗ рдореИрдХреНрд░реЛрдЬрд╝ рдкреНрд░рдХрдЯ рдХрд░рддрд╛ рд╣реИ),
\noexpand
(рдЯреЛрдХрди рдХреЛ "рдкрд╣рд▓реЗ рдкрдврд╝рдиреЗ рдореЗрдВ
\noexpand
рдХрд░рдиреЗ рдХрд╛ рдирд┐рд╖реЗрдз"),
\csname
(рдореИрдХреНрд░реЛ рдирд╛рдо рдкрд░ рдкрд╛рда рдкрд░рд┐рд╡рд░реНрддрд┐рдд рдХрд░рдирд╛)ред
\def\@@def@cmd#1#2#3{
рдЕрдм рдЬрдм рд╣рдордиреЗ рдЧрдВрджрд╛ рдХрд╛рдо рдХрд░ рд▓рд┐рдпрд╛ рд╣реИ, рд╣рдо рдмреБрдирд┐рдпрд╛рджреА рдЖрдЬреНрдЮрд╛рдУрдВ рдХреЛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ:
\def\@SET#1{\expandafter\xdef\csname cntr\@fst@rg\endcsname{#1}} \def\@ADD#1{\FPeval{\res@lt}{cntr\@fst@rg+(#1)}\@SET{\res@lt}} \def\@SUB#1{\FPeval{\res@lt}{cntr\@fst@rg-(#1)}\@SET{\res@lt}} \def\@MUL#1{\FPeval{\res@lt}{cntr\@fst@rg*(#1)}\@SET{\res@lt}} \def\@DIV#1{\FPeval{\res@lt}{cntr\@fst@rg/(#1)}\@SET{\res@lt}} \@@def@cmd{TAdd}{\@ADD}{+} \@@def@cmd{TSub}{\@SUB}{-} \@@def@cmd{TMul}{\@MUL}{*} \@@def@cmd{TDiv}{\@DIV}{/} \@@def@cmd{TSet}{\@SET}{X}
рдЕрдм рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдирдП рд╕реНрддрдВрдн рдкреНрд░рдХрд╛рд░ рд╣реИрдВ рдЬреЛ рджреЛ рддрд░реНрдХ рд▓реЗрддреЗ рд╣реИрдВ (рдЪрд░ рдирд╛рдо рдФрд░ рдорд╛рдирдХ рд╕реЗрд▓ рд╕рдВрд░реЗрдЦрдг рдкреНрд░рдХрд╛рд░)ред рдкреНрд░рдХрд╛рд░
+ ,
- ,
* рдФрд░
/ рдФрд░ рд╕реЗрд▓ рдкреНрд░рдХрд╛рд░ рдХреЗ рдкрд╣рд▓реЗ рддрд░реНрдХ рд╕реЗ рдЪрд░ рдХреЗ рдмреАрдЪ рд╕рдВрдмрдВрдзрд┐рдд рд╕рдВрдЪрд╛рд▓рди рдФрд░ рд╕реЗрд▓ рдореЗрдВ рдирд┐рд╣рд┐рдд рд╕рдВрдЦреНрдпрд╛ред рдкреНрд░рдХрд╛рд░
X рд╕реЗрд▓ рдореЗрдВ рдирд┐рд╣рд┐рдд рдорд╛рди рдХреЛ рдЪрд░ рд╕реЗрдЯ рдХрд░рддрд╛ рд╣реИред рдпрджрд┐ рд╕реНрддрдВрдн
X рдХреЗ рд╕рд╛рде рдкреНрд░рд╛рд░рдВрдн рдХрд┐рдП рдмрд┐рдирд╛ рдЪрд░ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдП, рддреЛ рдЗрд╕реЗ рддрд╛рд▓рд┐рдХрд╛ рд╕реЗ рдкрд╣рд▓реЗ
\Ini
рдХрдорд╛рдВрдб рдХреЗ рд╕рд╛рде рдЖрд░рдВрдн рдХрд┐рдпрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдПред рд╕реЗрд▓ рдХреА рд╕рд╛рдордЧреНрд░реА рдХреА рдЬрд╛рдБрдЪ рдХреА рдЬрд╛рддреА рд╣реИ: рдпрджрд┐ рдХреЛрдИ рд╕рдВрдЦреНрдпрд╛ рдирд╣реАрдВ рд╣реИ, рддреЛ рдХрд╛рд░реНрд░рд╡рд╛рдИ рдирд╣реАрдВ рдХреА рдЬрд╛рддреА рд╣реИред
рдЕрдм рдпрд╣ рд╣рдорд╛рд░реЗ рд▓рд┐рдП рдПрдХ рдФрд░ рдкреНрд░рдХрд╛рд░ рдХрд╛ рд╕реНрддрдВрдн рдШреЛрд╖рд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдмрдирд╛ рд╣реБрдЖ рд╣реИ, рдЬреЛ рд╣рдореЗрдВ рдЧрдгрдирд╛ рдХреЗ рдкрд░рд┐рдгрд╛рдо (рдФрд░ рдпрджрд┐ рдЖрд╡рд╢реНрдпрдХ рд╣реЛ, рддреЛ рдЙрдирдХреА рд░рд╛рд╢рд┐ рдХреА рдЧрдгрдирд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП) рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрдЧрд╛ред
\def\@@plus#1#2{\gdef\@fst@rg{#1}\@ADD{cntr#2}} \def\@Sho@@#1{\ifx\@@nonum\empty\@@plus{#1}{\temp@rg}\else\gdef\@@nonum{}\fi} \def\@Sh@{\ifx\next\bgroup\expandafter\@Sho@@\else\gdef\@@nonum{}\fi} \def\Sho#1{\ifx\@@nonum\empty\Show{#1}\fi\def\temp@rg{#1}\futurelet\next\@Sh@} \newcolumntype{S}[3]{>{\strut}#3<{\Sho{#1}{#2}}}
рд╣рдо рдПрдХ рдирдпрд╛ рд╕реНрддрдВрдн рдкреНрд░рдХрд╛рд░ рдмрдирд╛рддреЗ рд╣реИрдВ -
рдПрд╕ , рдЬрд┐рд╕рдореЗрдВ рддреАрди рдкреИрд░рд╛рдореАрдЯрд░ рд╣реИрдВ: рдкреНрд░рджрд░реНрд╢рд┐рдд рдЪрд░ рдХрд╛ рдирд╛рдо, рд╕рдВрдЪрд╛рдпрдХ рдЪрд░ рдХрд╛ рдирд╛рдо рдФрд░ рд╕рдВрд░реЗрдЦрдг рдкреНрд░рдХрд╛рд░ред рдпрд╣ рдЖрджреЗрд╢ рднреА
\NoNum
ред
\Sho
рдХрдорд╛рдВрдб рдЬреЛ
S рдЯрд╛рдЗрдк рдХрд░рддрд╛ рд╣реИ, рдЙрд╕реЗ рдЕрдкрдиреЗ рдЖрдк рдХреНрд░рд┐рдпрд╛рдиреНрд╡рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рдЗрд╕ рдорд╛рдорд▓реЗ рдореЗрдВ, рдпрджрд┐ рд╣рдореЗрдВ рдХреБрдЫ рдЪрд░ рдореЗрдВ рдкрд░рд┐рдгрд╛рдо рдЬрдорд╛ рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реИ, рддреЛ рд╣рдо рдЗрд╕ рдЖрджреЗрд╢ рдХреЛ рдХреЗрд╡рд▓ рдПрдХ рддрд░реНрдХ рджреЗрддреЗ рд╣реИрдВред
рдФрд░ рдЕрдВрдд рдореЗрдВ, рдереЛрдбрд╝рд╛ рдордиреЛрд░рдВрдЬрдиред рд╣рдо рдЬрдЯрд┐рд▓ рд╕рд╢рд░реНрдд рдирд┐рд░реНрджреЗрд╢реЛрдВ рдХреЛ рд▓рд╛рдЧреВ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП
ifthen рдкреИрдХреЗрдЬ рд╕реЗ рдХрдиреЗрдХреНрдЯ рдХрд░реЗрдВрдЧреЗ (рдиреЗрд╕реНрдЯреЗрдб рдЕрдЧрд░ рдЙрдиреНрд╣реЗрдВ рдЕрдиреБрдорддрд┐ рдирд╣реАрдВ рджреЗрддрд╛ рд╣реИ) рдФрд░ рдЫреЛрд░реЛрдВ рдФрд░ рд╕реНрдЯреИрдХ рдХреЗ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдХреЛ рдмрдирд╛рддреЗ рд╣реИрдВред
рд▓реВрдк рдХреЗ рд▓рд┐рдП рд╕рдмрд╕реЗ рд╕рд░рд▓ (рдмрд┐рдирд╛ рдиреЗрд╕реНрдЯ рд╡рд╛рд▓реЗ) рдЗрд╕ рддрд░рд╣ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИ:
\newcounter{f@rc@unter} \newcommand{\forplus}[4][1]{% \setcounter{f@rc@unter}{#2}\ifthenelse{\value{f@rc@unter} < #3}{#4
рдпрд╣рд╛рдВ рдЪрд╛рд░ рдЖрджреЗрд╢ рд▓рд╛рдЧреВ рдХрд┐рдП рдЧрдП рд╣реИрдВред
\forplus
рдЖрдкрдХреЛ рдкрд╣рд▓реЗ рдкреИрд░рд╛рдореАрдЯрд░ рдореЗрдВ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рд╕рдВрдЦреНрдпрд╛ рд╕реЗ рджреВрд╕рд░реЗ рдореЗрдВ рд╕рдВрдЦреНрдпрд╛ рддрдХ рд╡реГрджреНрдзрд┐ рдХреЗ рд╕рд╛рде рд▓реВрдк рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ, рд╣рд░ рдмрд╛рд░ рддреАрд╕рд░реЗ рдкреИрд░рд╛рдореАрдЯрд░ рдХреА рд╕рд╛рдордЧреНрд░реА рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рддрд╛ рд╣реИред рдПрдХ рд╡реИрдХрд▓реНрдкрд┐рдХ рдореИрдХреНрд░реЛ рддрд░реНрдХ рдПрдХ рд▓реВрдк рд╕реНрдЯреЗрдк рд╣реИред
\forminus
рдПрдХ
\forminus
рд▓реВрдк рд▓рд╛рдЧреВ рдХрд░рддрд╛ рд╣реИред
\iterator
рдЖрдкрдХреЛ рд▓реВрдк рдкреБрдирд░рд╛рд╡реГрддреНрддрд┐ рдХреА рд╕рд╛рдордЧреНрд░реА, рдФрд░
\Loop
рдХреЛ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддрд╛ рд╣реИ - рджреВрд╕рд░реЗ рддрд░реНрдХ рдХреА рд╕рд╛рдордЧреНрд░реА рдХреЛ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдПрди рдмрд╛рд░ (рдЬрд╣рд╛рдВ рдПрди рдкрд╣рд▓рд╛ рддрд░реНрдХ рд╣реИ)ред
рд╕реНрдЯреИрдХ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдХрдорд╛рдВрдб
\push
рдФрд░
\pop
, рд╕рд╛рде рд╣реА
\stacklen
(рд╕реНрдЯреИрдХ рдореЗрдВ рддрддреНрд╡реЛрдВ рдХреА рд╕рдВрдЦреНрдпрд╛),
\popall
(рд╕реНрдЯреИрдХ рдХреА рд╕рдВрдкреВрд░реНрдг рд╕рд╛рдордЧреНрд░реА рдХрд╛ рдЙрддреНрдкрд╛рджрди) рдФрд░
\popalldel
(рдПрдХ рд╕реАрдорд╛рдВрдХрдХ рдХреЗ рд╕рд╛рде рдЖрдЙрдЯрдкреБрдЯ рд╕рд╛рдордЧреНрд░реА) рдХреЛ
\popalldel
ред
\newcount\@buflen\@buflen=0 \newtoks\@@stack \@@stack={\empty} \def\push#1{\advance\@buflen1\begingroup\toks0={{#1}}
рд╕реНрдЯреИрдХ рдХреЛ рдПрдХ рд╕рд╛рдзрд╛рд░рдг рдЯреЛрдХрди рд╕реВрдЪреА рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЗрд╕реЗ рд╕реНрдЯреИрдХ рдкрд░ рд░рдЦрдирд╛ рдмрд╕ рд╕реВрдЪреА рдХреЗ рд╢реАрд░реНрд╖ рдкрд░ рдПрдХ рдирдпрд╛ рдЯреЛрдХрди рдЬреЛрдбрд╝рддрд╛ рд╣реИ, рдФрд░ рд╕реНрдЯреИрдХ рд╕реЗ рдЪрдпрди рдХрд░рдХреЗ рд╕реВрдЪреА рдХреЛ рдкрд╣рд▓реЗ рдЯреЛрдХрди рд╕реЗ рд╡рд┐рднрд╛рдЬрд┐рдд рдХрд░рддрд╛ рд╣реИ рдФрд░ рдЗрд╕реЗ рд╡рд╛рдкрд╕ рдХрд░рддрд╛ рд╣реИред
рдЙрджрд╛рд╣рд░рдг
рддрд╛рд▓рд┐рдХрд╛рдУрдВ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХрд╛ рдПрдХ рдЙрджрд╛рд╣рд░рдг:
\Ini[1]{yy} \Ini{zz} \begin{table}[!th] \begin{tabular}{|N{c}|X{xx}{c}|*{xx}{c}|S{xx}{zz}{c}|*{yy}{c}|} \hline \bf \NumIni \No{} / & A & B & A$\cdot$B\NoNum& C \\ \hline & -3.5 & 4.4 &&43.3 \\ & 31.31 &200.21 &&3 \\ & 1.23 &3.33 &&1.2 \\ \hline \NoNum&&&\NoNum $\sum(A\cdot B)=\,$\Show{zz}&$\prod C=\,$\Show{yy} \\ \hline \end{tabular} \end{table}

рдкреНрд░рд╛рд░рдВрднрд┐рдХ рдЪрд░ рдФрд░ рдЧрдгрдирд╛ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХрд╛ рдПрдХ рдЙрджрд╛рд╣рд░рдг:
\Ini{totalmass} {\tt totalmass} -, . . , -, \Ins{m1p}{45.1},\FPeval{m1}{3*m1p} : $m_1=3\cdot\FPrint{m1p:1}=\FPrint{m1:1}$. .\Add{totalmass}{m1} : {\tt totalmass}$\,=\Show[1]{totalmass}$. , , , , \Ins{moreaddtoa}{3.45}, , . : {\tt totalmass}$\,\Add{totalmass}{moreaddtoa}=\Show[2]{totalmass}$. -. - $\rho=\,$\Ins{therho}{5.43}, $V=\,$\Ins{theV}{12.44}, \FPeval{mi}{therho*theV}$m_i=\rho\cdot V=\FPrint{mi:3}$. .\Add{totalmass}{mi} : {\tt totalmass}$\,=\Show[3]{totalmass}$. \verb'\Ini', \verb'\Show' \verb'\FPrint' . \verb'\Ins' {\tt fp} : - , "--- - , \verb'\global' , , .

рд▓реВрдк рдФрд░ рд╕реНрдЯреИрдХ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХрд╛ рдЙрджрд╛рд╣рд░рдг:
a=\Ins{a}{2.5}, b=\Ins{b}{3}, $c=\sqrt{a^2+b^2}=\FPrint{root(2, (a^2 + b^2)):2}$ 1 4: \forplus{1}{5}{\iterator~} 1 10 3: \forplus[3]{1}{11}{\iterator~} 4 1: \forminus{4}{0}{\iterator~} 10 1 -3: \forminus[-3]{10}{0}{\iterator~} \Loop5{ ! } \push{}\push{}\push{}\push{} : \popalldel{, }. : \stacklen .
рдирдореВрдирд╛ рдкрд╛рдардкрд░рд┐рдгрд╛рдореА рдкреАрдбреАрдПрдл