рдЕрдВрдЧреНрд░реЗрдЬрд╝реАрдлреНрд░реЗрдВрдЪрд╕реНрдкреЗрдирд┐рд╢

рдСрдирд╡рд░реНрдХреНрд╕ рдлрд╝реЗрд╡рд┐рдХреЙрди

рдкреАрдбреАрдПрд▓::рдЯрд┐рдкреНрд╕ - рдХреНрд▓рд╛рдЙрдб рдореЗрдВ рдСрдирд▓рд╛рдЗрди

рдЙрдмрдВрдЯреВ рдСрдирд▓рд╛рдЗрди, рдлреЗрдбреЛрд░рд╛ рдСрдирд▓рд╛рдЗрди, рд╡рд┐рдВрдбреЛрдЬ рдСрдирд▓рд╛рдЗрди рдПрдореБрд▓реЗрдЯрд░ рдпрд╛ рдореИрдХ рдУрдПрд╕ рдСрдирд▓рд╛рдЗрди рдПрдореБрд▓реЗрдЯрд░ рдкрд░ рдСрдирд╡рд░реНрдХреНрд╕ рдореБрдлреНрдд рд╣реЛрд╕реНрдЯрд┐рдВрдЧ рдкреНрд░рджрд╛рддрд╛ рдореЗрдВ рдкреАрдбреАрдПрд▓ :: рдЯрд┐рдкреНрд╕ рдЪрд▓рд╛рдПрдВред

рдпрд╣ рдХрдорд╛рдВрдб PDL::Tipsp рд╣реИ рдЬрд┐рд╕реЗ рд╣рдорд╛рд░реЗ рдХрдИ рдореБрдлреНрдд рдСрдирд▓рд╛рдЗрди рд╡рд░реНрдХрд╕реНрдЯреЗрд╢рди рдЬреИрд╕реЗ рдХрд┐ рдЙрдмрдВрдЯреВ рдСрдирд▓рд╛рдЗрди, рдлреЗрдбреЛрд░рд╛ рдСрдирд▓рд╛рдЗрди, рд╡рд┐рдВрдбреЛрдЬ рдСрдирд▓рд╛рдЗрди рдПрдореБрд▓реЗрдЯрд░ рдпрд╛ рдореИрдХ рдУрдПрд╕ рдСрдирд▓рд╛рдЗрди рдПрдореБрд▓реЗрдЯрд░ рдореЗрдВ рд╕реЗ рдПрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдСрдирд╡рд░реНрдХреНрд╕ рдлреНрд░реА рд╣реЛрд╕реНрдЯрд┐рдВрдЧ рдкреНрд░рджрд╛рддрд╛ рдореЗрдВ рдЪрд▓рд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред

рдХрд╛рд░реНрдпрдХреНрд░рдо:

рдирд╛рдо


рдкреАрдбреАрдПрд▓::рдЯрд┐рдкреНрд╕ - рдЙрдкрдпреЛрдЧреА рдЕрд░реНрдЪрдирд╛ рдХреА рдЫреЛрдЯреА-рдЫреЛрдЯреА рдмрд╛рддреЗрдВред рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ tidbits рдФрд░ рдРрд╕реЗред

SYNOPSIS


рдкреАрдбреАрдПрд▓ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВ;

#рдпрд╣рд╛рдБ рдХреБрдЫ рднреА рд╣реЛ рдЬрд╛рдПред

рд╡рд░реНрдгрди


рдпрд╣ рдкреГрд╖реНрда рдкрд░реНрд▓ рдбреЗрдЯрд╛ рднрд╛рд╖рд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧреА рдореБрд╣рд╛рд╡рд░реЛрдВ, рд╕рд╣рд╛рдпрдХ рд╕рдВрдХреЗрддреЛрдВ рдФрд░ рдпреБрдХреНрддрд┐рдпреЛрдВ рдХрд╛ рджрд╕реНрддрд╛рд╡реЗрдЬреАрдХрд░рдг рдХрд░рддрд╛ рд╣реИ
v2.0.

рдорджрдж
рдЕрдВрджрд░ "рд╕рд╣рд╛рдпрддрд╛ рд╕рд╣рд╛рдпрддрд╛" рдХрд╛ рдкреНрд░рдпреЛрдЧ рдХрд░реЗрдВ рдкрд░рд▓реНрдбрд▓реА or рдкреАрдбреАрдПрд▓репрекреж рдпрд╛ рдХрдорд╛рдВрдб рд▓рд╛рдЗрди рд╕реЗ "pdldoc" рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВ
PerlDL рджрд╕реНрддрд╛рд╡реЗрдЬрд╝реАрдХрд░рдг рддрдХ рдкрд╣реБрдВрдЪ рдХреЗ рд▓рд┐рдПред рдкреГрд╖реНрдареЛрдВ рдХреЗ HTML рд╕рдВрд╕реНрдХрд░рдг рднреА рд╣реЛрдиреЗ рдЪрд╛рд╣рд┐рдП
рд╡рд░реНрддрдорд╛рди рдореЗрдВ, рдореЗрдВ рдПрдЪрдЯреАрдПрдордПрд▓ рдбреЙрдХреНрд╕/рдкреАрдбреАрдПрд▓ рдкреАрдбреАрдПрд▓ рд╡рд┐рддрд░рдг рдХреА рдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛ред рдЗрд╕ рдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛ рдХреЛ рдЦреЛрдЬрдиреЗ рдХреЗ рд▓рд┐рдП,
рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХрд╛ рдкреНрд░рдпрд╛рд╕ рдХрд░реЗрдВ

pdl> foreach (рдирдХреНрд╢рд╛{"$_/PDL/HtmlDocs"}@INC ) { p "$_\n" if -d $_ }

рд╕реВрдЪреАрдХрд░рдг рдореБрд╣рд╛рд╡рд░реЛрдВ
рдирд┐рдореНрди рдХреЛрдб $a рдореЗрдВ рд╡реИрдХреНрдЯрд░ рдХреЗ рдПрдХ рд╕рдореВрд╣ рдХреЛ рд╕рд╛рдорд╛рдиреНрдп рдХрд░рддрд╛ рд╣реИред рдпрд╣ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ рдХреА рдкрд░рд╡рд╛рд╣ рдХрд┐рдП рдмрд┐рдирд╛
$ рдП рдХреА рдЖрдпрд╛рдореАрддрд╛ред

$a /= $a->sumover->рдирдХрд▓реА; (0)

рдХреНрдпрд╛ is рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рд╣реЛ рд░рд╣рд╛ рд╣реИ?
рдпрджрд┐ рдЖрдк рджреЗрдЦрдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ рдХрд┐ рдХреЛрдб рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рдХреНрдпрд╛ рдХрд░ рд░рд╣рд╛ рд╣реИ, рддреЛ рдХрдорд╛рдВрдб рдХрд╛ рдкреНрд░рдпрд╛рд╕ рдХрд░реЗрдВ

рдкреАрдбреАрдПрд▓::рдХреЛрд░::рд╕реЗрдЯ_рдбрд┐рдмрдЧрд┐рдВрдЧ; (1)

рдХрд╣реАрдВред рдпрд╣ рдкреАрдбреАрдПрд▓ рдХреЗ рд▓рд┐рдП рдПрд╕рдЯреАрдбреАрдУрдпреВрдЯреА рдореЗрдВ рдмрдбрд╝реА рдорд╛рддреНрд░рд╛ рдореЗрдВ рдбрд┐рдмрдЧ рдЬрд╛рдирдХрд╛рд░реА рдХреЛ рдмрд╛рд╣рд░ рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИред рдХреЗ рд▓рд┐рдП рдпреЛрдЬрдирд╛рдПрдВ
рднрд╡рд┐рд╖реНрдп рдореЗрдВ рдЖрдЙрдЯрдкреБрдЯ рдХреЛ рдкреБрдирд░реНрдирд┐рд░реНрджреЗрд╢рд┐рдд рдХрд░рдирд╛ рд╕рдВрднрд╡ рдмрдирд╛рдирд╛ рдФрд░ рдЗрд╕реЗ рд╕рдВрднрд╡ рдмрдирд╛рдирд╛ рд╢рд╛рдорд┐рд▓ рд╣реИ
рдЕрдзрд┐рдХ рд╕рдЯреАрдХрддрд╛ рдХреЗ рд╕рд╛рде рд╕рдВрджреЗрд╢реЛрдВ рдХрд╛ рдЪрдпрди рдХрд░реЗрдВред

рдХрдИ рд╕рдВрджреЗрд╢ "Basic/Core/pdlapi.c" рд╕реЗ рдЖрддреЗ рд╣реИрдВ рдФрд░ рдЖрдк рд╕реНрд░реЛрдд рдХреЛ рджреЗрдЦрдиреЗ рдХреЗ рд▓рд┐рдП рджреЗрдЦ рд╕рдХрддреЗ рд╣реИрдВ
рдХреНрдпрд╛ рдЪрд▓ рд░ред

рдпрджрд┐ рдЖрдкрдХреЗ рдкрд╛рд╕ рдЗрди рддрдВрддреНрд░реЛрдВ рдкрд░ рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХреЛрдИ рдЕрддрд┐рд░рд┐рдХреНрдд рд╕рдордп рд╣реИ, рддреЛ рдкреАрдбреАрдПрд▓-рдкреЛрд░реНрдЯрд░реНрд╕ рдореЗрд▓рд┐рдВрдЧ рдХреЛ рд╕реВрдЪрд┐рдд рдХрд░реЗрдВ
рд╕реВрдЪреАред

рдпрд╛рдж рдмрдЪрдд
рдпрджрд┐ рдЖрдк рдкреБрдирд░рд╛рд╡рд░реНрддреА рд░реВрдк рд╕реЗ рдХреБрдЫ рдЪрд▓рд╛ рд░рд╣реЗ рд╣реИрдВ рдЬреЛ рдПрдХ рдмрдбрд╝реЗ рдкрд┐рдбрд▓ рдХреЗ рдХреБрдЫ рд╕реВрдЪрдХрд╛рдВрдХреЛрдВ рдХрд╛ рдЪрдпрди рдХрд░рддрд╛ рд╣реИ,
рдкрд╕рдВрдж

рдЬрдм(1) {
$рдЗрдВрдбреНрд╕ = рдХрд╣рд╛рдБ($a>0);
$a = $a->index($inds);
$рдмреА = $рдмреА->рд╕реВрдЪрдХрд╛рдВрдХ($рдЗрдВрдбреНрд╕);
func ($ рдмреА, $ рдП);
}

рдпрджрд┐ рдЖрдк $b рдХреЛ рдирд╣реАрдВ рд▓рд┐рдЦ рд░рд╣реЗ рд╣реИрдВ, рддреЛ рдЗрд╕реЗ рдмрджрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдпрд╣ рдмрд╣реБрдд рдореЗрдореЛрд░реА рдмрдЪрд╛рддрд╛ рд╣реИ

$b = $b->index($inds)->sever;

рдирдИ рд╡рд┐рдзрд┐ "рд╕реЗрд╡рд░" рд░рд╛рдЗрдЯ-рдмреИрдХ рд╕рдВрдмрдВрдз рдХреЛ рднреБрд▓рд╛рдиреЗ рдХрд╛ рдПрдХ рдХрд╛рд░рдг рд╣реИред рдЬреИрд╕реЗ рдХреА
copy рд╕рд┐рд╡рд╛рдп рдЗрд╕рдХреЗ рдХрд┐ рдпрд╣ рдореВрд▓ рдкрд╣реЗрд▓реА рдХреЛ рдмрджрд▓ рджреЗрддрд╛ рд╣реИ рдФрд░ рдЗрд╕реЗ рд╡рд╛рдкрд╕ рдХрд░ рджреЗрддрд╛ рд╣реИ)ред

рдмреЗрд╢рдХ, рдЙрдкрд░реЛрдХреНрдд рдХрд░рдиреЗ рдХрд╛ рд╢рд╛рдпрдж рд╕рдмрд╕реЗ рдЕрдЪреНрдЫрд╛ рддрд░реАрдХрд╛ рд╣реИ

$рдЗрдВрдбреНрд╕ = xvals ($a->long);
рдЬрдм(1) {
$inds0 = рдХрд╣рд╛рдБ($a>0);
$рдЗрдВрдбреНрд╕1 = $рдЗрдВрдбреНрд╕->рдЗрдВрдбреЗрдХреНрд╕($рдЗрдВрдбреНрд╕)->рд╕реЗрд╡рд░;
$a = $a0->index($inds1);
$b = $b->index($inds1)->sever;
func ($ рдмреА, $ рдП);
}

рдЬреЛ рд╕реНрдореГрддрд┐ рдореЗрдВ $a рдХреЗ рд╕рднреА рдЕрд╕реНрдерд╛рдпреА рдЙрджрд╛рд╣рд░рдгреЛрдВ рдХреЛ рд╕рд╣реЗрдЬрддрд╛ рдирд╣реАрдВ рд╣реИред рдореЗрдВ "mandel.pl" рджреЗрдЦреЗрдВ
рдПрдХ рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП PerlDL рд╡рд┐рддрд░рдг рдХреА рдбреЗрдореЛ рдЙрдкрдирд┐рд░реНрджреЗрд╢рд┐рдХрд╛ред

PP рдЧрддрд┐
рдпрджрд┐ рдЖрдк рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рддреНрд╡рд░рд┐рдд рдкреАрдкреА рдХреЛрдб рд▓рд┐рдЦрдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рддреЛ рдЖрдкрдХреЛ рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ рдпрд╣ рд╕реБрдирд┐рд╢реНрдЪрд┐рдд рдХрд░рдирд╛ рд╣реЛрдЧрд╛ рдХрд┐
рдХрд┐ рдЖрдкрдХреЗ рд╕реА рдХрдВрдкрд╛рдЗрд▓рд░ рдХреЛ рдЖрд╡рд╢реНрдпрдХ рдЕрдиреБрдХреВрд▓рди рдХрд░рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рд╣реИред

рдЗрд╕рдХрд╛ рдорддрд▓рдм рдпрд╣ рд╣реИ рдХрд┐ рдЖрдкрдХреЛ рдЕрдзрд┐рдХ рд╕реЗ рдЕрдзрд┐рдХ рдЪрд░реЛрдВ рдХреЛ рдЕрдВрджрд░ рдЬрд╛рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрдиреА рд╣реЛрдЧреА
рд░рдЬрд┐рд╕реНрдЯрд░:

рд▓реВрдк (рдП)% {
$a() += $COMP(foo_member) * $b()
%}

рддрдХ рдлреИрд▓рддрд╛ рд╣реИ

рдХреЗ рд▓рд┐рдП (i = 0; рдореИрдВ <10000; i ++) {
a[i] += __privtrans->foo_member * b[i];
}

рдЖрдкрдХреЗ рджреНрд╡рд╛рд░рд╛ рдХрд┐рдП рдЬрд╛ рд╕рдХрдиреЗ рд╡рд╛рд▓реЗ рд╕рдмрд╕реЗ рдмреБрд░реЗ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рд╣реИ, рдХреНрдпреЛрдВрдХрд┐ рдЖрдкрдХреЗ рд╕реА рдХрдВрдкрд╛рдЗрд▓рд░ рдХреЛ рдпрд╣ рдорд╛рдирдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рдирд╣реАрдВ рд╣реИ рдХрд┐ "рдП"
"foo_member" рдХреЛ рдмрдВрдж рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИ рдЬреЛ рдкреВрд░реА рддрд░рд╣ рд╕реЗ рд╡реИрд╢реНрд╡реАрдХрд░рдг рдХреЛ рд░реЛрдХрддрд╛ рд╣реИред рдЗрд╕рдХреЗ рдмрдЬрд╛рдп, рдХрд░реЛ

рдлреНрд▓реЛрдЯ рдлреВ = $ COMP (foo_member);
рд▓реВрдк (рдП)% {
$ рдП () + = рдлреВ * $ рдмреА ();
%}

рдпрд╣ рдкреАрдкреА рдХреЗ рдХрд╛рд░рдг рдирд╣реАрдВ рдмрд▓реНрдХрд┐ рдПрдПрдирдПрд╕рдЖрдИ рд╕реА рд╕реЗрдореЗрдиреНрдЯрд┐рдХреНрд╕ рдХреЗ рдХрд╛рд░рдг рдкреНрд░рддрд┐рдмрдВрдз рд╣реИред рдмреЗрд╢рдХ, рд╣рдо рдХреЙрдкреА рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ
рд╕реНрдерд╛рдиреАрдп рдЪрд░ рдФрд░ рд╡рд╛рдкрд╕ рдореЗрдВ рд╕рдВрд░рдЪрдирд╛ рд▓реЗрдХрд┐рди рдЗрд╕рд╕реЗ рдмрд╣реБрдд рдЕрдЬреАрдм рдЪреАрдЬреЗрдВ рд╣реЛ рд╕рдХрддреА рд╣реИрдВ
рдХрднреА рдХрднреАред

рд▓реВрдк рдХреЗ рдЖрдпреЛрдЬрди рдкрд░ рдХрдИ рдЕрдиреНрдп рдореБрджреНрджреЗ рд╣реИрдВред

рд╡рд░реНрддрдорд╛рди рдореЗрдВ рд╣рдо рдкреАрдкреА рдХреЛ рдирд┐рд╢реНрдЪрд┐рдд-рдЪреМрдбрд╝рд╛рдИ рд╡рд╛рд▓реА рдЪреАрдЬреЛрдВ рдХреЗ рд╕рд╛рде-рд╕рд╛рде рднреМрддрд┐рдХ рдХрд░рдиреЗ рдореЗрдВ рд╕рдХреНрд╖рдо рдмрдирд╛рдиреЗ рдХреА рдпреЛрдЬрдирд╛ рдмрдирд╛ рд░рд╣реЗ рд╣реИрдВ
рдкрдбрд▓реНрд╕ (рдЬрд╣рд╛рдВ рдкрд╣рд▓реЗ рдЖрдпрд╛рдореЛрдВ рдкрд░ рд▓реВрдкрд┐рдВрдЧ рд╕рд╕реНрддрд╛ рд╣реЛрдЧрд╛ рдХреНрдпреЛрдВрдХрд┐ рдХрдо рд╣реИрдВ
рдЕрд▓рдЧ-рдЕрд▓рдЧ рд╡реЗрддрди рд╡реГрджреНрдзрд┐, рдЬреЛ рдХрдо рд╕рдВрдЦреНрдпрд╛ рд╡рд╛рд▓реА рдорд╢реАрдиреЛрдВ рдкрд░ рдлрд░реНрдХ рдХрд░ рд╕рдХрддреА рд╣реИрдВ
рд░рдЬрд┐рд╕реНрдЯрд░)ред

onworks.net рд╕реЗрд╡рд╛рдУрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдкреАрдбреАрдПрд▓ :: рдЯрд┐рдкреНрд╕ рдСрдирд▓рд╛рдЗрди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВ


рдлреНрд░реА рд╕рд░реНрд╡рд░ рдФрд░ рд╡рд░реНрдХрд╕реНрдЯреЗрд╢рди

рд╡рд┐рдВрдбреЛрдЬ рдФрд░ рд▓рд╛рдЗрдиреЗрдХреНрд╕ рдПрдк рдбрд╛рдЙрдирд▓реЛрдб рдХрд░реЗрдВ

рд▓рд┐рдирдХреНрд╕ рдХрдорд╛рдВрдб

Ad