Аппроксимация зависимости ширины запрещенной зоны полупроводников от температуры

Автор работы: Пользователь скрыл имя, 15 Марта 2012 в 09:21, курсовая работа

Описание

Целью данного курсового проекта является изучение методов приближенного вычисления и разработка учебно-демонстрационной программы аппроксимации зависимости ширины запрещенной зоны от температуры. Курсовой проект выполнен в среде Microsoft Visual Studio 2008.
Разработка проекта проходила в несколько стадий, заключавшихся в изучении предметной области задачи, изучении метода наименьших квадратов, разработке учебно-демонстрационной программы, включающей в себя возможности указания параметров полупроводника и порядка аппроксимации.

Содержание

ВВЕДЕНИЕ 3
1. ТЕХНИЧЕСКИЙ ПРОЕКТ 4
1.1. Предметная область 4
1.2. Метод наименьших квадратов 8
1.3. Требования к техническому и программному обеспечению 10
1.3.1. Требования к программному обеспечению 11
1.3.2. Требования к техническому обеспечению 11
2. РАБОЧИЙ ПРОЕКТ 12
2.1. Общие сведения работе программы 12
2.3. Описание программы 12
2.3. Алгоритм работы программы 14
2.4. Системные требования к компьютеру 15
ЗАКЛЮЧЕНИЕ 17
ЛИТЕРАТУРА 18
ПРИЛОЖЕНИЕ 19

Скачать (534.94 Кб) Сколько стоит заказать работу?
Работа состоит из  1 файл

Записка.doc

— 694.50 Кб (Скачать документ)

        Dim begin_x As Integer = 20

        Dim begin_y As Integer = PictureBox1.Height - 20

        Dim max_y As Integer = PictureBox1.Height - 40

        Dim step_x As Double = (PictureBox1.Width - 40) / (1000 - 273)

        Dim value_step_x As Integer = (Convert.ToInt32(TextBox_T2.Text) - Convert.ToInt32(TextBox_T1.Text)) / 10

        Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)

        Dim current_x As Integer = Convert.ToInt32(TextBox_T1.Text)

        Dim drawPen As Pen

        If typePen = 1 Then

            drawPen = New Pen(Color.Red, 2)

        Else

            drawPen = New Pen(Color.Green, 1)

        End If

 

        For i As Integer = 0 To 8

            Dim next_x = current_x + value_step_x

            Dim x1 As Integer = begin_x + Convert.ToInt32((current_x - 273) * step_x)

            Dim y1 As Integer = begin_y - Convert.ToInt32(result(i) * max_y)

            Dim x2 As Integer = begin_x + Convert.ToInt32((next_x - 273) * step_x)

            Dim y2 As Integer = begin_y - Convert.ToInt32(result(i + 1) * max_y)

            g.DrawLine(drawPen, x1, y1, x2, y2)

            current_x = next_x

        Next

        PictureBox1.Refresh()

    End Sub

 



Информация о работе Аппроксимация зависимости ширины запрещенной зоны полупроводников от температуры