File: demoparis.g

package info (click to toggle)
gap-scscp 2.2.3%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,696 kB
  • sloc: xml: 1,226; sh: 388; makefile: 19
file content (39 lines) | stat: -rw-r--r-- 1,445 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
# Calling SCSCP services
#
# Connect to remote GAP SCSCP server at St Andrews
#
LoadPackage("scscp");
SetInfoLevel( InfoSCSCP, 0 );
port:=26133;
server:="chrystal.mcs.st-andrews.ac.uk";
PingSCSCPservice( server, 26133 );
EvaluateBySCSCP( "WS_Factorial", [ 10 ], server, 26133 );
EvaluateBySCSCP( "WS_IdGroup", [ SymmetricGroup(3) ], server, 26133 );
IdGroup(SymmetricGroup(3));
EvaluateBySCSCP( "GroupIdentificationService", [ [ (1,2,3), (2,3) ] ], server, 26133 ); 
IdGroup( Group( (1,2,3), (2,3) ) );
#
# Now start GAP SCSCP server locally and increase InfoLevel to look at details
#
SetInfoLevel( InfoSCSCP, 4 );
port:=26133;
server:="localhost";
PingSCSCPservice( server, 26133 );
EvaluateBySCSCP( "WS_Factorial", [ 10 ], server, 26133 );
EvaluateBySCSCP( "WS_IdGroup", [ SymmetricGroup(3) ], server, 26133 );
IdGroup(SymmetricGroup(3));
EvaluateBySCSCP( "GroupIdentificationService", [ [ (1,2,3), (2,3) ] ], server, 26133 ); 
IdGroup( Group( (1,2,3), (2,3) ) );
ReadPackage("scscp", "example/id512.g");
G := DihedralGroup( IsPermGroup, 512 );
IdGroup512( G );
SetInfoLevel( InfoSCSCP, 0 );
IdGroup512( G );
# Working with remote objects
S := SymmetricGroup( 3 );
S1 := StoreAsRemoteObject( S, server, 26133 );
EvaluateBySCSCP( "WS_IdGroup", [ S1 ], server, 26133 );         
GeneratorsOfGroup( S );
List( [1..4], i -> EvaluateBySCSCP( "PointImages", [ S1, i ], server, 26133 ).object );
RetrieveRemoteObject( S1 );
UnbindRemoteObject( S1 );