Procedure TSPSA:
begin
init-of-T { T為初始溫度}
S={1,……,n} {S為初始值}
termination=false
while termination=false
begin
for i=1 to L do
begin
generate(S′form S) { 從當前回路S產生新回路S′}
Δt:=f(S′))-f(S) {f(S)為路徑總長}
IF(Δt<0) OR (EXP(-Δt/T)>Random-of-[0,1])
S=S′
IF the-halt-condition-is-TRUE THEN
termination=true
End
T_lower
End
End
一臺精密儀器的工作時間為 n 個時間單位。與儀器工作時間同步進行若干儀器維修程序。一旦啟動維修程序,儀器必須進入維修程序。如果只有一個維修程序啟動,則必須進入該維修程序。如果在同一時刻有多個維修程序,可任選進入其中的一個維修程序。維修程序必須從頭開始,不能從中間插入。一個維修程序從第s個時間單位開始,持續 t個時間單位,則該維修程序在第s+t-1個時間單位結束。為了提高儀器使用率,希望安排盡可能少的維修時間。
This archive includes the Delphi component TScreenCapture (D3,D4,D5)
that implements an interface to the capture DLL of our screen capture
tool "T.N.T".
假定已經有許多應用采用了程序1 - 1 5中所定義的C u r r e n c y類,現在我們想要對C u r r e n c y類
的描述進行修改,使其應用頻率最高的兩個函數A d d和I n c r e m e n t可以運行得更快,從而提高應
用程序的執行速度。由于用戶僅能通過p u b l i c部分所提供的接口與C u r r e n c y類進行交互,
鄰接矩陣類的根是A d j a c e n c y W D i g r a p h,因此從這個類開始。程序1 2 - 1給出了類的描述。程
序中,先用程序1 - 1 3中函數Make2DArray 為二組數組a 分配空間,然后對數組a 初始化,以描述
一個n 頂點、沒有邊的圖的鄰接矩陣,其復雜性為( n2 )。該代碼沒有捕獲可能由M a k e 2 D A r r a y
引發的異常。在析構函數中調用了程序1 - 1 4中的二維數組釋放函數D e l e t e 2 D