Oval()
{setSize(200,200)} //这个构造方法如果是这样写肯定是不对的.这根本也没有做什么事情啊?只是set了个Size.这里应该写具体要画出的图.
楼主写一个html，很容易把下面代码嵌入到applet，可以google一下实现，还有copy自己不知道算不算复制。。。-_-!
--------------------------------------------------------------------
楼主给你一个我的，直接保存成pb.java编译运行，就是你要的画图功能 ，可以参考一下
____________________________________________________________________
import java.applet.*
import java.awt.*
import java.awt.event.*
import java.util.*
import javax.swing.*
import java.awt.geom.*
import java.io.*
class Point implements Serializable
{
int x,y
Color col
int tool
int boarder
Point(int x, int y, Color col, int tool, int boarder)
{
this.x = x
this.y = y
this.col = col
this.tool = tool
this.boarder = boarder
}
}
class paintboard extends Frame implements ActionListener,MouseMotionListener,MouseListener,ItemListener
{
int x = -1, y = -1
int Econ = 5//橡皮大小
int toolFlag = 0//toolFlag:工具标记
//toolFlag工具对应表：
//（0--画笔）；（1--橡皮）；（2--清除）；
//（3--直线）；（4--圆）；（5--矩形）；
Color c = new Color(0,0,0)//画笔颜色
BasicStroke size = new BasicStroke(con,BasicStroke.CAP_BUTT,BasicStroke.JOIN_BEVEL)//画笔粗细
Point cutflag = new Point(-1, -1, c, 6, con)//截断标志
Vector paintInfo = null//点信息向量组
int n = 1
FileInputStream picIn = null
FileOutputStream picOut = null
ObjectInputStream VIn = null
ObjectOutputStream VOut = null
// *工具面板--画笔，直线，圆，矩形，多边形,橡皮，清除*/
Panel toolPanel
Button eraser, drLine,drCircle,drRect
Button clear ,pen
Choice ColChoice,SizeChoice,EraserChoice
Button colchooser
Label 颜色,大小B,大小E
//保存功能
Button openPic,savePic
FileDialog openPicture,savePicture
paintboard(String s)
{
super(s)
addMouseMotionListener(this)
addMouseListener(this)
paintInfo = new Vector()
/*各工具按钮及选择项*/
//颜色选择
ColChoice = new Choice()
ColChoice.add("black")
ColChoice.add("red")
ColChoice.add("blue")
ColChoice.add("green")
ColChoice.addItemListener(this)
//画笔大小选择
SizeChoice = new Choice()
SizeChoice.add("1")
SizeChoice.add("3")
SizeChoice.add("5")
SizeChoice.add("7")
SizeChoice.add("9")
SizeChoice.addItemListener(this)
//橡皮大小选择
EraserChoice = new Choice()
EraserChoice.add("5")
EraserChoice.add("9")
EraserChoice.add("13")
EraserChoice.add("17")
EraserChoice.addItemListener(this)
////////////////////////////////////////////////////
toolPanel = new Panel()
clear = new Button("清除")
eraser = new Button("橡皮")
pen = new Button("画笔")
drLine = new Button("画直线")
drCircle = new Button("画圆形")
drRect = new Button("画矩形")
openPic = new Button("打开图画")
savePic = new Button("保存图画")
colchooser = new Button("显示调色板")
//各组件事件监听
clear.addActionListener(this)
eraser.addActionListener(this)
pen.addActionListener(this)
drLine.addActionListener(this)
drCircle.addActionListener(this)
drRect.addActionListener(this)
openPic.addActionListener(this)
savePic.addActionListener(this)
colchooser.addActionListener(this)
颜色 = new Label("画笔颜色",Label.CENTER)
大小B = new Label("画笔大小",Label.CENTER)
大小E = new Label("橡皮大小",Label.CENTER)
//面板添加组件
toolPanel.add(openPic)
toolPanel.add(savePic)
toolPanel.add(pen)
toolPanel.add(drLine)
toolPanel.add(drCircle)
toolPanel.add(drRect)
toolPanel.add(颜色)toolPanel.add(ColChoice)
toolPanel.add(大小B)toolPanel.add(SizeChoice)
toolPanel.add(colchooser)
toolPanel.add(eraser)
toolPanel.add(大小E)toolPanel.add(EraserChoice)
toolPanel.add(clear)
//工具面板到APPLET面板
add(toolPanel,BorderLayout.NORTH)
setBounds(60,60,900,600)setVisible(true)
validate()
//dialog for save and load
openPicture = new FileDialog(this,"打开图画",FileDialog.LOAD)
openPicture.setVisible(false)
savePicture = new FileDialog(this,"保存图画",FileDialog.SAVE)
savePicture.setVisible(false)
openPicture.addWindowListener(new WindowAdapter()
{
public void windowClosing(WindowEvent e)
{ openPicture.setVisible(false)}
})
savePicture.addWindowListener(new WindowAdapter()
{
public void windowClosing(WindowEvent e)
{ savePicture.setVisible(false)}
})
addWindowListener(new WindowAdapter()
{
public void windowClosing(WindowEvent e)
{ System.exit(0)}
})
}
public void paint(Graphics g)
{
Graphics2D g2d = (Graphics2D)g
Point p1,p2
n = paintInfo.size()
if(toolFlag==2)
g.clearRect(0,0,getSize().width,getSize().height)//清除
for(int i=0i<n i++){
p1 = (Point)paintInfo.elementAt(i)
p2 = (Point)paintInfo.elementAt(i+1)
size = new BasicStroke(p1.boarder,BasicStroke.CAP_BUTT,BasicStroke.JOIN_BEVEL)
g2d.setColor(p1.col)
g2d.setStroke(size)
if(p1.tool==p2.tool)
{
switch(p1.tool)
{
case 0://画笔
Line2D line1 = new Line2D.Double(p1.x, p1.y, p2.x, p2.y)
g2d.draw(line1)
break
case 1://橡皮
g.clearRect(p1.x, p1.y, p1.boarder, p1.boarder)
break
case 3://画直线
Line2D line2 = new Line2D.Double(p1.x, p1.y, p2.x, p2.y)
g2d.draw(line2)
break
case 4://画圆
Ellipse2D ellipse = new Ellipse2D.Double(p1.x, p1.y, Math.abs(p2.x-p1.x) , Math.abs(p2.y-p1.y))
g2d.draw(ellipse)
break
case 5://画矩形
Rectangle2D rect = new Rectangle2D.Double(p1.x, p1.y, Math.abs(p2.x-p1.x) , Math.abs(p2.y-p1.y))
g2d.draw(rect)
break
case 6://截断，跳过
i=i+1
break
default :
}//end switch
}//end if
}//end for
}
public void itemStateChanged(ItemEvent e)
{
if(e.getSource()==ColChoice)//预选颜色
{
String name = ColChoice.getSelectedItem()
if(name=="black")
{c = new Color(0,0,0)}
else if(name=="red")
{c = new Color(255,0,0)}
else if(name=="green")
{c = new Color(0,255,0)}
else if(name=="blue")
{c = new Color(0,0,255)}
}
else if(e.getSource()==SizeChoice)//画笔大小
{
String selected = SizeChoice.getSelectedItem()
if(selected=="1")
{
con = 1
size = new BasicStroke(con,BasicStroke.CAP_BUTT,BasicStroke.JOIN_BEVEL)
}
else if(selected=="3")
{
con = 3
size = new BasicStroke(con,BasicStroke.CAP_BUTT,BasicStroke.JOIN_BEVEL)
}
else if(selected=="5")
{con = 5
size = new BasicStroke(con,BasicStroke.CAP_BUTT,BasicStroke.JOIN_BEVEL)
}
else if(selected=="7")
{con = 7
size = new BasicStroke(con,BasicStroke.CAP_BUTT,BasicStroke.JOIN_BEVEL)
}
else if(selected=="9")
{con = 9
size = new BasicStroke(con,BasicStroke.CAP_BUTT,BasicStroke.JOIN_BEVEL)
}
}
else if(e.getSource()==EraserChoice)//橡皮大小
{
String Esize = EraserChoice.getSelectedItem()
if(Esize=="5")
{ Econ = 5*2}
else if(Esize=="9")
{ Econ = 9*2}
else if(Esize=="13")
{ Econ = 13*2}
else if(Esize=="17")
{ Econ = 17*3}
}
}
public void mouseDragged(MouseEvent e)
{
Point p1
switch(toolFlag){
case 0://画笔
x = (int)e.getX()
y = (int)e.getY()
p1 = new Point(x, y, c, toolFlag, con)
paintInfo.addElement(p1)
repaint()
break
case 1://橡皮
x = (int)e.getX()
y = (int)e.getY()
p1 = new Point(x, y, null, toolFlag, Econ)
paintInfo.addElement(p1)
repaint()
break
default :
}
}
public void mouseMoved(MouseEvent e) {}
public void update(Graphics g)
{
paint(g)
}
public void mousePressed(MouseEvent e)
{
Point p2
switch(toolFlag){
case 3://直线
x = (int)e.getX()
y = (int)e.getY()
p2 = new Point(x, y, c, toolFlag, con)
paintInfo.addElement(p2)
break
case 4: //圆
x = (int)e.getX()
y = (int)e.getY()
p2 = new Point(x, y, c, toolFlag, con)
paintInfo.addElement(p2)
break
case 5: //矩形
x = (int)e.getX()
y = (int)e.getY()
p2 = new Point(x, y, c, toolFlag, con)
paintInfo.addElement(p2)
break
default :
}
}
public void mouseReleased(MouseEvent e)
{
Point p3
switch(toolFlag){
case 0://画笔
paintInfo.addElement(cutflag)
break
case 1: //eraser
paintInfo.addElement(cutflag)
break
case 3://直线
x = (int)e.getX()
y = (int)e.getY()
p3 = new Point(x, y, c, toolFlag, con)
paintInfo.addElement(p3)
paintInfo.addElement(cutflag)
repaint()
break
case 4: //圆
x = (int)e.getX()
y = (int)e.getY()
p3 = new Point(x, y, c, toolFlag, con)
paintInfo.addElement(p3)
paintInfo.addElement(cutflag)
repaint()
break
case 5: //矩形
x = (int)e.getX()
y = (int)e.getY()
p3 = new Point(x, y, c, toolFlag, con)
paintInfo.addElement(p3)
paintInfo.addElement(cutflag)
repaint()
break
default:
}
}
public void mouseEntered(MouseEvent e){}
public void mouseExited(MouseEvent e){}
public void mouseClicked(MouseEvent e){}
public void actionPerformed(ActionEvent e)
{
if(e.getSource()==pen)//画笔
{toolFlag = 0}
if(e.getSource()==eraser)//橡皮
{toolFlag = 1}
if(e.getSource()==clear)//清除
{
toolFlag = 2
paintInfo.removeAllElements()
repaint()
}
if(e.getSource()==drLine)//画线
{toolFlag = 3}
if(e.getSource()==drCircle)//画圆
{toolFlag = 4}
if(e.getSource()==drRect)//画矩形
{toolFlag = 5}
if(e.getSource()==colchooser)//调色板
{
Color newColor = JColorChooser.showDialog(this,"调色板",c)
c = newColor
}
if(e.getSource()==openPic)//打开图画
{
openPicture.setVisible(true)
if(openPicture.getFile()!=null)
{
int tempflag
tempflag = toolFlag
toolFlag = 2
repaint()
try{
paintInfo.removeAllElements()
File filein = new File(openPicture.getDirectory(),openPicture.getFile())
picIn = new FileInputStream(filein)
VIn = new ObjectInputStream(picIn)
paintInfo = (Vector)VIn.readObject()
VIn.close()
repaint()
toolFlag = tempflag
}
catch(ClassNotFoundException IOe2)
{
repaint()
toolFlag = tempflag
System.out.println("can not read object")
}
catch(IOException IOe)
{
repaint()
toolFlag = tempflag
System.out.println("can not read file")
}
}
}
if(e.getSource()==savePic)//保存图画
{
savePicture.setVisible(true)
try{
File fileout = new File(savePicture.getDirectory(),savePicture.getFile())
picOut = new FileOutputStream(fileout)
VOut = new ObjectOutputStream(picOut)
VOut.writeObject(paintInfo)
VOut.close()
}
catch(IOException IOe)
{
System.out.println("can not write object")
}
}
}
}//end paintboard
public class pb
{
public static void main(String args[])
{ new paintboard("画图程序")}
}
这个问题也困扰了我好久，终于解决了。给你个ga.m程序，新建m文件复制进去，再运行程序试试。%ga.m
function [x,endPop,bPop,traceInfo] = ga(bounds,evalFN,evalOps,startPop,opts,...
termFN,termOps,selectFN,selectOps,xOverFNs,xOverOps,mutFNs,mutOps)
% GA run a genetic algorithm
% function [x,endPop,bPop,traceInfo]=ga(bounds,evalFN,evalOps,startPop,opts,
% termFN,termOps,selectFN,selectOps,
% xOverFNs,xOverOps,mutFNs,mutOps)
%
% Output Arguments:
% x- the best solution found during the course of the run
% endPop - the final population
% bPop - a trace of the best population
% traceInfo- a matrix of best and means of the ga for each generation
%
% Input Arguments:
% bounds - a matrix of upper and lower bounds on the variables
% evalFN - the name of the evaluation .m function
% evalOps - options to pass to the evaluation function ([NULL])
% startPop - a matrix of solutions that can be initialized
% from initialize.m
% opts - [epsilon prob_ops display] change required to consider two
% solutions different, prob_ops 0 if you want to apply the
% genetic operators probabilisticly to each solution, 1 if
% you are supplying a deterministic number of operator
% applications and display is 1 to output progress 0 for
% quiet. ([1e-6 1 0])
% termFN - name of the .m termination function (['maxGenTerm'])
% termOps - options string to be passed to the termination function
% ([100]).
% selectFN - name of the .m selection function (['normGeomSelect'])
% selectOpts - options string to be passed to select after
% select(pop,#,opts) ([0.08])
% xOverFNS - a string containing blank seperated names of Xover.m
% files (['arithXover heuristicXover simpleXover'])
% xOverOps - A matrix of options to pass to Xover.m files with the
% first column being the number of that xOver to perform
% similiarly for mutation ([2 02 32 0])
% mutFNs - a string containing blank seperated names of mutation.m
% files (['boundaryMutation multiNonUnifMutation ...
% nonUnifMutation unifMutation'])
% mutOps - A matrix of options to pass to Xover.m files with the
% first column being the number of that xOver to perform
% similiarly for mutation ([4 0 06 100 34 100 34 0 0])
% Binary and Real-Valued Simulation Evolution for Matlab
% Copyright (C) 1996 C.R. Houck, J.A. Joines, M.G. Kay
%
% C.R. Houck, J.Joines, and M.Kay. A genetic algorithm for function
% optimization: A Matlab implementation. ACM Transactions on Mathmatical
% Software, Submitted 1996.
%
% This program is free softwareyou can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundationeither version 1, or (at your option)
% any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTYwithout even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details. A copy of the GNU
% General Public License can be obtained from the
% Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
%%$Log: ga.m,v $
%Revision 1.10 1996/02/02 15:03:00 jjoine
% Fixed the ordering of imput arguments in the comments to match
% the actual order in the ga function.
%
%Revision 1.9 1995/08/28 20:01:07 chouck
% Updated initialization parameters, updated mutation parameters to reflect
% b being the third option to the nonuniform mutations
%
%Revision 1.8 1995/08/10 12:59:49 jjoine
%Started Logfile to keep track of revisions
%
n=nargin
if n<2 | n==6 | n==10 | n==12
disp('Insufficient arguements')
end
if n<3 %Default evalation opts.
evalOps=[]
end
if n<5
opts = [1e-6 1 0]
end
if isempty(opts)
opts = [1e-6 1 0]
end
if any(evalFN<48) %Not using a .m file
if opts(2)==1 %Float ga
e1str=['x=c1c1(xZomeLength)=', evalFN '']
e2str=['x=c2c2(xZomeLength)=', evalFN '']
else %Binary ga
e1str=['x=b2f(endPop(j,:),bounds,bits)endPop(j,xZomeLength)=',...
evalFN '']
end
else %Are using a .m file
if opts(2)==1 %Float ga
e1str=['[c1 c1(xZomeLength)]=' evalFN '(c1,[gen evalOps])']
e2str=['[c2 c2(xZomeLength)]=' evalFN '(c2,[gen evalOps])']
else %Binary ga
e1str=['x=b2f(endPop(j,:),bounds,bits)[x v]=' evalFN ...
'(x,[gen evalOps])endPop(j,:)=[f2b(x,bounds,bits) v]']
end
end
if n<6 %Default termination information
termOps=[100]
termFN='maxGenTerm'
end
if n<12 %Default muatation information
if opts(2)==1 %Float GA
mutFNs=['boundaryMutation multiNonUnifMutation nonUnifMutation unifMutation']
mutOps=[4 0 06 termOps(1) 34 termOps(1) 34 0 0]
else %Binary GA
mutFNs=['binaryMutation']
mutOps=[0.05]
end
end
if n<10 %Default crossover information
if opts(2)==1 %Float GA
xOverFNs=['arithXover heuristicXover simpleXover']
xOverOps=[2 02 32 0]
else %Binary GA
xOverFNs=['simpleXover']
xOverOps=[0.6]
end
end
if n<9 %Default select opts only i.e. roullete wheel.
selectOps=[]
end
if n<8 %Default select info
selectFN=['normGeomSelect']
selectOps=[0.08]
end
if n<6 %Default termination information
termOps=[100]
termFN='maxGenTerm'
end
if n<4 %No starting population passed given
startPop=[]
end
if isempty(startPop) %Generate a population at random
%startPop=zeros(80,size(bounds,1)+1)
startPop=initializega(80,bounds,evalFN,evalOps,opts(1:2))
end
if opts(2)==0 %binary
bits=calcbits(bounds,opts(1))
end
xOverFNs=parse(xOverFNs)
mutFNs=parse(mutFNs)
xZomeLength = size(startPop,2) %Length of the xzome=numVars+fittness
numVar = xZomeLength-1 %Number of variables
popSize = size(startPop,1) %Number of individuals in the pop
endPop = zeros(popSize,xZomeLength)%A secondary population matrix
c1 = zeros(1,xZomeLength) %An individual
c2 = zeros(1,xZomeLength) %An individual
numXOvers= size(xOverFNs,1) %Number of Crossover operators
numMuts = size(mutFNs,1) %Number of Mutation operators
epsilon = opts(1)%Threshold for two fittness to differ
oval = max(startPop(:,xZomeLength))%Best value in start pop
bFoundIn = 1 %Number of times best has changed
done = 0 %Done with simulated evolution
gen = 1 %Current Generation Number
collectTrace = (nargout>3) %Should we collect info every gen
floatGA = opts(2)==1 %Probabilistic application of ops
display = opts(3)%Display progress
while(~done)
%Elitist Model
[bval,bindx] = max(startPop(:,xZomeLength))%Best of current pop
best = startPop(bindx,:)
if collectTrace
traceInfo(gen,1)=gen %current generation
traceInfo(gen,2)=startPop(bindx,xZomeLength) %Best fittness
traceInfo(gen,3)=mean(startPop(:,xZomeLength))%Avg fittness
traceInfo(gen,4)=std(startPop(:,xZomeLength))
end
if ( (abs(bval - oval)>epsilon) | (gen==1)) %If we have a new best sol
if display
fprintf(1,'\n%d %f\n',gen,bval) %Update the display
end
if floatGA
bPop(bFoundIn,:)=[gen startPop(bindx,:)]%Update bPop Matrix
else
bPop(bFoundIn,:)=[gen b2f(startPop(bindx,1:numVar),bounds,bits)...
startPop(bindx,xZomeLength)]
end
bFoundIn=bFoundIn+1 %Update number of changes
oval=bval %Update the best val
else
if display
fprintf(1,'%d ',gen) %Otherwise just update num gen
end
end
endPop = feval(selectFN,startPop,[gen selectOps])%Select
if floatGA %Running with the model where the parameters are numbers of ops
for i=1:numXOvers,
for j=1:xOverOps(i,1),
a = round(rand*(popSize-1)+1) %Pick a parent
b = round(rand*(popSize-1)+1) %Pick another parent
xN=deblank(xOverFNs(i,:)) %Get the name of crossover function
[c1 c2] = feval(xN,endPop(a,:),endPop(b,:),bounds,[gen xOverOps(i,:)])
if c1(1:numVar)==endPop(a,(1:numVar)) %Make sure we created a new
c1(xZomeLength)=endPop(a,xZomeLength)%solution before evaluating
elseif c1(1:numVar)==endPop(b,(1:numVar))
c1(xZomeLength)=endPop(b,xZomeLength)
else
%[c1(xZomeLength) c1] = feval(evalFN,c1,[gen evalOps])
eval(e1str)
end
if c2(1:numVar)==endPop(a,(1:numVar))
c2(xZomeLength)=endPop(a,xZomeLength)
elseif c2(1:numVar)==endPop(b,(1:numVar))
c2(xZomeLength)=endPop(b,xZomeLength)
else
%[c2(xZomeLength) c2] = feval(evalFN,c2,[gen evalOps])
eval(e2str)
end
endPop(a,:)=c1
endPop(b,:)=c2
end
end
for i=1:numMuts,
for j=1:mutOps(i,1),
a = round(rand*(popSize-1)+1)
c1 = feval(deblank(mutFNs(i,:)),endPop(a,:),bounds,[gen mutOps(i,:)])
if c1(1:numVar)==endPop(a,(1:numVar))
c1(xZomeLength)=endPop(a,xZomeLength)
else
%[c1(xZomeLength) c1] = feval(evalFN,c1,[gen evalOps])
eval(e1str)
end
endPop(a,:)=c1
end
end
else %We are running a probabilistic model of genetic operators
for i=1:numXOvers,
xN=deblank(xOverFNs(i,:)) %Get the name of crossover function
cp=find(rand(popSize,1)<xOverOps(i,1)==1)
if rem(size(cp,1),2) cp=cp(1:(size(cp,1)-1))end
cp=reshape(cp,size(cp,1)/2,2)
for j=1:size(cp,1)
a=cp(j,1)b=cp(j,2)
[endPop(a,:) endPop(b,:)] = feval(xN,endPop(a,:),endPop(b,:),...
bounds,[gen xOverOps(i,:)])
end
end
for i=1:numMuts
mN=deblank(mutFNs(i,:))
for j=1:popSize
endPop(j,:) = feval(mN,endPop(j,:),bounds,[gen mutOps(i,:)])
eval(e1str)
end
end
end
gen=gen+1
done=feval(termFN,[gen termOps],bPop,endPop)%See if the ga is done
startPop=endPop %Swap the populations
[bval,bindx] = min(startPop(:,xZomeLength))%Keep the best solution
startPop(bindx,:) = best %replace it with the worst
end
[bval,bindx] = max(startPop(:,xZomeLength))
if display
fprintf(1,'\n%d %f\n',gen,bval)
end
x=startPop(bindx,:)
if opts(2)==0 %binary
x=b2f(x,bounds,bits)
bPop(bFoundIn,:)=[gen b2f(startPop(bindx,1:numVar),bounds,bits)...
startPop(bindx,xZomeLength)]
else
bPop(bFoundIn,:)=[gen startPop(bindx,:)]
end
if collectTrace
traceInfo(gen,1)=gen %current generation
traceInfo(gen,2)=startPop(bindx,xZomeLength)%Best fittness
traceInfo(gen,3)=mean(startPop(:,xZomeLength))%Avg fittness
end
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）