有效周期勢下,產生光子帶隙的條件.用圖解法容易求出ka允許值和禁戒值的近似範圍.
計算
Dim strCategory As String = "1" + ControlChars.Tab + "2" + ControlChars.Tab _
+ "3" + ControlChars.Tab + "4" + ControlChars.Tab + "5" + ControlChars.Tab _
+ "6" + ControlChars.Tab
Dim strValue As String = "120" + ControlChars.Tab + "8" + ControlChars.Tab _
+ "4" + ControlChars.Tab + "10" + ControlChars.Tab + "12" + ControlChars.Tab _
+ "6" + ControlChars.Tab
'添加一個series
objChart.SeriesCollection.Add(0)
''?定series的名字
objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimSeriesNames, ChartSpecialDataSourcesEnum.chDataLiteral, strSeriesName)
''?定分?
objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, strCategory)
'?定?
objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, strValue) objChart.SeriesCollection.Add(1)
strValue = "33" + ControlChars.Tab + "33" + ControlChars.Tab _
+ "33" + ControlChars.Tab + "33" + ControlChars.Tab + "33" + ControlChars.Tab _
+ "33" + ControlChars.Tab
objChart.SeriesCollection(1).SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, strValue)
'?出成GIF檔案.
Dim strAbsolutePath As String = "c:\456.gif"
objCSpace.ExportPicture(strAbsolutePath, "GIF", 600, 350)
