Mathematica - график функции с интегралом не строиться

[Sergey K]

n = 7;
q = 270;
\[Epsilon] = q^2/(2 93 1830) 27.21;
\[Delta] = 7.47;
Subscript[U, св] = 0.3 \[Delta] n^(2/3); 

EFull = (n*q^2)/(2 93 1830) 27.21
a := 0.2143

Plot[{EFull - a*\!\(
\*SubsuperscriptBox[\(\[Integral]\), \(10\), \(20\)]\(
\*SqrtBox[\(1 + 
\*FractionBox[\(x\), \(\(\ \)
\*SubscriptBox[\(U\), \(св\)]\)]\)]\ 
\*SuperscriptBox[\(E\), \(\(-
\*FractionBox[\(3\), \(2\)]\) 
\*FractionBox[\(x\), \(\[Epsilon]\)]\)] \[DifferentialD]x\)\)}, {x, 0, 25}, 
 PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 0, 1], 
   RGBColor[0, 1, 1]}]

как исправить проблему? сам по себе интеграл считается.

[Aritaborian]

Воистину, вы возжелали странного. Упростим ситуацию до предела. Что, по-вашему, должен делать следующий код?

Plot[{Integrate[x, {x, 0, 1}]}, {x, 0, 1}]

[Sergey K]

численное значение выражения, получающееся после взятие интеграла на промежутке от 0 до 1

[Aritaborian]

Вообще-то Plot строит графики.

[Sergey K]

ну так и имелось ввиду график значения выражения, в которое входит этот интеграл

[Aritaborian]

Блин, да что ж такое. Уберём Plot. Integrate[x, {x, 0, 1}] это что?

[Sergey K]

определенный интеграл от х на промежутке 0 до 1. Я чувствую мой разум на пороге чего-то важного.

да теперь понял в чем там конфликт. нужно брать уже взятый интеграл и подставлять в plot. спасибо.

[Aritaborian]

Сообщите, как получите результат. Мне тоже интересно ;-)