SLPS V25 Users Guide
標簽: UsersGuide SLPSV 25
上傳時間: 2016-06-14
上傳用戶:elite_lee
asp實現限制一個ip只能訪問一次的方法 <% '///////////////////////////////////////////////////// '// // '//作用:一個IP地址只允許訪問本頁一次 // '//引用:<!-- #include file="Check_Ip.asp" --> // '// // '///////////////////////////////////////////////////// 'Response.Charset = 936 '設置輸出編碼為簡體中文 'Response.Buffer = false '關閉緩沖區 Dim Fso,ts,IpList,Cfs '設置Cookies函數 Function SetCookie() Response.Cookies("IsBrow") = "Brow" Response.Cookies("IsBrow").Expires = Date+365 End Function '記錄IP地址函數 Function WriteIp(FileName, IpAddress) Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true) ts.WriteLine IpAddress ts.Close Set ts = Nothing Set Fso = Nothing End Function '讀取IP地址函數 Function ReadIpList(FileName) Set Fso = Server.CreateObject("Scripting.FileSystemObject") If Not Fso.FileExists(Server.MapPath(FileName)) Then CreateFile("Iplist.txt") Exit Function End If Set ts = Fso.OpenTextFile(Server.MapPath(FileName)) Iplist = ts.ReadAll ts.Close Set ts = Nothing Set Fso = Nothing ReadIpList = Iplist End Function '創建文件函數 Function CreateFile(FileName) Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName)) Cfs.Close Set Cfs = Nothing Set Fso = Nothing End Function '關閉當前IE窗口函數(注:IE6下通過,其他瀏覽器未測試) Function CloseWindow() 'Response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>" Response.Redirect "http://www.baidu.com" End Function Ip = Request.ServerVariables("REMOTE_ADDR") '獲取瀏覽者IP地址 Cookie = Request.Cookies("IsBrow") '獲取當前Cookies 'Response.Write Cookie If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then Response.Write "本站不允許使用代理訪問" Response.End() Else If Cookie = "Brow" Then CloseWindow() Else If Instr(ReadIpList("Iplist.txt"),Ip) <>0 Then CloseWindow() Else WriteIp "Iplist.txt" , Ip End If SetCookie() End If End If %>
上傳時間: 2016-07-14
上傳用戶:helei0915
批處理感知器算法的代碼matlab w1=[1,0.1,1.1;1,6.8,7.1;1,-3.5,-4.1;1,2.0,2.7;1,4.1,2.8;1,3.1,5.0;1,-0.8,-1.3; 1,0.9,1.2;1,5.0,6.4;1,3.9,4.0]; w2=[1,7.1,4.2;1,-1.4,-4.3;1,4.5,0.0;1,6.3,1.6;1,4.2,1.9;1,1.4,-3.2;1,2.4,-4.0; 1,2.5,-6.1;1,8.4,3.7;1,4.1,-2.2]; w3=[1,-3.0,-2.9;1,0.5,8.7;1,2.9,2.1;1,-0.1,5.2;1,-4.0,2.2;1,-1.3,3.7;1,-3.4,6.2; 1,-4.1,3.4;1,-5.1,1.6;1,1.9,5.1]; figure; plot(w3(:,2),w3(:,3),'ro'); hold on; plot(w2(:,2),w2(:,3),'b+'); W=[w2;-w3];%增廣樣本規范化 a=[0,0,0]; k=0;%記錄步數 n=1; y=zeros(size(W,2),1);%記錄錯分的樣本 while any(y<=0) k=k+1; y=a*transpose(W);%記錄錯分的樣本 a=a+sum(W(find(y<=0),:));%更新a if k >= 250 break end end if k<250 disp(['a為:',num2str(a)]) disp(['k為:',num2str(k)]) else disp(['在250步以內沒有收斂,終止']) end %判決面:x2=-a2*x1/a3-a1/a3 xmin=min(min(w1(:,2)),min(w2(:,2))); xmax=max(max(w1(:,2)),max(w2(:,2))); x=xmin-1:xmax+1;%(xmax-xmin): y=-a(2)*x/a(3)-a(1)/a(3); plot(x,y)
上傳時間: 2016-11-07
上傳用戶:a1241314660
編譯原理 1、讀取所有的輸入的文本,存入一個二維數組。(數組的寬度固定) 2、對二維數組一行行進行處理 3、對文本進行操作的時候,創建兩個臨時字符數組,一個存儲變量名,一個存儲常量。 對某行進行遍歷的時候,倘若碰到字母,就讀完該單詞并存儲到臨時數組里,進行基本字判斷后輸出。 光標往后移動該單詞的長度后,繼續循環。(比如讀到的是end,那么我該行的光標就要+3,然后繼續循環) 倘若讀到數字也是一樣,只是不需要判斷基本字,所以更為簡單。
標簽: 編譯原理
上傳時間: 2017-06-20
上傳用戶:lbxxx
PL0語言是與pascal類似的語言,但是比pascal語言的詞法、語法更加嚴格苛刻。 在PL0語言中,只有五種類型的單詞:關鍵字、用戶自定義標識符、數字、特殊符號以及非法標識符。 根據題目給出的PL0的文法,關鍵字只有如下幾個: Const——用來聲明常量; Var——用來聲明變量; Procedure——用來聲明過程; Begin——聲明過程的開始; End——聲明過程的結束; Ood——單目運算符,聲明為關鍵字; If——條件語句; Then——條件語句; Call——聲明調用函數; While——循環語句; Read——讀文件語句; Write——寫文件語句; 對于用戶自定義標識符應該滿足:以字母開頭,其后是字母和數字的組合,即:字母(字母|數字)* 數字則是數字字符(0——9)組成的數字串; 特殊符號有如下幾個: +,-,*,/,=<>,<,>=,<=,:= 把關鍵字、算符和界符稱為語言固有的單詞,標識符、常量稱為用戶自定義的單詞。 為此設置三個全程量:SYM,ID,NUM。 SYM:存放每個單詞的類別,為內部編碼的表示形式; ID:存放用戶所定義的標識符的值,即標識符字符串的機內表示; NUM:存放用戶定義的數。
上傳時間: 2017-06-20
上傳用戶:lbxxx
photoshop軟件(本例中使用CS5版本,當然各版本界面都大同小異) 界面篇 1 首先我們打開photoshop軟件,界面就如下圖所示了: 2 左側的是工具箱調板,我們可以用鼠標單擊相應的工具進行圖片處理操作,鼠標右擊可以進行某一工具選擇(再使用熟練后,我們也可以按下相應的鍵盤鍵進行選擇),如圖: 3 右側的是窗口調板,我們可以點擊菜單中的窗口菜單,在下拉列表中選擇我們需要的窗口調板,如圖: 4 頂部的菜單欄中包含了全部photoshop常用的操作,我們不必去死記硬背,只要平時常用就會爛熟于心了。 5 在菜單欄的下方是屬性欄,顯示當前我們正在使用的工具的屬性,如圖: END 常用操作 1 打開一張圖片,方法有三種:①使用菜單里面的打開命令;②使用快捷鍵Ctrl+O;③雙擊photoshop界面中心;④拖動想要處理的圖片到photoshop中打開;⑤右鍵選擇要處理的圖片選擇使用photoshop打開命令。 2 保存圖片的方法:一般按下鍵盤上的快捷鍵Ctrl+S,或使用菜單保存命令(如果要另存的話就選擇另存為選項;保存的圖片可以選擇任意格式,.psd是保存當前處理的所有步驟,下次打開還可以繼續編輯,JPEG、png、gif格式就是處理好的圖片格式) 3 歷史記錄面板的用法:我們處理圖片的時候可能要反復修改獲得最佳的效果,那么歷史記錄工具就可以很方便的返回之前我們的操作狀態,如圖,點擊要恢復的步驟,即可恢復圖片: END 使用技巧 如圖所示黑色是前景色、白色是背景色,我們可以按下鍵盤上的X鍵進行前景色和背景色的互換: 圖片移動操作,我們打開兩張圖片,想要移動其中的一張到另一張中,我們可以按住鍵盤的Ctrl鍵,使用鼠標拖動一張圖片到另一張圖片中,如圖: 3 我們可以在處理圖片的時候按下Z鍵使用放大鏡放大圖片的細節,處理圖片的時候就會容易許多,我們可以按ATL鍵在放大和縮小之間切換! 4 我們可以按住鍵盤上的空格鍵,移動圖片,對于處理大型的圖片還是非常方便的! END 注意事項 photoshop入門相對來說比較簡單,但熟練操作至少要3個月左右! 精通photoshop是一條非常漫長的路程,有時候會打退堂鼓,但只要多操作,多制作,慢慢的時間久了也就精了。
上傳時間: 2017-12-07
上傳用戶:1506034115
photoshop軟件(本例中使用CS5版本,當然各版本界面都大同小異) 界面篇 1 首先我們打開photoshop軟件,界面就如下圖所示了: 2 左側的是工具箱調板,我們可以用鼠標單擊相應的工具進行圖片處理操作,鼠標右擊可以進行某一工具選擇(再使用熟練后,我們也可以按下相應的鍵盤鍵進行選擇),如圖: 3 右側的是窗口調板,我們可以點擊菜單中的窗口菜單,在下拉列表中選擇我們需要的窗口調板,如圖: 4 頂部的菜單欄中包含了全部photoshop常用的操作,我們不必去死記硬背,只要平時常用就會爛熟于心了。 5 在菜單欄的下方是屬性欄,顯示當前我們正在使用的工具的屬性,如圖: END 常用操作 1 打開一張圖片,方法有三種:①使用菜單里面的打開命令;②使用快捷鍵Ctrl+O;③雙擊photoshop界面中心;④拖動想要處理的圖片到photoshop中打開;⑤右鍵選擇要處理的圖片選擇使用photoshop打開命令。 2 保存圖片的方法:一般按下鍵盤上的快捷鍵Ctrl+S,或使用菜單保存命令(如果要另存的話就選擇另存為選項;保存的圖片可以選擇任意格式,.psd是保存當前處理的所有步驟,下次打開還可以繼續編輯,JPEG、png、gif格式就是處理好的圖片格式) 3 歷史記錄面板的用法:我們處理圖片的時候可能要反復修改獲得最佳的效果,那么歷史記錄工具就可以很方便的返回之前我們的操作狀態,如圖,點擊要恢復的步驟,即可恢復圖片: END 使用技巧 如圖所示黑色是前景色、白色是背景色,我們可以按下鍵盤上的X鍵進行前景色和背景色的互換: 圖片移動操作,我們打開兩張圖片,想要移動其中的一張到另一張中,我們可以按住鍵盤的Ctrl鍵,使用鼠標拖動一張圖片到另一張圖片中,如圖: 3 我們可以在處理圖片的時候按下Z鍵使用放大鏡放大圖片的細節,處理圖片的時候就會容易許多,我們可以按ATL鍵在放大和縮小之間切換! 4 我們可以按住鍵盤上的空格鍵,移動圖片,對于處理大型的圖片還是非常方便的! END 注意事項 photoshop入門相對來說比較簡單,但熟練操作至少要3個月左右! 精通photoshop是一條非常漫長的路程,有時候會打退堂鼓,但只要多操作,多制作,慢慢的時間久了也就精了。
上傳時間: 2017-12-07
上傳用戶:1506034115
簡單的實現JPEG圖像壓縮編碼方法一 clear all; RGB=imread('C:\Users\Administrator\Desktop\123.bmp');%讀取內存中bmp格式的彩色圖像 I=rgb2gray(RGB);%將彩色圖像轉換為灰度圖像 I1=im2double(I);%將圖像變換為雙精度格式 T=dctmtx(8);%處理后返回一個8*8階的DCT矩陣 B1=blkproc(I1,[8 8],'P1*x*P2',T,T');%對圖像的每個8*8子塊應用矩陣式‘P1*x*P2(像素塊的處理函數,x是形式參數)進行處理,P1=T,P2=T’ mask=[1 1 1 1 0 0 0 0 1 1 1 0 0 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ];%選取10個DCT系數重構圖像(DCT具有能量集中的性質,數據集中在左上角,故進行圖像壓縮時離散余弦變換矩陣可以舍棄右下角的高頻數據) B2=blkproc(B1,[8 8],'P1.*x',mask);%舍棄每個塊中的高頻系數,達到壓縮的目的 I2=blkproc(B2,[8 8],'P1*x*P2',T',T);%余弦反變換,重構圖像 subplot(2,2,1);imshow(RGB);%原彩色圖像 subplot(2,2,2);imshow(I);%灰度圖像 subplot(2,2,3);imshow(I1);%雙精度灰度圖像 subplot(2,2,4);imshow(I2);%重構圖像
標簽: matlab
上傳時間: 2018-03-15
上傳用戶:wlmelody
兒歌C:\Users\yuxiaofeng\Desktop\111故事C:\Users\yuxiaofeng\Desktop\111故事C:\Users\yuxiaofeng\Desktop\111故事
標簽: MP3
上傳時間: 2018-07-02
上傳用戶:bcocoy
function [alpha,N,U]=youxianchafen2(r1,r2,up,under,num,deta) %[alpha,N,U]=youxianchafen2(a,r1,r2,up,under,num,deta) %該函數用有限差分法求解有兩種介質的正方形區域的二維拉普拉斯方程的數值解 %函數返回迭代因子、迭代次數以及迭代完成后所求區域內網格節點處的值 %a為正方形求解區域的邊長 %r1,r2分別表示兩種介質的電導率 %up,under分別為上下邊界值 %num表示將區域每邊的網格剖分個數 %deta為迭代過程中所允許的相對誤差限 n=num+1; %每邊節點數 U(n,n)=0; %節點處數值矩陣 N=0; %迭代次數初值 alpha=2/(1+sin(pi/num));%超松弛迭代因子 k=r1/r2; %兩介質電導率之比 U(1,1:n)=up; %求解區域上邊界第一類邊界條件 U(n,1:n)=under; %求解區域下邊界第一類邊界條件 U(2:num,1)=0;U(2:num,n)=0; for i=2:num U(i,2:num)=up-(up-under)/num*(i-1);%采用線性賦值對上下邊界之間的節點賦迭代初值 end G=1; while G>0 %迭代條件:不滿足相對誤差限要求的節點數目G不為零 Un=U; %完成第n次迭代后所有節點處的值 G=0; %每完成一次迭代將不滿足相對誤差限要求的節點數目歸零 for j=1:n for i=2:num U1=U(i,j); %第n次迭代時網格節點處的值 if j==1 %第n+1次迭代左邊界第二類邊界條件 U(i,j)=1/4*(2*U(i,j+1)+U(i-1,j)+U(i+1,j)); end if (j>1)&&(j U2=1/4*(U(i,j+1)+ U(i-1,j)+ U(i,j-1)+ U(i+1,j)); U(i,j)=U1+alpha*(U2-U1); %引入超松弛迭代因子后的網格節點處的值 end if i==n+1-j %第n+1次迭代兩介質分界面(與網格對角線重合)第二類邊界條件 U(i,j)=1/4*(2/(1+k)*(U(i,j+1)+U(i+1,j))+2*k/(1+k)*(U(i-1,j)+U(i,j-1))); end if j==n %第n+1次迭代右邊界第二類邊界條件 U(i,n)=1/4*(2*U(i,j-1)+U(i-1,j)+U(i+1,j)); end end end N=N+1 %顯示迭代次數 Un1=U; %完成第n+1次迭代后所有節點處的值 err=abs((Un1-Un)./Un1);%第n+1次迭代與第n次迭代所有節點值的相對誤差 err(1,1:n)=0; %上邊界節點相對誤差置零 err(n,1:n)=0; %下邊界節點相對誤差置零 G=sum(sum(err>deta))%顯示每次迭代后不滿足相對誤差限要求的節點數目G end
標簽: 有限差分
上傳時間: 2018-07-13
上傳用戶:Kemin