Matlab - Transcribir un código

 
Vista:

Transcribir un código

Publicado por rrrto2005 (1 intervención) el 14/11/2012 19:39:39
Ncesito pasar este código en basic a Matlab

10 REM «COLOREAR UN MAPA CON
CUATRO COLORES»
20 INPUT («CUÁNTOS PAÍSES?») n
30 INPUT («MÁXIMO VECINOS?») m
40 OPTION BASE I: DIM cn (n, m): DIM cr
(n)
50 FOR i= 1 TO n
60 FORj=1 TOm
'70 PRINT «cn («;i;», «;j;»)=»;
80 INPUT cn (i, j)
90 NEXT j
100 NEXT i
110 p= 1
120 r = 1
130 cr (p) = r
140 v = 1
1 SO IF cn (p, v) = 0 THEN 200
160 IF cr (p) = cr (cn(p, v.)) THEN 310
170 IF v= m THEN 200
180 v=v+1
190 GO TO I 50
200 IF p= n THEN 230
210p=p+1
220 GO TO 120
230 PRINT «SE PUEDE COLOREAR CON»
240 PR[NT «CUATRO COLORES»
250 PRINT,
260 PRINT «PAÍS»; TAB (19); «COLOR»
270 FOR p=1 TO n
280 PRINT TAB (2); p; TAB (13); cr (p)
290 NEXT p
300 GO TO 500
310 IF r=4 THEN 340
320 r=r+ 1
330 GO TO 130
340 IF p= 1 THEN 390
350 p=p- 1
360 IF cr (p) = 4 THEN 340
370 r=cr(p)+l
380 GO TO 130
390 PRINT «NO SE PUEDE COLOREAR
CON»;
400 PRINT «CUATRO COLORES»
500 END

el problema es de coloracion de un arbol, el problema es que go to no existe en matlab, alguien me puede ayudar a cómo transcribirlo? por favor
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder