програама по сварке

[AlexanderRodkin]

Всем привет.
Можете подсказать, что делает программа.
Я буду очень благодарен, если подробно сможете расписать))У нас просто проблемы возникают и надо понять как эта KAREL программа работает


/PROG T_STR100
/ATTR
OWNER = NMT_RSG;
COMMENT = "T_ZRSET RSW G1";
PROG_SIZE = 2465;
CREATE = DATE 14-01-10 TIME 16:16:48;
MODIFIED = DATE 14-01-21 TIME 08:58:44;
FILE_NAME = ;
VERSION = 0;
LINE_COUNT = 65;
MEMORY_SIZE = 3025;
PROTECT = READ_WRITE;
TCD: STACK_SIZE = 0,
TASK_PRIORITY = 50,
TIME_SLICE = 0,
BUSY_LAMP_OFF = 0,
ABORT_REQUEST = 0,
PAUSE_REQUEST = 0;
DEFAULT_GROUP = 1,1,*,*,*;
CONTROL_CODE = 00000000 00000000;
/APPL
SPOT : TRUE ;
SPOT Welding Equipment Number : 1 ;
/MN
1: ! DO NOT OVER WRITE ;
2: ! MUST DO BEFOR RUN ;
3: ! IS IT NEW TIP ;
4: ! GUN ZERO MASTER ;
5: ! HAVE YOU RET'ND AXIS LIMET ORGm ;
6: ! (25)mm ;
7: ;
8: ;
9: ! ONE TIME CYCLE POWER OFF ;
10: ! MUST FINISH MASTER_CAL ;
11: ;
12: UFRAME_NUM=0 ;
13: UTOOL_NUM=1 ;
14: PAYLOAD[1] ;
15: ;
16:J P[1:Home Position] 50% FINE ;
17:J P[2:Sub Home Pos] 50% CNT50 ;
18:J P[3:approach_block] 50% CNT50 ;
19:L P[4:approachtipblock] 1000mm/sec FINE ;
20: ;
21: $SGGUN1.$SGREG.$REGLONG[1]=0 ;
22: $SGGUN1.$SGREG.$REGLONG[2]=0 ;
23: $SGGUN1.$SGREG.$REGLONG[3]=0 ;
24: $SGGUN1.$SGREG.$REGLONG[4]=0 ;
25: $SGGUN1.$SGREG.$REGLONG[5]=0 ;
26: $SGGUN1.$SGREG.$REGLONG[6]=0 ;
27: $SGGUN1.$SGREG.$REGLONG[7]=0 ;
28: $SGGUN1.$SGREG.$REGLONG[8]=0 ;
29: $SGGUN1.$SGREG.$REGLONG[9]=0 ;
30: $SGGUN1.$SGREG.$REGLONG[10]=0 ;
31: ;
32: $SGGUN1.$SGREG.$REGREAL[1]=0 ;
33: $SGGUN1.$SGREG.$REGREAL[2]=0 ;
34: $SGGUN1.$SGREG.$REGREAL[3]=0 ;
35: $SGGUN1.$SGREG.$REGREAL[4]=0 ;
36: $SGGUN1.$SGREG.$REGREAL[5]=0 ;
37: $SGGUN1.$SGREG.$REGREAL[6]=0 ;
38: $SGGUN1.$SGREG.$REGREAL[7]=0 ;
39: $SGGUN1.$SGREG.$REGREAL[8]=0 ;
40: $SGGUN1.$SGREG.$REGREAL[9]=0 ;
41: $SGGUN1.$SGREG.$REGREAL[10]=0 ;
42: ;
43: CALL TWKINIT(1) ;
44: ;
45:L P[4:approachtipblock] 1000mm/sec FINE ;
46: ;
47: CALL TWKTHOLD(1,10,20) ;
48: ;
49:L P[4:approachtipblock] 1000mm/sec FINE ;
50: ;
51: CALL TWKZRCLB(1,10,20) ;
52: ;
53:L P[4:approachtipblock] 1000mm/sec FINE ;
54:L P[5:Tip Block] 1000mm/sec FINE ;
55: ;
56: CALL TWKFXTCH(1,10,20) ;
57: ;
58:L P[5:Tip Block] 1000mm/sec FINE ;
59:L P[4:approachtipblock] 1000mm/sec FINE ;
60:J P[3:approach_block] 50% CNT50 ;
61:J P[2:Sub Home Pos] 50% CNT50 ;
62:J P[1:Home Position] 50% FINE ;
63: UFRAME_NUM=0 ;
64: UTOOL_NUM=1 ;
65: PAYLOAD[1] ;
/POS
P[1:"Home Position"]{
GP1:
UF : 0, UT : 1,
J1= 45.000 deg, J2= -30.000 deg, J3= .000 deg,
J4= 0.000 deg, J5= -90.000 deg, J6= 90.000 deg
GP2:
UF : 0, UT : 1,
J1= -3.000 mm
};
P[2:"Sub Home Pos"]{
GP1:
UF : 0, UT : 1,
J1= 65.163 deg, J2= -20.278 deg, J3= -6.075 deg,
J4= 0.000 deg, J5= -83.925 deg, J6= 114.837 deg
GP2:
UF : 0, UT : 1,
J1= -52.500 mm
};
P[3:"approach_block"]{
GP1:
UF : 0, UT : 1,
J1= 65.163 deg, J2= -20.278 deg, J3= -6.075 deg,
J4= 0.000 deg, J5= -83.925 deg, J6= 114.837 deg
GP2:
UF : 0, UT : 1,
J1= -52.500 mm
};
P[4:"approachtipblock"]{
GP1:
UF : 0, UT : 1,
J1= 65.163 deg, J2= -20.278 deg, J3= -6.075 deg,
J4= 0.000 deg, J5= -83.925 deg, J6= 114.837 deg
GP2:
UF : 0, UT : 1,
J1= -52.500 mm
};
P[5:"Tip Block"]{
GP1:
UF : 0, UT : 1,
J1= 69.649 deg, J2= -22.483 deg, J3= -5.408 deg,
J4= 0.000 deg, J5= -84.592 deg, J6= 110.351 deg
GP2:
UF : 0, UT : 1,
J1= -52.500 mm
};
/END

[Sergei Troizky]

Это- не Karel, а TP программа.
Она вызывает Karel- подпрограммы с входными и/или выходными параметрами. Функции и параметры подпрограмм выявить из текста вызывающей программы невозможно, и никаких комментариев по ним нет.
Ищите документацию по подпрограммам.

[Мега-Мозг]

я бы сказал, что это программа мастеризации робота перед началом работы и выход в исходное положение. судя по всему робота и дополнительной оси