ns = Range[0, 4];
style = {
    Axes -> False,
    GridLines -> Automatic,
    GridLinesStyle -> Directive[LightGray, Dashed],
    Frame -> True,
    PlotStyle -> AbsoluteThickness[3], 
    PlotLegends -> 
    Placed[
        LineLegend[
            StringTemplate["\!\(\*SubscriptBox[\(U\), \(``\)]\)(x)"] /@ ns, 
            LegendMargins -> 0, 
            LegendLayout -> {"Row", 1}
       ], Top
    ], 
    ImageSize -> 700
};

second = Table[ChebyshevU[n, x], {n, ns}];
Plot[Evaluate@second, {x, -1, 1}, Evaluate[style]]

Ja, właściciel praw autorskich do tego dzieła, udostępniam je na poniższej licencji

Ten plik udostępniony jest na licencji Creative Commons Uznanie autorstwa – Na tych samych warunkach 4.0 Międzynarodowe.

Wolno:

• dzielić się – kopiować, rozpowszechniać, odtwarzać i wykonywać utwór
• modyfikować – tworzyć utwory zależne

Na następujących warunkach:

• uznanie autorstwa – musisz określić autorstwo utworu, podać link do licencji, a także wskazać czy utwór został zmieniony. Możesz to zrobić w każdy rozsądny sposób, o ile nie będzie to sugerować, że licencjodawca popiera Ciebie lub Twoje użycie utworu.
• na tych samych warunkach – Jeśli zmienia się lub przekształca niniejszy utwór, lub tworzy inny na jego podstawie, można rozpowszechniać powstały w ten sposób nowy utwór tylko na podstawie tej samej lub podobnej licencji.

https://creativecommons.org/licenses/by-sa/4.0CC BY-SA 4.0 Creative Commons Attribution-Share Alike 4.0 truetrue