Как я могу поместить все графики для разных размеров выборки «n = 10, 100, 1000, 2000» на один и тот же график и изменить цвет «y = 1» на красный?

Для размера выборки n=1000 я строю следующий график на основе кода

n = 1000; 
m = RandomVariate[GaussianOrthogonalMatrixDistribution[Sqrt[2]/Sqrt[n], n]]; 
{eval, evec} = Eigensystem[m]; 
h = evec[[All, 1]]; 
imin = Ordering[eval, 1][[1]]; 
lambda2minlambda1 = Sort[eval][[2]] - Sort[eval][[1]]; 
tn = 1/(4*lambda2minlambda1);

Постройте функцию H1 (t)

Plot[Abs[h[[imin]]]*Exp[-2*eval[[imin]]*t]/Sqrt[Sum[h[[i]]^2*Exp[-4*eval[[i]]*t], {i, 1, n}]], 
{t, 0, 10*tn}, 
 GridLines -> {{tn}, {1}}, 
 GridLinesStyle -> Directive[{Red, Blue}, Thickness[0.008]], 
 PlotRange -> Full]

Вопрос:

Как поместить все графики для разных размеров выборки n=10, 100, 1000, 2000 на один график и изменить цвет y=1 на красный?**

plot wolfram-mathematica

25.11.2022 16:56

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Пытаться

Show[Append[Table[
  m=RandomVariate[GaussianOrthogonalMatrixDistribution[Sqrt[2]/Sqrt[n], n]]; 
  {eval,evec}=Eigensystem[m];h=evec[[All,1]];imin=Ordering[eval,1][[1]]; 
  lambda2minlambda1=Sort[eval][[2]]-Sort[eval][[1]];tn=1/(4*lambda2minlambda1);
  Plot[Abs[h[[imin]]]*Exp[-2*eval[[imin]]*t]/Sqrt[Sum[h[[i]]^2*Exp[-4*eval[[i]]*t],
    {i,1,n}]],{t,0,10*tn},PlotRange->{{0,60},{0,1}}],
  {n,{10,100,1000,2000}}],
  Plot[1,{x,0,60},ColorFunction->Function[{x,y},Red]]],
  PlotRange->{{0,60},{0,1}}]

В Mathematica всегда есть по крайней мере дюжина различных способов сделать что-либо. Выберите тот, который вы можете запомнить и использовать, не делая ошибок.

25.11.2022 19:13

Другие вопросы по теме

Как решить эллиптическую функцию Якоби в python

Есть ли в Mathematica функция "lhs" и "rhs", похожая на Maple?

Невозможно упростить эти два уравнения

Как использовать FileTemplate вместо Splice для экспорта выражений Mathematica в Fortran?

Преобразование кода ряда Фурье Mathematica в Python

Генерация списка через массив в Wolfram Language

Вольфрамальфа заменяет часть уравнения новой переменной

Mathematica: определите составную функцию, в которой появляется производная аргумента

Как выполнить расчет биномиального коэффициента и факториала с большей точностью?

Точная ортогонализация векторов в Wolfram

Как я могу поместить все графики для разных размеров выборки «n = 10, 100, 1000, 2000» на один и тот же график и изменить цвет «y = 1» на красный?

Ответы 1

Другие вопросы по теме

Похожие вопросы