Грязи- отзывы переехавших
Всерьёз интересует реальная жизнь города, что да как, что интересного происходит в Грязи, чем живёт народ. Да и очень хочу узнать отзывы переехавших, кто переехал на ПМЖ недавно и местных жителей, которые живут уже много лет. Сколько нужно минимально зарабатывать, чтобы комфортно жить?
Как по поводу порядочных людей и быдло? Страшно ли поздней ночью ходить на улице?
Если у меня вдруг получится переехать, то в каком районе Грязи порекомендовали бы поселиться? На какой улице лучше всего живётся, чтоб было как можно меньше алкашей и наркоманов? И есть ли нормальная работа?
8 Апреля 2025
Sub ПостроитьГрафикКошка()
' Очистка предыдущих данных
Sheets("Лист1").Cells.Clear
' Параметры
Dim t_start As Double: t_start = 0
Dim t_end As Double: t_end = 2 * Application.WorksheetFunction.Pi()
Dim step As Double: step = 0.1
' Заголовки
With Sheets("Лист1")
.Range("A1") = "t"
.Range("B1") = "X"
.Range("C1") = "Y"
End With
' Генерация данных
Dim i As Long: i = 2
Dim t As Double
For t = t_start To t_end Step step
With Sheets("Лист1")
.Cells(i, 1) = t
.Cells(i, 2) = (2/3)*Sin(t) - (1/6)*Sin(2*t) - (1/12)*Sin(3*t) - (1/24)*Sin(4*t)
.Cells(i, 3) = (2/3)*Cos(t) + (1/6)*Cos(2*t) - (1/12)*Cos(3*t) + (1/24)*Cos(4*t)
End With
i = i + 1
Next t
' Создание графика
Dim chartObj As ChartObject
Set chartObj = Sheets("Лист1").ChartObjects.Add(Left:=200, Width:=600, Top:=50, Height:=400)
With chartObj.Chart
.ChartType = xlXYScatterSmoothNoMarkers
.SetSourceData Source:=Sheets("Лист1").Range("B2:C" & i-1)
' Оформление
.HasTitle = True
.ChartTitle.Text = "График Кошка"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = "X"
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = "Y"
End With
End Sub
8 Апреля 2025
Sub ПостроитьГрафикКошка()
' Очистка предыдущих данных
Sheets("Лист1").Cells.Clear
' Параметры
Dim t_start As Double: t_start = 0
Dim t_end As Double: t_end = 2 * Application.WorksheetFunction.Pi()
Dim step As Double: step = 0.1
' Заголовки
With Sheets("Лист1")
.Range("A1") = "t"
.Range("B1") = "X"
.Range("C1") = "Y"
End With
' Генерация данных
Dim i As Long: i = 2
Dim t As Double
For t = t_start To t_end Step step
With Sheets("Лист1")
.Cells(i, 1) = t
.Cells(i, 2) = (2 / 3) * Sin(t) - (1 / 6) * Sin(2 * t) - (1 / 12) * Sin(3 * t) - (1 / 24) * Sin(4 * t)
.Cells(i, 3) = (2 / 3) * Cos(t) + (1 / 6) * Cos(2 * t) - (1 / 12) * Cos(3 * t) + (1 / 24) * Cos(4 * t)
End With
i = i + 1
Next t
' Создание графика
Dim chartObj As ChartObject
Set chartObj = Sheets("Лист1").ChartObjects.Add(Left:=200, Width:=600, Top:=50, Height:=400)
With chartObj.Chart
.ChartType = xlXYScatterSmoothNoMarkers
.SetSourceData Source:=Sheets("Лист1").Range("B2:C" & i - 1)
' Оформление
.HasTitle = True
.ChartTitle.Text = "График Кошка"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = "X"
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = "Y"
End With
End Sub