{{#sparql:prefix  skos:   <http://www.w3.org/2004/02/skos/core#>
prefix  zbwext: <http://zbw.eu/namespaces/zbw-extensions/>
#
# Show the number of descriptors which are part of two
# subthesauri of STW
#
select (str(count(?s)) as ?intersect) ?subthes1 ?subthes2
where
{
  # the two intersecting subthesauri
  values (?subthes1 ?subthes2)
  {
    ( "v" "b" )
    ( "v" "n" )
    ( "v" "p" )
    ( "v" "w" )
    ( "b" "n" )
    ( "b" "p" )
    ( "b" "w" )
    ( "n" "p" )
    ( "n" "w" )
# and for debugging ...
    ( "a" "b" )
    ( "a" "g" )
    ( "a" "n" )
    ( "a" "p" )
    ( "a" "v" )
    ( "a" "w" )
    ( "g" "b" )
    ( "g" "n" )
    ( "g" "p" )
    ( "g" "v" )
    ( "g" "w" )
  }
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes1)) as ?top1)
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes2)) as ?top2)
  ?s a zbwext:Descriptor .
  {
    ?s skos:broader ?thsys1 .
    ?thsys1 a zbwext:Thsys .
    ?thsys1 skos:broader* ?top1 .
  }
  {
    ?s skos:broader ?thsys2 .
    ?thsys2 a zbwext:Thsys .
    ?thsys2 skos:broader* ?top2 .
  }
}
group by ?subthes1 ?subthes2
order by desc (count(?s))
| endpoint = https://zbw.eu/beta/sparql/stw/query
| chart=bordercloud.visualization.DataTable
| options=
| log=2
}}

from SPARQLWrapper import SPARQLWrapper, JSON

sparql = SPARQLWrapper("https://zbw.eu/beta/sparql/stw/query")
sparql.setQuery("""
    prefix  skos:   <http://www.w3.org/2004/02/skos/core#>
prefix  zbwext: <http://zbw.eu/namespaces/zbw-extensions/>
#
# Show the number of descriptors which are part of two
# subthesauri of STW
#
select (str(count(?s)) as ?intersect) ?subthes1 ?subthes2
where
{
  # the two intersecting subthesauri
  values (?subthes1 ?subthes2)
  {
    ( "v" "b" )
    ( "v" "n" )
    ( "v" "p" )
    ( "v" "w" )
    ( "b" "n" )
    ( "b" "p" )
    ( "b" "w" )
    ( "n" "p" )
    ( "n" "w" )
# and for debugging ...
    ( "a" "b" )
    ( "a" "g" )
    ( "a" "n" )
    ( "a" "p" )
    ( "a" "v" )
    ( "a" "w" )
    ( "g" "b" )
    ( "g" "n" )
    ( "g" "p" )
    ( "g" "v" )
    ( "g" "w" )
  }
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes1)) as ?top1)
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes2)) as ?top2)
  ?s a zbwext:Descriptor .
  {
    ?s skos:broader ?thsys1 .
    ?thsys1 a zbwext:Thsys .
    ?thsys1 skos:broader* ?top1 .
  }
  {
    ?s skos:broader ?thsys2 .
    ?thsys2 a zbwext:Thsys .
    ?thsys2 skos:broader* ?top2 .
  }
}
group by ?subthes1 ?subthes2
order by desc (count(?s))""")
sparql.setReturnFormat(JSON)
results = sparql.query().convert()

for result in results["results"]["bindings"]:
    print(result)
    #print(result["label"]["value"])

library(SPARQL) # SPARQL querying package
library(ggplot2)

# Step 1 - Set up preliminaries and define query
# Define the data.gov endpoint
    endpoint <- "https://zbw.eu/beta/sparql/stw/query"
# create query statement
    query <- "prefix  skos:   <http://www.w3.org/2004/02/skos/core#>
prefix  zbwext: <http://zbw.eu/namespaces/zbw-extensions/>
#
# Show the number of descriptors which are part of two
# subthesauri of STW
#
select (str(count(?s)) as ?intersect) ?subthes1 ?subthes2
where
{
  # the two intersecting subthesauri
  values (?subthes1 ?subthes2)
  {
    ( "v" "b" )
    ( "v" "n" )
    ( "v" "p" )
    ( "v" "w" )
    ( "b" "n" )
    ( "b" "p" )
    ( "b" "w" )
    ( "n" "p" )
    ( "n" "w" )
# and for debugging ...
    ( "a" "b" )
    ( "a" "g" )
    ( "a" "n" )
    ( "a" "p" )
    ( "a" "v" )
    ( "a" "w" )
    ( "g" "b" )
    ( "g" "n" )
    ( "g" "p" )
    ( "g" "v" )
    ( "g" "w" )
  }
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes1)) as ?top1)
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes2)) as ?top2)
  ?s a zbwext:Descriptor .
  {
    ?s skos:broader ?thsys1 .
    ?thsys1 a zbwext:Thsys .
    ?thsys1 skos:broader* ?top1 .
  }
  {
    ?s skos:broader ?thsys2 .
    ?thsys2 a zbwext:Thsys .
    ?thsys2 skos:broader* ?top2 .
  }
}
group by ?subthes1 ?subthes2
order by desc (count(?s))"
# Step 2 - Use SPARQL package to submit query and save results to a data frame
qd <- SPARQL(endpoint,query,curl_args=list(useragent=R.version.string))
df <- qd$results

#!/usr/bin/env ruby
#
# Install sparql for Ruby
#   gem update --system
#   gem install sparql
#
require 'sparql/client'

endpoint = "https://zbw.eu/beta/sparql/stw/query"
sparql = <<-EOT
prefix  skos:   <http://www.w3.org/2004/02/skos/core#>
prefix  zbwext: <http://zbw.eu/namespaces/zbw-extensions/>
#
# Show the number of descriptors which are part of two
# subthesauri of STW
#
select (str(count(?s)) as ?intersect) ?subthes1 ?subthes2
where
{
  # the two intersecting subthesauri
  values (?subthes1 ?subthes2)
  {
    ( "v" "b" )
    ( "v" "n" )
    ( "v" "p" )
    ( "v" "w" )
    ( "b" "n" )
    ( "b" "p" )
    ( "b" "w" )
    ( "n" "p" )
    ( "n" "w" )
# and for debugging ...
    ( "a" "b" )
    ( "a" "g" )
    ( "a" "n" )
    ( "a" "p" )
    ( "a" "v" )
    ( "a" "w" )
    ( "g" "b" )
    ( "g" "n" )
    ( "g" "p" )
    ( "g" "v" )
    ( "g" "w" )
  }
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes1)) as ?top1)
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes2)) as ?top2)
  ?s a zbwext:Descriptor .
  {
    ?s skos:broader ?thsys1 .
    ?thsys1 a zbwext:Thsys .
    ?thsys1 skos:broader* ?top1 .
  }
  {
    ?s skos:broader ?thsys2 .
    ?thsys2 a zbwext:Thsys .
    ?thsys2 skos:broader* ?top2 .
  }
}
group by ?subthes1 ?subthes2
order by desc (count(?s))
EOT

#For Wikidata, the method get is required
#For other SPARQL endpoints, the method post is prefered
client = SPARQL::Client.new(endpoint, :method => :get)
rows = client.query(sparql)

puts "Number of rows: #{rows.size}"
for row in rows
  for key,val in row do
    # print "#{key.to_s.ljust(10)}: #{val}\t"
    print "#{key}: #{val}\t"
  end
  print "\n"
end

endpoint = 'https://zbw.eu/beta/sparql/stw/query';

query = ['prefix  skos:   <http://www.w3.org/2004/02/skos/core#> '...
'prefix  zbwext: <http://zbw.eu/namespaces/zbw-extensions/> '...
'# '...
'# Show the number of descriptors which are part of two '...
'# subthesauri of STW '...
'# '...
'select (str(count(?s)) as ?intersect) ?subthes1 ?subthes2 '...
'where '...
'{ '...
'  # the two intersecting subthesauri '...
'  values (?subthes1 ?subthes2) '...
'  { '...
'    ( "v" "b" ) '...
'    ( "v" "n" ) '...
'    ( "v" "p" ) '...
'    ( "v" "w" ) '...
'    ( "b" "n" ) '...
'    ( "b" "p" ) '...
'    ( "b" "w" ) '...
'    ( "n" "p" ) '...
'    ( "n" "w" ) '...
'# and for debugging ... '...
'    ( "a" "b" ) '...
'    ( "a" "g" ) '...
'    ( "a" "n" ) '...
'    ( "a" "p" ) '...
'    ( "a" "v" ) '...
'    ( "a" "w" ) '...
'    ( "g" "b" ) '...
'    ( "g" "n" ) '...
'    ( "g" "p" ) '...
'    ( "g" "v" ) '...
'    ( "g" "w" ) '...
'  } '...
'  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes1)) as ?top1) '...
'  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes2)) as ?top2) '...
'  ?s a zbwext:Descriptor . '...
'  { '...
'    ?s skos:broader ?thsys1 . '...
'    ?thsys1 a zbwext:Thsys . '...
'    ?thsys1 skos:broader* ?top1 . '...
'  } '...
'  { '...
'    ?s skos:broader ?thsys2 . '...
'    ?thsys2 a zbwext:Thsys . '...
'    ?thsys2 skos:broader* ?top2 . '...
'  } '...
'} '...
'group by ?subthes1 ?subthes2 '...
'order by desc (count(?s)) '];

url_head = strcat(endpoint,'?query=');
url_query = urlencode(query);
format = 'text/tab-separated-values';
url_tail = strcat('&format=', format);

url = strcat(url_head, url_query, url_tail);

% get the data from the endpoint
query_results = urlread(url);

% write the data to a file so that tdfread can parse it
fid = fopen('query_results.txt','w');
if fid>=0
    fprintf(fid, '%s\n', query_results)
    fclose(fid)
end

% this reads the tsv file into a struct
sparql_data = tdfread('query_results.txt')

<?php
require __DIR__ . '/../vendor/autoload.php';
use BorderCloud\SPARQL\SparqlClient;

$endpoint ="https://zbw.eu/beta/sparql/stw/query";
$sp_readonly = new SparqlClient();
$sp_readonly->setEndpointRead($endpoint);
$q = <<<EOD
prefix  skos:   <http://www.w3.org/2004/02/skos/core#>
prefix  zbwext: <http://zbw.eu/namespaces/zbw-extensions/>
#
# Show the number of descriptors which are part of two
# subthesauri of STW
#
select (str(count(?s)) as ?intersect) ?subthes1 ?subthes2
where
{
  # the two intersecting subthesauri
  values (?subthes1 ?subthes2)
  {
    ( "v" "b" )
    ( "v" "n" )
    ( "v" "p" )
    ( "v" "w" )
    ( "b" "n" )
    ( "b" "p" )
    ( "b" "w" )
    ( "n" "p" )
    ( "n" "w" )
# and for debugging ...
    ( "a" "b" )
    ( "a" "g" )
    ( "a" "n" )
    ( "a" "p" )
    ( "a" "v" )
    ( "a" "w" )
    ( "g" "b" )
    ( "g" "n" )
    ( "g" "p" )
    ( "g" "v" )
    ( "g" "w" )
  }
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes1)) as ?top1)
  bind (uri(concat("http://zbw.eu/stw/thsys/", ?subthes2)) as ?top2)
  ?s a zbwext:Descriptor .
  {
    ?s skos:broader ?thsys1 .
    ?thsys1 a zbwext:Thsys .
    ?thsys1 skos:broader* ?top1 .
  }
  {
    ?s skos:broader ?thsys2 .
    ?thsys2 a zbwext:Thsys .
    ?thsys2 skos:broader* ?top2 .
  }
}
group by ?subthes1 ?subthes2
order by desc (count(?s))
EOD;
$rows = $sp_readonly->query($q, 'rows');
$err = $sp_readonly->getErrors();
if ($err) {
      print_r($err);
      throw new Exception(print_r($err, true));
}

foreach ($rows["result"]["variables"] as $variable) {
        printf("%-20.20s",$variable);
        echo '|';
 }
 echo "\n";

foreach ($rows["result"]["rows"] as $row) {
        foreach ($rows["result"]["variables"] as $variable) {
            printf("%-20.20s", $row[$variable]);
            echo '|';
        }
        echo "\n";
 }
 ?>

import com.bordercloud.sparql.*;

import java.net.URI;
import java.net.URISyntaxException;
import java.util.HashMap;

public class Main {

    public static void main(String[] args) {
        try {
            URI endpoint = new URI("https://zbw.eu/beta/sparql/stw/query");
            String querySelect  = "prefix  skos:   <http://www.w3.org/2004/02/skos/core#> \n"
                    + "prefix  zbwext: <http://zbw.eu/namespaces/zbw-extensions/> \n"
                    + "# \n"
                    + "# Show the number of descriptors which are part of two \n"
                    + "# subthesauri of STW \n"
                    + "# \n"
                    + "select (str(count(?s)) as ?intersect) ?subthes1 ?subthes2 \n"
                    + "where \n"
                    + "{ \n"
                    + "  # the two intersecting subthesauri \n"
                    + "  values (?subthes1 ?subthes2) \n"
                    + "  { \n"
                    + "    ( \"v\" \"b\" ) \n"
                    + "    ( \"v\" \"n\" ) \n"
                    + "    ( \"v\" \"p\" ) \n"
                    + "    ( \"v\" \"w\" ) \n"
                    + "    ( \"b\" \"n\" ) \n"
                    + "    ( \"b\" \"p\" ) \n"
                    + "    ( \"b\" \"w\" ) \n"
                    + "    ( \"n\" \"p\" ) \n"
                    + "    ( \"n\" \"w\" ) \n"
                    + "# and for debugging ... \n"
                    + "    ( \"a\" \"b\" ) \n"
                    + "    ( \"a\" \"g\" ) \n"
                    + "    ( \"a\" \"n\" ) \n"
                    + "    ( \"a\" \"p\" ) \n"
                    + "    ( \"a\" \"v\" ) \n"
                    + "    ( \"a\" \"w\" ) \n"
                    + "    ( \"g\" \"b\" ) \n"
                    + "    ( \"g\" \"n\" ) \n"
                    + "    ( \"g\" \"p\" ) \n"
                    + "    ( \"g\" \"v\" ) \n"
                    + "    ( \"g\" \"w\" ) \n"
                    + "  } \n"
                    + "  bind (uri(concat(\"http://zbw.eu/stw/thsys/\", ?subthes1)) as ?top1) \n"
                    + "  bind (uri(concat(\"http://zbw.eu/stw/thsys/\", ?subthes2)) as ?top2) \n"
                    + "  ?s a zbwext:Descriptor . \n"
                    + "  { \n"
                    + "    ?s skos:broader ?thsys1 . \n"
                    + "    ?thsys1 a zbwext:Thsys . \n"
                    + "    ?thsys1 skos:broader* ?top1 . \n"
                    + "  } \n"
                    + "  { \n"
                    + "    ?s skos:broader ?thsys2 . \n"
                    + "    ?thsys2 a zbwext:Thsys . \n"
                    + "    ?thsys2 skos:broader* ?top2 . \n"
                    + "  } \n"
                    + "} \n"
                    + "group by ?subthes1 ?subthes2 \n"
                    + "order by desc (count(?s)) \n";
            SparqlClient sc = new SparqlClient(false);
            sc.setEndpointRead(endpoint);
            SparqlResult sr = sc.query(querySelect);
            //sc.printLastQueryAndResult();

            printResult(sr.getModel(),30);
        } catch (URISyntaxException | SparqlClientException e) {
            System.out.println(e);
            e.printStackTrace();
        }
    }

    public static void printResult(SparqlResultModel rs , int size) {
        for (String variable : rs.getVariables()) {
            System.out.print(String.format("%-"+size+"."+size+"s", variable ) + " | ");
        }
        System.out.print("\n");
        for (HashMap row : rs.getRows()) {
            for (String variable : rs.getVariables()) {
                System.out.print(String.format("%-"+size+"."+size+"s", row.get(variable)) + " | ");
            }
            System.out.print("\n");
        }
    }
}

apply plugin: 'java'
apply plugin: 'application'

// This comes out to package + '.' + mainClassName
mainClassName = 'Main'

group 'org.example'
version '1.0-SNAPSHOT'

repositories {
    mavenCentral()
}
dependencies {
    compile "com.bordercloud:SPARQL-JAVA:[1.0,)"
}