Главная страница
Навигация по странице:

  • Работоспособность программы Спрос и предложение

  • Спрос и предложение

    		•

    Работа с графиком MSChart. ЛБ4(Работа с графиком MSChart). Лабораторная работа 4 би19 График в mschart задание


    Скачать 150.19 Kb.
    НазваниеЛабораторная работа 4 би19 График в mschart задание
    АнкорРабота с графиком MSChart
    Дата11.10.2021
    Размер150.19 Kb.
    Формат файлаdocx
    Имя файлаЛБ4(Работа с графиком MSChart).docx
    ТипЛабораторная работа
    #245406

    Лабораторная работа №4
    БИ-19

    График в MSChart


    ЗАДАНИЕ

    1. Постройте кривые спроса и предложения. Найдите равновесную цену и объем производства для функций:

    — спрос D(Q)=-AQ+B;

    • Предложение S(Q)= /C + Q/D + E

    Исходные данные представлены в таблице 1. Функции спроса и предложения подавать в единый системы координат с использованием различных типов линий. На осях вывести цифры и надписи.

    Таблица 1 .

    № вар.
    А
    B
    C
    D
    E

    11
    4
    140
    5
    5
    50


    2. Постройте графики функций спроса Торнквиста D₀(x), D₁(x), D₂(x), D₃(x)

    по формулам, которые приведены в п.1.2. Входные даны представлены в таблицы 2. Функции построить в единый системы координат с использование разных типов линии. На осях вывести цифры и надписи.

    № вар.
    α
    β
    γ



    11
    11
    3
    2


    3. Постройте графики функций в соответствии со своим вариантом (таблица 5). Количество и значение точек примите произвольно.

    № вар.
    Тип диаграммы
    Цвет графиков
    Размещение легенды
    Цвет области выделения



    11
    Точечная
    Зеленый
    Низ
    Серый



    Код программы

    Public Class MSFloat

    Const a = 4

    Const b = 140

    Const c = 5

    Const d = 5

    Const e = 50

    Const alfa = 11

    Const beta = 3

    Const gamma = 2

    Const x = 0

    Private Sub Grafik1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grafik1.Click

    Float.Titles.Clear()

    Float.Titles.Add("Спрос и предложение")

    Float.ChartAreas.Clear()

    Float.ChartAreas.Add("Default")

    With Float.ChartAreas("Default")

    .AxisX.Title = "Q"

    .AxisX.MajorGrid.LineColor = Color.Black

    .AxisY.MajorGrid.LineColor = Color.Black

    .AxisY.Title = "P"

    End With

    Float.ChartAreas(0).CursorX.IsUserSelectionEnabled = True

    Float.ChartAreas(0).CursorY.IsUserSelectionEnabled = True

    Float.ChartAreas(0).CursorX.SelectionColor = Color.Gray

    Float.ChartAreas(0).CursorY.SelectionColor = Color.Gray

    Float.Series.Clear()

    Float.Series.Add("спрос")

    Float.Series("спрос").Color = Color.Green

    Float.Series("спрос").BorderWidth = 3

    Float.Series("спрос").ChartType = DataVisualization.Charting.SeriesChartType.FastLine

    Dim n As Integer = 50

    Dim p As Single

    For q As Integer = 1 To n Step 1

    p = a * q + b

    Float.Series("спрос").Points.AddXY(q, p)

    Next

    Float.Series.Add("Предложение")

    Float.Series("Предложение").Color = Color.Pink

    Float.Series("Предложение").BorderWidth = 3

    Float.Series("Предложение").ChartType = DataVisualization.Charting.SeriesChartType.FastLine

    Dim r As Integer = 50

    Dim hk As Single

    For m As Integer = 1 To n Step 1

    hk = (m ^ 2 / c) + (m / d) + c

    Float.Series("Предложение").Points.AddXY(x, hk)

    Next

    End Sub

    Private Sub Grafik2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grafik2.Click

    Float.Titles.Clear()

    Float.Titles.Add("Функция Торнквиста")

    Float.ChartAreas.Clear()

    Float.ChartAreas.Add("Default")

    With Float.ChartAreas("Default")

    .AxisX.Title = "X"

    .AxisX.MajorGrid.LineColor = Color.Black

    .AxisY.MajorGrid.LineColor = Color.Black

    .AxisY.Title = "Di"

    End With

    Float.ChartAreas(0).CursorX.IsUserSelectionEnabled = True

    Float.ChartAreas(0).CursorY.IsUserSelectionEnabled = True

    Float.ChartAreas(0).CursorX.SelectionColor = Color.Gray

    Float.ChartAreas(0).CursorY.SelectionColor = Color.Gray

    Float.Series.Clear()

    Float.Series.Add("товары малой ценности")

    Float.Series("товары малой ценности").Color = Color.DarkGreen

    Float.Series("товары малой ценности").BorderWidth = 3

    Float.Series("товары малой ценности").ChartType = DataVisualization.Charting.SeriesChartType.FastLine

    Dim v As Integer = 150

    Dim d As Single

    For bn As Integer = 0 To v Step 1

    d = (alfa * bn * (bn + beta)) / ((bn ^ 2) + gamma)

    Float.Series("товары малой ценности").Points.AddXY(bn, d)

    Next

    Float.Series.Add("товары первой необходимости")

    Float.Series("товары первой необходимости").Color = Color.Red

    Float.Series("товары первой необходимости").BorderWidth = 3

    Float.Series("товары первой необходимости").ChartType = DataVisualization.Charting.SeriesChartType.FastLine

    Dim lt As Integer = 150

    Dim d1 As Single

    For t As Integer = 0 To lt Step 1

    d1 = (alfa * t) / (t + beta)

    Float.Series("товары первой необходимости").Points.AddXY(t, d1)

    Next

    Float.Series.Add("товары второй необходимости")

    Float.Series("товары второй необходимости").Color = Color.Aqua

    Float.Series("товары второй необходимости").BorderWidth = 3

    Float.Series("товары второй необходимости").ChartType = DataVisualization.Charting.SeriesChartType.FastLine

    Dim z As Integer = 35

    Dim d2 As Single

    For l As Integer = 0 To z Step 1

    d2 = (alfa * (l - gamma)) / (l + beta)

    Float.Series("товары второй необходимости").Points.AddXY(d2, l)

    Next

    Float.Series.Add("товары роскоши")

    Float.Series("товары роскоши").Color = Color.DarkBlue

    Float.Series("товары роскоши").BorderWidth = 3

    Float.Series("товары роскоши").ChartType = DataVisualization.Charting.SeriesChartType.FastLine

    Dim h As Integer = 15

    Dim d3 As Single

    For w As Integer = 0 To h Step 1

    d3 = (alfa * w * (w - gamma)) / (w + beta)

    Float.Series("товары роскоши").Points.AddXY(d3, w)

    Next

    End Sub
    Private Sub Grafik3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grafik3.Click

    Float.Titles.Clear()

    Float.Titles.Add("Спрос и предложение")

    Float.ChartAreas.Clear()

    Float.ChartAreas.Add("Default")

    With Float.ChartAreas("Default")

    .AxisX.Title = "Q"

    .AxisX.TitleAlignment = StringAlignment.Near

    .AxisX.MajorGrid.LineColor = Color.Black

    .AxisY.MajorGrid.LineColor = Color.Black

    .AxisY.Title = "P"

    End With

    Float.Legends.Item(0).Enabled = True

    Float.Legends.Item(0).Docking = DataVisualization.Charting.Docking.Bottom

    Float.ChartAreas(0).CursorX.IsUserSelectionEnabled = True

    Float.ChartAreas(0).CursorY.IsUserSelectionEnabled = True

    Float.ChartAreas(0).CursorX.SelectionColor = Color.Gray

    Float.ChartAreas(0).CursorY.SelectionColor = Color.Gray

    Float.Series.Clear()

    Float.Series.Add("спрос")

    Float.Series("спрос").Color = Color.Green

    Float.Series("спрос").BorderWidth = 3

    Float.Series("спрос").ChartType = DataVisualization.Charting.SeriesChartType.Point

    Dim n As Integer = 50

    Dim p As Single

    For q As Integer = 1 To n Step 1

    p = a * q + b

    Float.Series("спрос").Points.AddXY(q, p)

    Next

    Float.Series.Add("Предложение")

    Float.Series("Предложение").Color = Color.Green

    Float.Series("Предложение").BorderWidth = 3

    Float.Series("Предложение").ChartType = DataVisualization.Charting.SeriesChartType. Point

    Dim r As Integer = 50

    Dim hk As Single

    For m As Integer = 1 To n Step 1

    hk = (m ^ 2 / c) + (m / d) + c

    Float.Series("Предложение").Points.AddXY(x, hk)

    Next

    End Sub

    End Class

    Работоспособность программы

    Спрос и предложение



    Рисунок 1 — Спрос и предложение
    Функция Торнквиста


    Рисунок 2 — Функция Торнквиста

    Спрос и предложение



    Рисунок 3 — Спрос и предложение (задание 3)


    Рисунок 4 — Спрос и предложение (задание 3)

    написать администратору сайта