核資料處理課程設計報告
姓名：李方貴
學號：1020350131
班級：輻射一班
指導老師：張懷強
2023年02月24日
目錄1、設計目的和要求
2、設計原理
1、探測原理。
2、核資料處理的分析方法：譜光滑、尋峰、求峰面積。
3、任務實現
1、計算器
2、寫資料到檔案中
3、按鈕實現資料的讀寫
4、顯示圖譜
5、尋峰及道址換算
6、求峰面積
一、設計目的和要求
1、掌握核輻射探測的原理及核資料處理的方法；
2、了解圖形程式的編寫技能與技巧；
3、掌握檔案讀寫函式的使用；
4、理解整個譜資料處理的流程；
5、進一步掌握對常用核資料處理的基本方法。
二、設計步驟
1、載入原始譜資料，作出原始資料譜圖。
原始譜資料：譜資料10.79（已給）
譜圖：2、用vb程式設計對以上譜圖進行五點平滑
程式設計如下：
dim b%(), n, max '申明陣列b
public sub zbx() '定義座標系
clsn = 0: max = 0 '設定記錄數初值
open "c:\users\administrator\desktop\譜資料\10.79" for input as #1 '開啟資料檔案
do while not eof(1)
n = n + 1 '記錄數加1
redim preserve b(n) '增加乙個陣列
input #1, b(n) '從檔案內讀出資料儲存到陣列
if b(n) > max then max = b(n) '找出繪圖資料中最大值max
loop
close #1
scale (-30, max * 1.2)-(max * 1.2, -80) '根據max值定義座標
line (0, 0)-(max * 1.2, 0): line (0, max * 1.2)-(0, 0)
currentx = -10: currenty = -1 '設定當前座標位置
print "道址:"; '顯示繪圖資料
for i = 0 to 1600 step 64 '對座標刻度
print i;
next i
end sub
private sub command1_click()
zbx '根據zbx事件繪製座標系，顯示繪圖資料
x1 = 0
y1 = b(0)
w = max / 2 / n '根據記錄數計算間隔
x1 = w '設定能譜圖在x軸上的起始位置
for i = 1 to n
x2 = x1 + w '能譜圖的下乙個x座標點
y2 = b(i) '能譜圖的下乙個y座標點
line (x1, y1)-(x2, y2) '畫能譜圖
x1 = x2 + w '設定下乙個x的起始位置
y1 = y2 '設定下乙個y的起始位置
next i
end sub
private sub command2_click()
zbxx1 = 0
y1 = b(0)
w = max / 2 / n
x1 = w
for i = 3 to 1021
x2 = x1 + w
y2 = 1 / 16 * (b(i - 2) + 4 * b(i - 1) + 6 * b(i) + 4 * b(i + 1) + b(i + 2)) '五點重心平滑公式
line (x1, y1)-(x2, y2)
x1 = x2 + w
y1 = y2
next
end sub
3、平滑後譜圖為：
4、尋峰
簡單比較法尋峰：簡單比較法尋峰是最直觀而又快速的一種導峰方法。在譜資料中，某一道的資料比其鄰近的幾道大很多時，則認為該道存在乙個峰。在計算中邊疆檢索平滑後的譜資料，如在第m道滿足
則第m道附近有乙個峰。式中trh是尋峰閾值。在第m道附近的譜資料中用二階差值多項式計算出精確峰位。
5、求峰面積(線性本底法)
峰面積的計算是定量的基礎。知道了特徵峰的淨峰面積，就可以計算目標元素的含量。實測譜中，各特徵峰是疊加在環境本底和康普頓散射背景之上的。
總峰面積s：在乙個特定的峰區內，各道計數之和。
本底面積b：由環境本底和散射造成的計數總和。
淨峰面積a：由峰的總面積扣除本底面積即可得出淨峰面積。即：s—b=a，所以，計算淨峰面積，如何確定b最關鍵。
步驟：確定峰的左右邊界l、r。
計算總面積
計算本底面積：
④計算淨峰面積：a=s—b
5、程式流程圖
三、任務實現
1、計算器
1.1 任務要求
設計乙個對話方塊，編輯程式。實現簡單的資料加、減、乘、除 。
1.2 任務步驟
1.2.1編輯乙個對話方塊並在對話方塊內編輯按鈕。
1.2.2分別對每個按鈕進行程式設計。
void cjisuanqidlg::onjia()
void cjisuanqidlg::onjian()
void cjisuanqidlg::oncheng()
void cjisuanqidlg::onchu()
1.3 任務效果
2、寫資料到檔案中
2.1 任務要求
設計乙個對話方塊，編輯程式。實現資料的寫入。
2.2 任務步驟
2.2.1編輯乙個對話方塊並在對話方塊內編輯按鈕。
2.2.2對按鈕進行程式設計。
#include
#include
void main()
for(i=0;i<2048;i++)
for(i=0;i<2048;i++)
if((fp=fopen("090623(1).txt","w"))==null)
for(i=0;i<2048;i++)
fclose(fp);
}2.3 任務效果
3、按鈕實現資料的讀寫
3.1 任務要求
編輯程式。實現資料的讀寫。
3.2 任務步驟
3.2.1新建c++文件。
3.2.2輸入程式並執行。
void cshiyandlg::ondushuju()
while(!feof(fp))
for(i=0;i<2048;i++)
fclose(fp);
if((fp=fopen("out1.txt","w"))==null)
{printf("file open error.\n");
個人劑量和輻射環境監測方案
輻射工作人員個人劑量和輻射環境監測方案 一 總則 為了及時發現和預防射線裝置的放射性汙染事故，確保輻射工作人員和公眾的人身生命與環境安全，特制定本方案。二 個人劑量監測方案 1 全部輻射工作人員配備個人劑量計 2 每年與有資格的輻射工作人員個人劑量監測單位簽訂監測合同，對輻射工作人員的個人累積劑量監...
環境監測與影響評價實習報告
班級 學號 姓名 指導老師 2011年12月30日 成績 摘要 環境監測與影響評價是農業資源與環境專業的課程基礎之一，在環境汙染中不管是大氣汙染 水體汙染 土壤汙染 雜訊汙染和生物汙染等，都必須對汙染物的性質 含量 狀態進行分析測定，並進行資料模擬，然後對環境汙染進行現狀與影響評價。本次的課程實習的...
環境監測實習報告
白沙河 白沙河是嶗山山區最長的河，發源於嶗山巨峰之陰的天乙泉，流向為南北折而東西，流經嶗山水庫，最後流入膠州灣。全長28公里，河床寬度上游為50 100公尺，中游為200公尺，下游為300公尺左右，流域面積215平方公里。雲頭崮水庫 其水源主要為雨水和附近山上流下的泉水，水質很好，清澈見底，汙染源少...