\( (*Obliczamy\ energie\ potencjalna\ oscylatora\ anharmonicznego, \ 
      ktory\ jednoczesnie\ rotuje . 
Gdy\ liczba\ kwantowa\ rotacji\ J = 0, \ 
      to\ potencjal\ ma\ postac\ Lennarda - 
        Jonesa\ 
EPS\ \((\((R0\/R)\)\^12 - 
              2\ \((R0\/R)\)\^6)\), \ 
      gdzie\ EPS\ jest\ glebokoscia\ studni, \ 
      a\ R0\ jest\ odlegloscia\ rownowagi . 
Gdy\ dokonujemy\ wbudzen\ rotacyjnych, \ 
      to\ ksztalt\ energii\ potencjalnej\ jakosciowo\ sie\ zmienia
 - \ 
        pojawia\ sie\ "garb" . \ 
            Moze\ on\ spowodowac\ powstanie\ stanow\ rezonansowych\ *) 
x1 = 3.5\)
x2 = 10. 
EPS = 6. 
R0 = 4. 
J = 0
B = ((627.7 J (J + 1))/(2 920))
Plot[
      EPS (((((R0/R)))^12) - 2 ((((R0/R)))^6)) + (B/(R^2)), {R, x1, 
        x2}]
J = 10
B = ((627.7 J (J + 1))/(2 920))
Plot[
      EPS (((((R0/R)))^12) - 2 ((((R0/R)))^6)) + (B/(R^2)), {R, x1, 
        x2}]
J = 15
B = ((627.7 J (J + 1))/(2 920))
Plot[
      EPS (((((R0/R)))^12) - 2 ((((R0/R)))^6)) + (B/(R^2)), {R, x1, 
        x2}]
J = 20
B = ((627.7 J (J + 1))/(2 920))
Plot[
      EPS (((((R0/R)))^12) - 2 ((((R0/R)))^6)) + (B/(R^2)), {R, x1, 
        x2}]