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

        Charts.Add

        'указывает  тип графика (график с маркерами)

        ActiveChart.ChartType = xlLineMarkers

        'указывает  источник данных для построения  диаграммы (в данном случае ячейки A2:C8 на листе 1)

        ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A2:C8"), PlotBy:= _

        xlColumns

        ActiveChart.SeriesCollection(3).Delete

        'подписи по оси X

        ActiveChart.SeriesCollection(1).XValues = "=Лист1!R2C3:R8C3"

        ActiveChart.SeriesCollection(2).XValues = "=Лист1!R2C3:R8C3"

        'указывает где будет расположена диаграмма. расположить диаграмму на листе 1

        ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

       

        ActiveChart.SeriesCollection(1).Select

        'добавление линии тренда

        ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _

        , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _

        False).Select

        ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select

        Selection.Left = 317

        Selection.Top = 20

               

        ActiveChart.SeriesCollection(2).Select

        'добавление линии тренда

        ActiveChart.SeriesCollection(2).Trendlines.Add(Type:=xlPolynomial, Order:=2 _

        , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _

        False).Select

        ActiveChart.SeriesCollection(2).Trendlines(1).DataLabel.Select

        Selection.Left = 307

        Selection.Top = 236

    End With

End Sub

 

Private Sub btnExit_Click()   ' закрытие формы

    UserFormMetodSec.Hide

End Sub

 

 

Function F(x) As Double

    F = dA * x ^ 2 + dB * x + dC - (sA * x ^ 2 + sB * x + sC)

End Function

 

Private Sub btnResult_Click()  ' вычисление равновесной цены методом секущих

 

Dim x1 As Double, x2 As Double, x As Double

Dim F1 As Double, F2 As Double

Dim e As Double

 

x1 = txtX1.Value

x2 = txtX2.Value

e = txtEps.Value

 

While x2 - x1 > e

    F1 = F(x1)

    F2 = F(x2)

   

    x = x2 - (x2 - x1) / (F2 - F1) * F2

   

    x1 = x2

    x2 = x

Wend

 

    MsgBox ("Равновесная цена = " & x2)

    txtEquilibriumPrice.Text = x2

   

End Sub 
Литература

 

1. Зубко Н.М., Зубко А.Н., Экономическая теория – Мн., «ТетраСиситемс»,

   2002

2. Тур А.Н., Курс экономической теории – Мн.,ООО «Мисанта», 1988

3. Мышкис А.Д., Лекции  по высшей математике, Издательство «Наука», М.,

   1964

4. Гальперин В.М., том 1, Микроэкономика, Высшая школа, С.- П., 2000